|
is
9 A {$ T" O8 C* K' R$ E! K m,n:integer;
9 x6 n# ?+ L x3 ^ Name:string;
" ?' A7 t: w9 s) d) I obj:object;
+ p' N$ L+ _! d0 ?* w8 cdo
4 ]. @; A* U# e8 ~ m:=str_to_num(omit(?.Name,1,5));
5 a5 X) ]1 n( g$ b: r& i4 h; e Name:=sprint("Output_Line",m);& y3 M- @! l% q( O6 s9 H3 h& f G
obj:=str_to_obj(Name);
3 C- \, C, Y% I8 ~6 W obj.val:=?.StatNumIn; {8 `( O0 c0 s: J% y8 k* l
if m>1 then
/ \4 }* n' G/ Z8 G6 q8 N+ c( R9 N Name:=sprint("OutRate_Line",m);6 u5 g1 k; G1 x2 C
obj:=str_to_obj(Name);: x! x' z6 E. ~6 Y+ f4 b& c
obj.val:=n*100/OutPut_Line1;
8 x) C B! X! c. | end;
6 y7 |# C% Q& Lend; |
|