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

yl641305861

is
        m,n:integer;
3 `' O" w9 p. O" ?. _; n# ^5 V        Name:string;
        obj:object;
do
        m:=str_to_num(omit(?.Name,1,5));
1 |: b: u# S) p& u4 T        Name:=sprint("Output_Line",m);
$ Y6 N, Q/ S) O% H$ A( i        obj:=str_to_obj(Name);
2 }/ k: D  \1 Z; d: _        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
7 D4 H& E! g& R/ d* L                obj:=str_to_obj(Name);
, M  ]' m) x3 I2 g5 E% j                obj.val:=n*100/OutPut_Line1;
$ Y& U4 ^% u/ F7 N& j: S        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
: A0 ?6 U) n% P0 Robj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点