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

yl641305861

is
7 `% n- j. t# p+ i        m,n:integer;
        Name:string;
1 X& i+ {9 q2 }' b) R$ W; o        obj:object;
5 Z' {, k) s' ado
        m:=str_to_num(omit(?.Name,1,5));
        Name:=sprint("Output_Line",m);
        obj:=str_to_obj(Name);
" p; J1 f& I8 [5 s0 S        obj.val:=?.StatNumIn;
& ~# }/ ?& F4 y" i. Y        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
6 Z' t4 i9 _9 y; |% D( x                obj.val:=n*100/OutPut_Line1;
7 w/ \6 m+ Q0 [! s. J        end;
3 l' E9 N4 `& ^end;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
* x! D9 b1 A5 v7 l' F- gobj.val:=n*100/OutPut_Line1;

笨小孩儿

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

笨小孩儿

求大神指点