|
|
is
% O4 S* |$ R1 o p m,n:integer;2 E( ]6 X$ M9 f0 l- S
Name:string;6 S# t8 r& C, S6 o4 b7 p' O
obj:object;' @& m+ P1 S) |+ ^4 R! P @
do% f/ U! @- ?: n- ]+ }0 T
m:=str_to_num(omit(?.Name,1,5));2 A# _2 U+ a: A4 d
Name:=sprint("Output_Line",m);
+ j$ n, W' A( Z' r/ f obj:=str_to_obj(Name);
$ L' P! D" @6 C4 k# T obj.val:=?.StatNumIn;& X: z& H5 N3 I* n& | ~! K- h
if m>1 then
4 z8 w; j# I: K: S( t. z Name:=sprint("OutRate_Line",m);
7 v7 T* O* m. [& l: l obj:=str_to_obj(Name);
* L/ A/ N! L* T, ]6 G; v+ C1 B+ @ obj.val:=n*100/OutPut_Line1;$ O8 {$ O* T( x F$ T" v7 t2 Z+ C
end;0 B. e" p. K0 Q3 M: K$ n/ }
end; |
|
[复制链接]
发表于 2014-4-20 19:54:43
