本帖最后由 五五 于 2012-8-31 17:13 编辑
3 R+ Z! |: l$ s1 C+ M9 {
1 S6 J5 F. v( |. D另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。2 ~9 ^$ ]6 j5 P( ?. q
0 C" R! ~& l7 L) j8 g/ e" n- dis
( N) f6 c9 r: ~$ H% n Xdim, i, j, k : integer;
) g. I: R: G0 l8 S( D7 T3 r4 q _# Y6 x tab_temp : table; ' {/ p) N+ U8 I
PufferKanal : object;
- Y0 g# _1 X8 f$ ]" M# tdo+ Z7 d* }& k7 ?) H, T$ T( Z# P8 @
tab_temp.create; 1 C, [9 K m% c1 o5 ^
Xdim := self.~.Tab_Stat.Xdim + 1;
/ A0 q6 ?' j/ P) l: \, `0 O - T. B5 ~3 v8 q M: `, {* p) f% R
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
1 x7 v$ B2 Z! v7 ~* M tab_temp.delete;
$ ]$ a! n! P# Y' \ N" Q ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);2 ?" X4 o! ~) u+ u' r0 Y) Y
9 Q" }$ V: I9 J/ W" C8 S
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
9 e& m% Y9 G: R) u; Y ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;" } j) H/ l* u2 d S
: \2 T C+ u" S2 O4 ?- l- X E
for k:=1 to tab_temp.Ydim loop
; }$ @; H- l1 w+ U7 F1 b# @6 A1 M self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];( @# N- k$ d! w" o9 w6 V6 K1 D" s
next;; ?3 i5 n9 t, v0 G
. ?) i: h% e [ ]+ b$ b) L next;' c9 A: ?" q/ W# X6 n B/ l
2 C, n8 Y+ P/ b, V
self.methcall(3600);; T. r3 Z( M, o/ ~6 `: g
end;4 s6 h; z' R( U( u. G
|