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

yl641305861

is
) W( H4 v- z( Y: I/ {        m,n:integer;
. {9 _" p) A2 e* e" l        Name:string;
        obj:object;
# P7 T0 o* K3 X# S, i2 c! Tdo
' ^# u5 [/ D2 Y9 d! ?; h* @$ J        m:=str_to_num(omit(?.Name,1,5));
3 q& V6 c! k( j        Name:=sprint("Output_Line",m);
1 B9 v1 ], R7 e+ [- K; x' J& o7 F        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
7 I* k+ T' a1 v        if m>1 then
9 ^8 S1 O3 Q' c& t- Q6 ]                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点