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

yl641305861

is
# c( m, `4 \( |, ^. d# B1 [        m,n:integer;
        Name:string;
8 }: f+ }6 k5 v3 S7 x$ h3 Z1 E        obj:object;
$ _* f4 U- ?( L( B8 pdo
        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
$ b* B- N* @; e' X  _        obj:=str_to_obj(Name);
3 w. P5 ?$ X9 f- T7 g# F0 [) x$ G        obj.val:=?.StatNumIn;
        if m>1 then
0 g5 h9 u! J  u: V! F: s3 a5 b8 S                Name:=sprint("OutRate_Line",m);
+ G! U5 j% \) |& ^' _                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
  Q8 H4 [0 I6 x2 H6 t1 c        end;
2 V2 B& f0 Z+ T% p8 M( B5 fend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
; J2 F. v! h: @7 Yobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点