|
|
is7 s. y/ G7 r% t8 y( }( `7 t
m,n:integer;
5 j# n6 R# o' V7 c4 x. h Name:string;
0 g2 h0 p. ]9 j8 Z# l obj:object;
. r) X+ u; [$ o1 `0 G1 Odo" v8 }/ r' J* M" p5 H
m:=str_to_num(omit(?.Name,1,5));
" t% O8 N% l, Y- Y/ K Name:=sprint("Output_Line",m);
- z, y8 T4 {! y4 v7 z obj:=str_to_obj(Name);1 G& q) m% q+ [ Z! I, S
obj.val:=?.StatNumIn;
& t# A: w/ Y+ g! c s. f6 @+ x if m>1 then3 g" S$ e9 `! r: | i* W5 Z
Name:=sprint("OutRate_Line",m);$ ?7 J+ D1 o) \( @8 O& c7 Y
obj:=str_to_obj(Name);$ J- n* u3 b! @$ q( H7 O# u5 d
obj.val:=n*100/OutPut_Line1;
4 h# i! H9 Y* O$ m end;6 J# |8 e G4 Z& k2 X2 W5 a* ~, e
end; |
|