本帖最后由 五五 于 2012-8-31 17:13 编辑 : ~6 L' F. V8 s+ C9 \! |$ l# ~
8 k) ]) N& J5 Y6 ^另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。8 ^; n& N0 }% U. z! K7 u
9 N( X5 t4 [9 r: k! tis
2 R3 i9 k6 T8 o$ ^ Xdim, i, j, k : integer;- W; M2 O. |7 `
tab_temp : table; - S+ T0 V) r4 ~
PufferKanal : object;# e. b* Z% H3 v, a5 H" u" d+ `% j
do& M6 G* s( t" @
tab_temp.create;
2 ], H( Y- }% d- @3 x4 k% w Xdim := self.~.Tab_Stat.Xdim + 1;/ N$ B) J% N3 J# P8 l( l3 V
7 }8 b% p b- E8 u: m9 P: n for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop8 F/ q: L+ k! W
tab_temp.delete;
+ |% f4 B% d$ i% T7 {. i/ e0 ^ ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp); d) B) j' ` y3 m' N1 y
2 c# q, ^$ Q) W ^# w# c5 C ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;4 `1 x) C: c, v! ~! ]( h, q; x7 B
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;9 G; T% H6 C* t y7 M- a/ B8 b4 F
' g& Q' Z2 x9 r5 F5 r+ T for k:=1 to tab_temp.Ydim loop
- z" o- y: f# A ?% P' @: R self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];4 b+ P; `8 u( d4 |6 _+ Z
next;& P0 F. C* U# n
z, |5 j* z% L3 H9 k
next;
2 K+ X: V# D7 v$ E. X5 U3 S . D4 @; Z) G+ ^+ a$ z3 x
self.methcall(3600); ^3 J+ Z! R3 }
end;
$ j3 h4 {% a* D Y" D+ ? |