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

yl641305861

is
; J/ D2 {6 `6 y        m,n:integer;
( y' y+ n7 x) U! F; [5 \        Name:string;
2 U1 n& L2 }/ ?$ T        obj:object;
do
% q; G6 Q% N' s2 N  o8 I        m:=str_to_num(omit(?.Name,1,5));
- K5 ?8 O/ E2 ~        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
        if m>1 then
5 _1 U4 R; I8 V& Z6 G+ V5 \0 I                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
9 f; h7 M1 d3 y' h, n6 H                obj.val:=n*100/OutPut_Line1;
        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点