|
is' m: G3 [! Y6 @5 [+ z U3 l5 C
m,n:integer;
4 |' d( C4 y3 B; ~) s Name:string;
8 R$ w4 } M( C) R! U ~ obj:object;
* {6 y0 b% F( e4 Udo
- S, D' d/ t4 H% `; S0 `3 m, E3 N: y m:=str_to_num(omit(?.Name,1,5));
. B( P. X5 s! q* C Name:=sprint("Output_Line",m);
- e0 |9 G& j: e& |: Z$ q' l9 o obj:=str_to_obj(Name);+ [: R- c9 r( _. ^/ H) q* S# M2 Y
obj.val:=?.StatNumIn;
, }/ S3 W1 X5 N, k% L9 Z if m>1 then, R! R) v {3 C) v: Q2 Y- F$ u
Name:=sprint("OutRate_Line",m);
( m4 E2 c) a) W0 M, {; a; c obj:=str_to_obj(Name);! t C% v) z& K* O, \' d
obj.val:=n*100/OutPut_Line1;: L8 r {7 i5 `- d' B
end;
- d" R9 N3 O, Xend; |
|