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

yl641305861

is
8 n% U; G( F1 M+ F- g        m,n:integer;
        Name:string;
. [) o& ~, l. Y) ]. I% ^        obj:object;
$ Y" C: X, a3 U$ `9 rdo
$ f9 B2 V  C6 I        m:=str_to_num(omit(?.Name,1,5));
2 H8 A9 r& z5 \# M        Name:=sprint("Output_Line",m);
+ F5 c4 |; v1 f9 [6 }# P6 V        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
1 U. Q2 Z$ m% u        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
3 j. @, n  {, O8 t) b: A7 k  C$ k                obj.val:=n*100/OutPut_Line1;
2 n% W9 `+ K- B4 z, i# S3 P% J        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
/ h/ y2 P9 D+ N# |: t& bobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点