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

yl641305861

is
1 m8 V  ~+ \1 K  ~  J% o& H        m,n:integer;
        Name:string;
        obj:object;
6 U. O' Y, |" `, M) Kdo
        m:=str_to_num(omit(?.Name,1,5));
1 g& }3 @* ~7 n& ^) m: u" s        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
8 g1 r. N2 E, X- M' H# n        if m>1 then
2 R+ p. p4 `) P2 Q, c1 L7 @% s6 T: O                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
/ D+ U0 g8 r' s2 ]5 O4 d& |                obj.val:=n*100/OutPut_Line1;
8 n; `* w& l3 Z& }- s2 f! H        end;
( z7 V: y8 [3 t+ Y6 Rend;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点