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

yl641305861

is
0 [/ t" H* D" Q  G/ z        m,n:integer;
$ m5 m! `' r0 V6 d5 j+ m0 @        Name:string;
4 }% O8 }8 |2 H+ T7 @        obj:object;
do
" g4 z; r3 E1 w( B% n( M        m:=str_to_num(omit(?.Name,1,5));
2 Y. w6 W% V$ P- P        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
5 n. Q$ e1 q  B8 i! D                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
1 ~7 M1 c3 u# [# o& M# g% N1 B, Aend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
) j1 w: h0 _: @" robj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点