本帖最后由 五五 于 2012-8-31 17:13 编辑
( h. Y4 O9 B! E4 p) Y2 X& D
6 I# p5 s6 n& N另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。8 x6 L6 M4 y. a# M- ]6 E) i! z
, y9 [' ^( }1 B ~ }/ E( xis, _, f9 H7 b2 V% ^
Xdim, i, j, k : integer;8 H5 ~6 j* a- j
tab_temp : table;
4 U9 G$ A* W3 x3 t; P. A0 f PufferKanal : object;
8 `: C: ^+ D( bdo9 z' D# I3 y, R5 D& n
tab_temp.create;
- @5 |2 Q9 B4 k* N& r! x Xdim := self.~.Tab_Stat.Xdim + 1;* E ?/ }6 m& |6 _: D# ~
6 f; [" s; {7 {" Z# c" Y- j for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
- |+ n; p$ t7 ^$ N& \ tab_temp.delete;
8 M, c$ |# X/ r7 R9 @6 ` ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);( g* W9 ~2 {( s8 Z* m
' f) o2 y' G* W6 w- M9 H
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
3 I ~3 K0 [6 _# l5 W. ` ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
' V5 M- J: p8 K+ L) a+ w 9 S9 C% e: e) o S% y2 s& H
for k:=1 to tab_temp.Ydim loop
" y1 j* C2 f' h* `- p5 h self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];5 F& m# ?( \' }3 \1 Z. K$ U
next;$ O$ I$ g& o( b2 ~# j" g( x' x
" W) S) _1 x8 ]" G$ q# t5 A( u next;
% O0 s* ~- l2 j9 c& M/ R+ ]0 X0 Z) i
& V- N& D g7 d+ V self.methcall(3600);3 t& T8 O! i, ?- V; }+ }$ C
end;
5 k; ^8 x$ C' K3 Y W m5 b: s |