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

yl641305861

is
        m,n:integer;
        Name:string;
        obj:object;
* n5 p2 T, P6 @; ydo
8 L( P/ U; f; f# u4 T        m:=str_to_num(omit(?.Name,1,5));
' @* p8 g; X$ T7 Q+ @9 v        Name:=sprint("Output_Line",m);
( T; O7 w7 N4 x, a) b* G* c0 u        obj:=str_to_obj(Name);
; X1 b3 r, P2 K        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
! ]( P2 e  K. c8 L                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
# ^7 N) R$ R- b        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
; g) ]2 u2 n- ^$ X; S2 uobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点