本帖最后由 五五 于 2012-8-31 17:13 编辑
! m) ]( _+ t& j K0 @% G
7 w# j, ^, e( v0 ?, L6 W+ k- m另附相应 统计过程一份 虽然是德语大家可能看不懂 囧。。。变量名也很奇怪哟。。。
2 }& C- B6 T& n4 _9 F6 f$ u$ a, o& g- p* r+ e8 a6 K# c
is
$ q {- [! o. a- z b Xdim, i, j, k : integer;
8 v+ N* j# x* M; H7 Z' D# h tab_temp : table; $ o+ h! [+ z$ q. H* t3 T/ ]0 s4 F
PufferKanal : object;7 D7 X# Q6 B. n, F/ D
do
% \1 S4 m r M/ Q' r: e tab_temp.create; & ]- C* ?/ j0 Y/ @& D% L
Xdim := self.~.Tab_Stat.Xdim + 1;
0 K6 q6 x* P; U) \# @3 F / J$ S( y# e0 j8 g2 o/ ]: W) e
for i:=1 to current.Tab_Verdichtungsplätze.Ydim loop7 a6 K) t3 p. K0 v8 E& v
tab_temp.delete;! K& I7 ?( a% Z$ @6 P1 T
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).getStatisticsTable(tab_temp);
8 C- T M* |: b$ ~, ]
. Y- c0 z- w# N0 L$ ~ ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=false;3 W; |6 D1 N9 N* \$ u
ref(current.Tab_Verdichtungsplätze[1, i].ProcVerdichtung).statistikAktiv:=true;
' c- \! m' U( K3 I. ?
M W; e! N/ {& a for k:=1 to tab_temp.Ydim loop
% z- q4 x$ ]* v; N+ F1 N self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]:=self.~.Tab_Stat[XDim, 4-tab_temp[1,k]]+tab_temp[5,k];
" R/ B9 x( a; r( ], y ?2 q, O7 ^ next; D. M& G% R) F. a4 s; S3 U) u3 R
3 U( o y, U8 f1 L z next;% N# e S- C$ K d% k" S
/ \# D( D! f, L' v7 _ self.methcall(3600);7 ~' f6 w3 d2 \4 w
end;
' i |; b$ b! T* \ u9 G# m* [ |