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

yl641305861

is
        m,n:integer;
        Name:string;
0 v5 c. {/ f# g5 P; r        obj:object;
do
        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
: P% J6 F# P0 S/ D/ ~2 h0 u        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
1 j. A( V1 v( o" |2 S+ q        if m>1 then
9 M2 V2 H! g( Z4 N$ n3 z1 W                Name:=sprint("OutRate_Line",m);
4 J: D* b: W+ a% |! w                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
+ ~4 w# f/ P# O, lobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点