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

yl641305861

is
( s9 W/ G: J- @$ j' s/ M        m,n:integer;
$ Y. \7 z. Y% v- y% C$ F        Name:string;
" G6 _2 h# H2 }* \        obj:object;
/ i1 V0 q: S/ H0 [+ A! |do
8 l/ [5 M+ f5 |5 P9 x5 w" {        m:=str_to_num(omit(?.Name,1,5));
: H5 ~1 \6 M# }2 D0 e        Name:=sprint("Output_Line",m);
1 D: N; ~# Z, ?4 c        obj:=str_to_obj(Name);
* s0 D/ z# A8 `        obj.val:=?.StatNumIn;
        if m>1 then
                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
                obj.val:=n*100/OutPut_Line1;
        end;
7 v5 g& C3 G1 s) v) K2 Pend;

dongshui8558

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

笨小孩儿

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

笨小孩儿

求大神指点