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

yl641305861

is
/ V3 [+ W9 M4 E  H1 v( _+ W+ i& _        m,n:integer;
/ \: `5 O/ e  g7 J4 N1 s        Name:string;
        obj:object;
do
( N$ y  o" H& m: g        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
2 T' l0 C9 l) u% j+ g- [* ?  x        if m>1 then
                Name:=sprint("OutRate_Line",m);
4 U2 P6 q3 h7 U( n3 @& z                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
' u1 |4 l! S, a6 q5 f! fend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
obj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点