|
is' r. P; H2 R, M/ [& m0 f5 j6 T
m,n:integer;
+ t# J4 F0 j" ?2 `' |1 y8 b Name:string;
! h# o( @1 R; o D% K! n. i9 m obj:object;
, w, n: t* O, M1 wdo
8 ?. [: N0 c; Y$ c m:=str_to_num(omit(?.Name,1,5));
6 j: c; D/ k+ f; Q9 Z# u% L Name:=sprint("Output_Line",m);
8 Z3 I; E, o$ Y/ j' i4 x! O) V obj:=str_to_obj(Name);
- h" n( G' y( l5 g obj.val:=?.StatNumIn;8 k# G2 T4 B1 R
if m>1 then4 e, I: z' Y- J9 Q/ X
Name:=sprint("OutRate_Line",m);- m+ u& [. x& |1 R2 H- m2 R
obj:=str_to_obj(Name);
8 i9 z1 Z, w3 o# U$ N s) M1 ? obj.val:=n*100/OutPut_Line1; t' n# A. L. r& R; G
end;
# v) q7 `: Z3 e. r8 Tend; |
|