本帖最后由 五五 于 2012-8-31 17:13 编辑
* k) q7 N' W* `7 R5 k
, r, {1 Q! n8 k; V另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
8 [& ^- t1 _* Z" e! G
- D+ K6 Y, H; P& t2 ?, a4 Ais
4 h/ a! v, O5 b Xdim, i, j, k : integer;
7 v! t( W% J3 ~( }4 t5 B* j tab_temp : table; ! X" Z8 }/ }+ M/ u
PufferKanal : object;
2 I, k! i, i' Q F+ x9 Ydo
) w& k f. h1 C1 S/ p) J% b tab_temp.create; 2 H1 D% Q0 F3 Q# ^
Xdim := self.~.Tab_Stat.Xdim + 1;
' L5 B, i4 y% a( n
; d& n% z, S7 J( y for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop6 f# G% h& p8 j6 Y% W2 D$ [
tab_temp.delete;
3 o2 Y. y9 C- A- B. C* C8 U' k ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);
; o- h8 [; N' r5 `1 L , D: B+ }6 [% O% b5 H
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
1 } m) @. ]1 `/ R- W D* I ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
c% e! ~, L) y8 l5 r - L9 K% `$ U" q8 V# g2 X3 o6 d
for k:=1 to tab_temp.Ydim loop
* M! P5 `* U. I% |7 w+ p0 s+ h5 g self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];
/ {6 p% {( e% e" n/ I next;
1 u- u$ B6 e2 U0 Q- C5 r2 D. w" ^ : x: T0 ~3 ~* l7 c7 O2 |. v& T s7 p7 z
next;
% H0 w% Q' N/ b8 Z9 i; Q
$ U# L( N' I+ T- f self.methcall(3600);1 J' U7 V" R! A: f4 A
end;9 g5 P5 R8 K5 W& Z( `6 z- S
|