请大神帮忙看看这段程序。求修改

yl641305861

is
$ P; ?3 Z% V# D8 v' V$ w: X        m,n:integer;
* ^- c4 T7 r6 Q        Name:string;
" q) R( F- x/ s        obj:object;
+ N# J6 Q  v' F9 n% Q0 Y# U. l, }do
        m:=str_to_num(omit(?.Name,1,5));
6 G# O, m' [# A9 }6 X4 x( \4 w, B        Name:=sprint("Output_Line",m);
# m; t2 Q: Y0 o, Z. g; C        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
* {, m. ]9 H# B. X7 ~  z. Q! G        if m>1 then
                Name:=sprint("OutRate_Line",m);
0 ?1 d/ i6 T  K8 e7 `                obj:=str_to_obj(Name);
( V6 `2 U& ^/ {5 p/ s& Q# G3 H                obj.val:=n*100/OutPut_Line1;
( v! S, \% I6 j. [        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
4 }: g* Q  Z% }5 ?6 V" @obj.val:=n*100/OutPut_Line1;

笨小孩儿

这是教程实例   不知道怎么就是出错

笨小孩儿

求大神指点