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

yl641305861

is
4 R" z0 x8 |1 Z7 A/ e        m,n:integer;
        Name:string;
4 m4 s2 D/ H$ J0 \0 S# y/ \        obj:object;
9 p6 [+ K0 a  P' Odo
5 r3 D& u1 U4 r% S# }        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
9 K( h7 F1 Y) l# O3 h( X1 b: `        obj.val:=?.StatNumIn;
7 @8 ]8 Z: H6 Q6 q3 L5 q        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
* L/ d9 O0 v: i7 y8 G$ @/ i6 N% @        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点