|
is: y; E) [+ A" b/ K2 |6 r4 a3 G
m,n:integer;
1 L2 N9 h3 d, P3 O, \2 k Name:string;* [$ _+ Z \0 J4 P* z0 h
obj:object;
& z$ C$ m# P! P) hdo
, [. M' K' `2 l6 z& j" S4 c m:=str_to_num(omit(?.Name,1,5));3 Z" {* v2 ~5 [5 g+ P" ^
Name:=sprint("Output_Line",m);0 B8 {) N* z9 J* s& P' M8 ?2 q2 g! v
obj:=str_to_obj(Name);9 _ \5 H* S- J% z5 y. g- Z w5 [
obj.val:=?.StatNumIn;$ @3 J. ]: v$ m- n& t2 w" }. o& Q
if m>1 then
3 G I% n: H1 @: R( v Name:=sprint("OutRate_Line",m);* a) Z6 j" x- Y w& q
obj:=str_to_obj(Name);
2 ], ]2 D2 s9 C4 r" r obj.val:=n*100/OutPut_Line1;2 w6 X3 x) H6 B4 D0 i2 ]2 T
end;
) C* N+ X( R( z& w, N" Aend; |
|