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

yl641305861

is
4 ?/ L& |, k: x  Z% f( a1 m        m,n:integer;
        Name:string;
" S  ?* k1 V- b: \' Z        obj:object;
1 D* d* E5 s; k) ~. Fdo
        m:=str_to_num(omit(?.Name,1,5));
! Z5 O7 h0 k0 j% C3 m        Name:=sprint("Output_Line",m);
8 z- ]$ |8 e7 X$ }1 t- @1 t        obj:=str_to_obj(Name);
) n9 ^9 h; u' C6 H1 ^) c* k        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
) @- |7 P7 p* P5 I4 D# l7 ^                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
5 ~+ p0 c% @3 }( A0 F* k& B        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
0 Y+ t, h( x3 n, z4 J2 w/ eobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点