本帖最后由 五五 于 2012-8-31 17:13 编辑 % r+ C0 b% q: n4 ?& P! H' l
~$ W2 m, v3 x$ R: S另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
4 h2 D: R3 ]+ m: V! a
# I/ m- Y8 A: V+ cis1 |2 `7 q( \( ]" x3 L
Xdim, i, j, k : integer;: t; z: B' i3 G; t
tab_temp : table;
|) U l; F9 y# k7 ^+ U PufferKanal : object;
6 M3 `2 G+ p# T. b9 ~% v" _do. y; L6 K* }; p1 \5 k2 g9 \* {! S
tab_temp.create;
- o1 ^- g9 I+ i Xdim := self.~.Tab_Stat.Xdim + 1;' O: r' A" j( b* b' f* Z2 m( n( ]
" n$ s. [# H! ]+ y3 }- n; f" k, q$ i for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop4 O" c2 }: U! G8 B5 x6 |
tab_temp.delete;
: ~! x* x. w- q: L ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);* \4 t6 W2 _% K3 s
9 O a ~9 J' J ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;4 o4 V6 t! D: x
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
- @3 E7 Z* _/ I# ]! w4 h" w
; `0 k! g/ K5 T; G5 ~ for k:=1 to tab_temp.Ydim loop0 Y. E5 Q% h5 M8 J! {) n4 c4 m# u
self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];3 K6 H, X" ^4 y8 Z" L
next;8 F5 y- R9 l" U) B+ q# [; n
) c# ^2 l' n- X `$ X' e next;) ?+ F9 {8 R8 B d' t/ t- @
5 h8 k& E" b8 c9 v/ r, z, X0 x
self.methcall(3600);
# v' [+ w- u5 } Dend;8 g/ s- O1 A: w$ E1 @% ^
|