本帖最后由 五五 于 2012-8-31 17:13 编辑
1 O2 U# a. F3 d1 a8 X( @8 A7 X. _) [
另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。& p0 M& }% z! n
% h1 M% k+ q! K6 F @: _( U
is& {0 i" T% L- a9 K3 m4 y5 Y4 Z- ]
Xdim, i, j, k : integer;
( \7 z! B, `* g9 R tab_temp : table;
" S3 R7 ?( T1 ]7 } PufferKanal : object;
8 `+ x) ]% r9 S; k `# bdo
$ `$ s$ ]1 G9 z- H3 z' I tab_temp.create; 7 l/ e- H; q2 b5 `
Xdim := self.~.Tab_Stat.Xdim + 1;
}% o7 t% m. x9 S' F* O1 J . U6 d1 _5 `% {4 G/ L- d7 v! a
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
* n: t8 W* e3 m# Y- S7 X" c tab_temp.delete;4 A5 j ~% y* {: f3 K
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);! Q8 l6 _# `" J, G% u8 P7 i6 `% H
& m$ k) P! _9 A0 v2 t6 E
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
) Q9 C) x2 e7 J( g8 \ ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
* s' Y; V% P0 ?& S8 n5 R+ S, m
$ p2 l, B, F+ {& ^7 n for k:=1 to tab_temp.Ydim loop
1 Z3 M# P# C( a9 D& ~ self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];4 r9 [$ ^5 L2 `+ o
next;& N3 |. B' }0 ]( p2 N% Z
$ x, l" ]7 Z% {2 D% O( T7 D. N0 n9 t; P
next;" }$ h! M5 Z) F7 D9 e2 A" F/ G. X" C
4 E4 j6 P' R" M9 G$ C3 u; V$ p self.methcall(3600);) F0 G: J; E# g5 Z% ?2 c! f
end;
6 S$ c0 ~* R v: r/ G |