|
is, d9 \+ V2 M+ Q2 b* a) i/ s( H
m,n:integer;3 h: Y+ f% H. D) f9 b. i# X
Name:string;
2 }6 S7 `$ r8 ^/ l* @2 W4 b obj:object;
7 d/ ] K* s4 ~' Ydo
y. g% ]6 c2 {6 G n m:=str_to_num(omit(?.Name,1,5));6 D, m+ H- w! i
Name:=sprint("Output_Line",m);
# e! Z( E1 w, n% j/ O obj:=str_to_obj(Name);
@$ t) H# P0 p3 { obj.val:=?.StatNumIn;2 D0 R6 |! a8 t6 Q
if m>1 then
, D# w; \+ ?2 |% R {: m( H! z Name:=sprint("OutRate_Line",m);
6 F+ h5 G$ f. A Z5 t obj:=str_to_obj(Name);: n6 z5 U- |2 H& ?0 ~8 i1 t& e# e/ I
obj.val:=n*100/OutPut_Line1;# V* j9 I8 l2 n1 z7 K4 q
end;
5 H3 a: o/ f& i6 a& vend; |
|