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

yl641305861

is
! R& T, J) z* a# v4 Z- p# {        m,n:integer;
5 s+ I8 d; A8 c  s9 t0 m2 C3 x! h        Name:string;
) F7 H+ E. a3 T2 }+ f/ X        obj:object;
- X5 B- U5 {' a" M! Jdo
% {+ P! e& r2 G9 L4 G( f4 D        m:=str_to_num(omit(?.Name,1,5));
) z, k& a3 a5 B3 y        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
2 [& W  V$ ?- d, }' c8 O        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
1 {8 o0 f5 r9 M# X! Z- M* F                obj.val:=n*100/OutPut_Line1;
        end;
  @; B8 k! f) [& {end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点