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

yl641305861

is
5 c2 {# p5 u1 s0 C1 Y        m,n:integer;
! X' R' Q; F' n/ ]. t7 q1 d1 B) ?        Name:string;
# @8 r3 ~: c: I3 K7 i1 `6 V        obj:object;
, _  u, [( m7 b6 c5 Zdo
        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
& r, y0 L$ ~" \. Y        obj:=str_to_obj(Name);
) }  e" t, z$ F+ K) R! c. x9 i        obj.val:=?.StatNumIn;
        if m>1 then
1 t& h; ]5 f& G% s2 y  v/ H                Name:=sprint("OutRate_Line",m);
+ v8 @4 L- o7 y                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
- {0 j  Z; A7 @/ U% j        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点