本帖最后由 五五 于 2012-8-31 17:13 编辑 % ?4 y' z$ y( a1 {$ E/ e
) {9 a. O ]5 O4 }另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
5 ]: e2 n4 Q7 v/ I2 R. C
- `9 I) b, z7 A9 u! Sis
& t* i M. G( Q- E2 v4 C Xdim, i, j, k : integer;
2 o q) @" R0 x, v6 r+ \ tab_temp : table; 6 @) x! R' _/ y
PufferKanal : object;
& E) M( E" c4 Rdo
. |3 m- F0 ?4 D. U- f& @ tab_temp.create;
, B3 w* d4 ]$ \- }- i Xdim := self.~.Tab_Stat.Xdim + 1;6 K! s- |5 ~+ _ v; J
$ y3 d7 }5 ]5 |8 Q: m( {, @ for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop1 ?+ A3 o# F! k4 ]( i% Z; b" B0 C5 p' {
tab_temp.delete;- g0 h. }: i5 S* n! ?
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);- h" r; L5 Y/ ~3 B( w
; b4 e z5 o. z# g/ `+ \& k
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
2 n* N2 w0 S! c4 A ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
- s5 Y$ C8 ]1 U# M' z
6 z ?( m( r0 V2 }& h2 O" w( S; ~ for k:=1 to tab_temp.Ydim loop
, s4 b- @! z5 B j: E) u" T self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];; M, H' `, M- n
next;
9 ~9 U J) A& i
2 M& P8 J( o0 w: z8 N next;! e- F3 q. g7 z
( _0 R0 _/ V* \
self.methcall(3600);
( _ Z8 H' ~3 S) S: x- l3 _end;% W b9 Z/ f+ I, p, Z% Y1 ^* N: @" B
|