|
|
is
, B3 J G) n& A2 t! ^8 ?: @- \ m,n:integer;
3 `1 i. d4 @ @5 H, [( U4 w* f" V Name:string;
7 C% B1 P6 ^6 \. D; j! d" E* l3 ~ obj:object;
9 v7 ^0 A' x6 q h6 Xdo1 H' Y) k( w* ~4 Y( s3 f, H
m:=str_to_num(omit(?.Name,1,5));
7 m+ y# _* o4 \ F: k( }( x1 p: Z Name:=sprint("Output_Line",m);
B, I6 K' S9 O6 y2 f! l1 B) m obj:=str_to_obj(Name);
8 n i) T3 [# f$ c obj.val:=?.StatNumIn;
4 Y) x6 ]) w% U1 j n$ ~6 @0 j( R. O( o if m>1 then. ~5 _8 G& P" K; A
Name:=sprint("OutRate_Line",m);
& |. k2 [+ c: Y- R/ V- Y& g obj:=str_to_obj(Name);
) d) l& O4 ~* B& m( W, E* a obj.val:=n*100/OutPut_Line1;
: E1 u) |% {; s: T' G% Z% N. p( } end;
. ]3 X* [* q8 c! f! F/ mend; |
|