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

yl641305861

is
        m,n:integer;
        Name:string;
2 l5 P& E: `$ Y! ~  Y        obj:object;
: g/ y- n8 M1 ~# [do
        m:=str_to_num(omit(?.Name,1,5));
6 M$ k2 Y! J5 a        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
7 s. N- t: V' k3 B                obj:=str_to_obj(Name);
3 X1 R" ?, O. D% T5 J                obj.val:=n*100/OutPut_Line1;
  {4 J2 ?. Y1 Y! e        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点