本帖最后由 五五 于 2012-8-31 17:13 编辑
* m' \/ k7 H" Y) W) w* O6 Z# W9 @1 q9 _, N( b1 U3 K
另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
2 H% B$ M; \$ o/ Y3 ~7 q
3 y( Z" Q3 z7 Z% c# sis
& @$ U q; \1 V+ R; Y Xdim, i, j, k : integer;0 `, {0 Y H* V. `' ^( q; {
tab_temp : table;
$ P; d& U! A' F! h, X5 T9 t( f PufferKanal : object;
. A7 z0 y y4 J% k, Wdo4 Q$ X& g4 d* |* K- |+ h# w4 M
tab_temp.create;
; ~4 }# l* y3 h: z Xdim := self.~.Tab_Stat.Xdim + 1;0 g: j2 x& f) \( D! S4 I, R
& z" M4 C, W/ L, C& D- E/ C
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
/ w& Y+ Q s" }# A3 ?& E tab_temp.delete;; H+ u, }+ T6 s8 F# _$ n
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);
* R' Q/ A6 Z" } r
6 J/ c& C7 H1 I$ { ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
( ]3 {" `% I* ] ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;! G) x" z) Y, H3 O$ d
, x, m: z" {! c9 |. p& A/ c: y3 S
for k:=1 to tab_temp.Ydim loop- m) s: z/ \8 ~- D! A7 U" W
self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];6 b! O; {4 i& K, J6 H5 _
next;; _- r) u" U% |# g
& a- w7 `) y. y5 l
next;4 p; x7 H7 [5 ^ P0 z1 m
( G1 l/ i* N' e/ L% W c! Z self.methcall(3600);. {+ _) D4 Q# p+ i2 Z! u( c% u
end;8 n- `0 {$ n0 X" O& }
|