本帖最后由 五五 于 2012-8-31 17:13 编辑
+ b o1 P# t( W2 s H+ X @, c: ^: J
! K c+ q6 m& i: Z另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
/ H; X5 b% X5 h' i% }: n9 `" g g! A' _" H2 a) o
is
$ K/ q* B) g7 Y% e- P1 |/ y. u0 |* E Xdim, i, j, k : integer;
3 G( ]1 d9 ^( f% v% Y tab_temp : table; $ r# ~6 {2 O3 O6 A
PufferKanal : object;
- Y: r, H; e$ t- v5 A: `do
+ M% b# ?& v8 f- u. M$ {4 Y+ V tab_temp.create; ; k5 o% A# H! u$ x* A
Xdim := self.~.Tab_Stat.Xdim + 1;8 O+ I: Q7 P6 m- n! M
2 Y: ?5 X: \7 p6 F for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop' v9 H7 U8 Z6 Z& R$ J! Z7 R* J5 P
tab_temp.delete;' x$ [" X" i1 ?8 U' C1 u# x) _
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp); P; x. Y+ A0 U: V/ J3 i( m
. Q/ J5 ^9 x4 _3 E2 Q
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;6 l# k/ V) ]8 l% N
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
/ [% m! o/ G2 i3 H& R- {
: k* P7 k" _+ W1 N. @) v for k:=1 to tab_temp.Ydim loop
* W7 j& w- H4 G% X0 l4 q self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];' M9 b/ X1 p. T1 \
next;8 ?2 h: y4 V1 j& f4 ]0 |4 L
Y. @& ?) z. i# I8 v, D next;
% q- ?! j6 k4 w' G9 y% \# y
! r! r7 t/ |" c( ^7 t9 | self.methcall(3600);
5 [0 }5 i9 w# h. j J& d, _% N+ Z9 [0 jend;
$ m& r2 j2 e& S: K, q* g2 D0 U |