本帖最后由 五五 于 2012-8-31 17:13 编辑 * j1 Y9 c0 K7 {$ L+ [, O
7 D% n* Y; l) U; L( v
另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
4 Y; o+ b* k, }# L6 H% n$ ^9 y7 C) Z ^7 H$ b9 S
is
/ b2 l! K' A7 h9 I3 o; D- N Xdim, i, j, k : integer;3 U" w/ ?# r) V( M
tab_temp : table;
2 p9 [: }8 ?7 L, d4 }8 v& s PufferKanal : object;
L1 f5 n" C) X$ }6 c; gdo
& }5 L- ^3 w' G( m6 d6 J tab_temp.create; 8 f% O+ Q( ], @6 u( h' C [
Xdim := self.~.Tab_Stat.Xdim + 1;
" j3 [% ^* W0 B
7 ~+ r, Q, B4 k for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop. S& M. b' v( y6 ~ ] R# i: v
tab_temp.delete;
) H% `) y+ Z5 k* G+ T3 U6 c5 n2 x ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);
4 j' c; F% D" A2 ^; e: q1 k
, S: h4 P( C/ \# f7 _ ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;8 \! E) E! c# T4 ]' G _2 z
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
/ |1 U% S& ~2 w2 f( d) G 3 m: V f& q3 t6 ~
for k:=1 to tab_temp.Ydim loop9 \- M; v6 n# E! F7 }: \0 p& Y6 j
self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];1 V# I' e- o% c: B
next;
4 \; Q: W/ _/ o A6 }' Z) ]( y2 d: h
( k. \1 c% p6 \. v: l* a next;
/ W% o5 q7 ~" k
- M% F0 T! q5 ]; c# d8 Q2 C" o, L) K self.methcall(3600);7 z+ i5 w( o- J8 Y% i8 o
end;4 y; K* }. A" x- j1 i- q
|