本帖最后由 五五 于 2012-8-31 17:13 编辑
! o1 l+ R. O+ |( n. U) X6 B o
9 X. b8 r8 [9 h( O另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。( J# E5 s4 c+ v, U4 e' p
}5 E8 Y: [; \+ j
is9 D. T/ a1 Z* R. I5 f- ^# a6 }
Xdim, i, j, k : integer;
/ Y, p5 v, I" {9 A1 @) [ i tab_temp : table;
" e' T" d! q. H PufferKanal : object;+ b5 i5 O- H# d4 p( G/ f
do
N% O' d1 p' [7 c# Z tab_temp.create; 9 y8 M! } ^* d+ ?+ M' a# z' f
Xdim := self.~.Tab_Stat.Xdim + 1;
% v: ?. }7 p! ~# n* w 6 H% h8 V4 R: ^, a1 b) Q! J' r2 b
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop
6 M) U* h8 K$ G8 W* Y. H tab_temp.delete;
+ f9 j3 ?7 E4 `$ A5 E# Q ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);% ?7 N) l* Z4 n9 T* t
/ \* Y8 y5 G) c, g q" R) r. Z( M
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;
' ~* D" a6 `; ~. u ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;( |5 X" m# {( b) ^& o( Z
! k' h8 u! |2 r
for k:=1 to tab_temp.Ydim loop
a$ @. w. ^* v" ]1 a! V2 Y self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];
3 l8 V+ I1 n, B" L2 c5 R3 t next;: ^# Y7 b, s7 [; S
/ U# O1 ~, z$ M0 a
next;
5 f9 z( ]& ?2 h$ C* P" J- C7 i 9 _( n& U, X: ~5 H! a
self.methcall(3600);% D. F( ? Q# E- y9 T3 m3 M
end;! n6 X) t/ y2 w( g" L
|