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

yl641305861

is
        m,n:integer;
        Name:string;
* }; t- t7 J# s/ j5 Y, ]! [        obj:object;
! U- i1 N6 X6 P$ m" T9 P1 Ydo
3 U" Q' K$ {0 N! @6 g        m:=str_to_num(omit(?.Name,1,5));
! y7 p; \; _: `1 [        Name:=sprint("Output_Line",m);
1 P* N8 |  L4 T; |* P. T        obj:=str_to_obj(Name);
' ?1 S/ R9 _7 T$ |; |, t        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
( F* ^& ~8 i) c8 z& yend;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点