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

yl641305861

is
9 A  {$ T" O8 C* K' R$ E! K        m,n:integer;
9 x6 n# ?+ L  x3 ^        Name:string;
" ?' A7 t: w9 s) d) I        obj:object;
+ p' N$ L+ _! d0 ?* w8 cdo
4 ]. @; A* U# e8 ~        m:=str_to_num(omit(?.Name,1,5));
5 a5 X) ]1 n( g$ b: r& i4 h; e        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
3 C- \, C, Y% I8 ~6 W        obj.val:=?.StatNumIn;
        if m>1 then
/ \4 }* n' G/ Z8 G6 q8 N+ c( R9 N                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
8 x) C  B! X! c. |        end;
6 y7 |# C% Q& Lend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
, l" G! e$ M9 A) [obj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点