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

yl641305861

is
) ]& K3 ~! n3 u        m,n:integer;
        Name:string;
" j! d: n( U4 L2 Q2 L: k        obj:object;
7 O8 V* B# S+ U9 M. kdo
/ \: p) F" @2 G        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
9 @7 ]8 u/ x/ c/ P        obj.val:=?.StatNumIn;
5 v& P; V: ^" [3 o" E  W        if m>1 then
. Z, q% H) X+ G                Name:=sprint("OutRate_Line",m);
& U# A6 U9 D7 v# l' n$ _                obj:=str_to_obj(Name);
. w( T! K0 x! M0 Y6 w                obj.val:=n*100/OutPut_Line1;
# c4 @# E6 `5 u' C6 e1 I        end;
end;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点