求高手点拨

sunnyzhao

is
) R! _4 i2 V6 p9 x! y1 v- J        m,n:integer;
0 L/ Z0 m& }, z6 y0 {        Name:string;
1 l' q0 Z/ Q. R+ v6 y7 a# F        Obj:Object;
do
% ~* `  U: a/ B3 p- L+ a; L6 s, t        m:= str_to_num(omit(?.Name,1,5));
/ L3 e4 Z) S  S0 ^2 s! [( p) W       
: n! u1 ~0 I: x9 E8 H# A; e. Z3 L        Name:=sprint("Output_Line1",m);
3 p; a% B2 F6 @" {3 z# p% [$ d+ c        Obj:=str_to_obj(Name);
# `. X  d0 X0 u$ `* y        Obj.val:=?.StatNumIn;
# G: O% \# p, U( [        if m>1 then
6 H4 u. t2 a* E% h2 I4 P1 S& G                Name:=sprint("OutRate_Line",m);
                Obj:=str_to_obj(Name);
" N0 a& j& g) M, c% _                Obj.val:=n*100/OutPut_Line1;
        end;
end;
这个编程有错误吗？

老马多拉

抱歉，这是教材的失误，请参见附件《勘误表》

老马多拉

另外注意，这个method是不能单独运行的。

sunnyzhao

老马多拉 发表于 2012-8-3 19:32
4 I% `4 P, \# w另外注意，这个method是不能单独运行的。

2 h$ r# k) t5 c8 B谢谢您的回复！

小、虞姬

老马多拉 发表于 2012-8-3 19:32
另外注意，这个method是不能单独运行的。

' G2 q& p8 h' d4 q您好，按勘误表改了method，但是还是运行时还是出现了问题。请问这是怎么回事？我刚刚开始学习，关于如何调试也不是很清楚，请多指点~

爱不会累

我也遇到这个问题了