|
is- ~8 s9 B: c* l9 H. j$ y- {
m,n:integer;
2 @, b0 H! s3 v4 T3 b7 U Name:string;
# ^% d/ ~- ?+ u* N" W/ c3 {+ O obj:object;4 B" Y% d2 O+ ~3 @9 j
do, H! f- n7 [" X; S8 p8 r/ r) w
m:=str_to_num(omit(?.Name,1,5));) s5 E6 V g! U3 x8 J( y
Name:=sprint("Output_Line",m);
" x y) U- K/ m$ l1 }! w' g% L obj:=str_to_obj(Name);6 }; y( ?" D6 `* J- i
obj.val:=?.StatNumIn;
9 h8 z* I" z1 u, M& M) M" a! I if m>1 then' ?* n" R6 s! [ x' u
Name:=sprint("OutRate_Line",m);3 f: u5 z5 T6 C Q4 Z w* N
obj:=str_to_obj(Name); \% j0 k8 r5 S( n! S
obj.val:=n*100/OutPut_Line1;
; T1 e7 |: R8 S+ s end;
3 o' a+ }$ F9 t. wend; |
|