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

yl641305861

is
, B3 J  G) n& A2 t! ^8 ?: @- \        m,n:integer;
3 `1 i. d4 @  @5 H, [( U4 w* f" V        Name:string;
7 C% B1 P6 ^6 \. D; j! d" E* l3 ~        obj:object;
9 v7 ^0 A' x6 q  h6 Xdo
        m:=str_to_num(omit(?.Name,1,5));
7 m+ y# _* o4 \  F: k( }( x1 p: Z        Name:=sprint("Output_Line",m);
  B, I6 K' S9 O6 y2 f! l1 B) m        obj:=str_to_obj(Name);
8 n  i) T3 [# f$ c        obj.val:=?.StatNumIn;
4 Y) x6 ]) w% U1 j  n$ ~6 @0 j( R. O( o        if m>1 then
                Name:=sprint("OutRate_Line",m);
& |. k2 [+ c: Y- R/ V- Y& g                obj:=str_to_obj(Name);
) d) l& O4 ~* B& m( W, E* a                obj.val:=n*100/OutPut_Line1;
: E1 u) |% {; s: T' G% Z% N. p( }        end;
. ]3 X* [* q8 c! f! F/ mend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
3 A# f2 x# r. A5 a$ cobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点