|
is
0 [/ t" H* D" Q G/ z m,n:integer;
$ m5 m! `' r0 V6 d5 j+ m0 @ Name:string;
4 }% O8 }8 |2 H+ T7 @ obj:object;2 e+ u# w5 D% o: W! a1 M0 k4 B ]
do
" g4 z; r3 E1 w( B% n( M m:=str_to_num(omit(?.Name,1,5));
2 Y. w6 W% V$ P- P Name:=sprint("Output_Line",m);, ?* X! \( A4 z7 n6 V8 q: d7 L
obj:=str_to_obj(Name);7 q& y1 P- x/ d- W4 Z/ S$ y
obj.val:=?.StatNumIn;% V: [3 ^' N$ m' } x8 R
if m>1 then/ A$ N$ P& z# I0 |7 ]4 S
Name:=sprint("OutRate_Line",m);
5 n. Q$ e1 q B8 i! D obj:=str_to_obj(Name);4 E6 e! t6 B5 H& l7 f
obj.val:=n*100/OutPut_Line1;9 S9 ^, L, g$ Z' O' ~% M
end;
1 ~7 M1 c3 u# [# o& M# g% N1 B, Aend; |
|