本帖最后由 五五 于 2012-8-31 17:13 编辑
8 j9 z9 y$ X* T& z1 w+ h6 ^" A6 w" M' M _6 l; h- B4 b
另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。3 n- y9 y0 P4 x+ c
6 B* j2 F* _- k
is
$ X$ p& \# M% s( R! p. d& _; S$ e& r Xdim, i, j, k : integer;% {) ]& ^% y# ]# I& b* }( M
tab_temp : table;
9 g8 E" S2 x8 v( Q5 y9 Q* i5 p, ?. T PufferKanal : object;
9 Z% q: i* p- v% `do* r" \/ P; ~: K2 M
tab_temp.create; T9 l3 y9 _8 r0 d6 ]& A& y. ?
Xdim := self.~.Tab_Stat.Xdim + 1;
$ P' ~+ P7 |/ J; u * Q3 m0 Y* }+ M0 Y$ V4 ?" ^# E
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
' o: c0 a, ^: C% f4 D. G1 k f; _ tab_temp.delete;
3 |/ K4 K% h2 S( s- s* x ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);
) G# Z5 e2 T0 D7 p4 `( M/ {& @: g8 q
1 H( ]! z+ S4 |# H ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;3 g A% v }1 _ D) I- A
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;1 |" v6 B7 _; i. H, y
' W9 n& J( @2 ~' M$ S for k:=1 to tab_temp.Ydim loop# y- A. F. }! Z" I5 s
self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];: |; f A, B) G' I$ ?
next;
, S, C' W- U `- V7 L' ^ 7 }9 C. m) f& Z0 g' f; {( |
next;
8 I8 C `9 [ o- U% j* W) Z4 ~& G
: S! p8 J! T( H, {; d3 F- s6 M self.methcall(3600);
J2 F# S$ [1 m Z5 Iend;; j' Y- {0 a% b5 R' v+ \
|