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

yl641305861

is
% a, L* i$ S# y( y& S/ O" j+ N* E        m,n:integer;
, Z4 h- B* F7 i        Name:string;
        obj:object;
# z2 ]' ]  Q6 ]# J! N2 h& ]do
        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
! D1 n+ x# d( B7 _# i' Y, L        obj.val:=?.StatNumIn;
$ V5 O2 m# X/ D7 J8 q7 Y; \        if m>1 then
# [) p6 u  k$ d, u- n6 h                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
7 I) F  c4 Y  T0 L5 L! {# g% x$ rend;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点