|
is3 }4 f$ r( M; C0 ^& v: U0 c8 v1 v% G
m,n:integer;$ {4 a5 P3 L% D4 w) T! N
Name:string;, f( N4 D4 r9 [0 d8 t; L" ~& e
obj:object;5 Q8 n4 V* W" q' s
do; [- T( Z8 y2 U* M6 }, e0 I$ z; Z
m:=str_to_num(omit(?.Name,1,5));
! K; b# z- j. }' R2 [2 I6 I Name:=sprint("Output_Line",m);
! o9 c6 N$ E8 z obj:=str_to_obj(Name);
4 Z8 R; k7 x7 B, d' O! N" x" `( N1 h obj.val:=?.StatNumIn;6 P5 r+ p( `$ j! X$ n$ a% K4 {
if m>1 then
0 b) U7 @' i* W: l Name:=sprint("OutRate_Line",m);) P8 M! `& s3 I( u1 T% e
obj:=str_to_obj(Name);4 G6 U6 ]# U6 t3 k+ B& X! ]
obj.val:=n*100/OutPut_Line1;
, d4 s0 h+ x p' D8 k end;) f, ]4 l6 j* B2 A6 p
end; |
|