求高手点拨

sunnyzhao

is
        m,n:integer;
9 u7 G* Q8 ~/ M$ u3 W( k        Name:string;
6 w' t" {' O7 V        Obj:Object;
do
        m:= str_to_num(omit(?.Name,1,5));
       
        Name:=sprint("Output_Line1",m);
2 _7 ~& `  ]5 r- M        Obj:=str_to_obj(Name);
9 R7 F1 Y  w8 W/ X! A7 V+ p) U: m% h        Obj.val:=?.StatNumIn;
6 Q& i0 p5 H8 P8 t, R        if m>1 then
4 m  l5 H2 L) s& M" _. a" F" _. }                Name:=sprint("OutRate_Line",m);
4 B' B' e2 K2 `8 f& O6 l7 _/ X4 C                Obj:=str_to_obj(Name);
8 c6 m/ G% c: U6 }: _$ [- \0 J                Obj.val:=n*100/OutPut_Line1;
/ |& ^0 U3 M7 m9 g/ G5 I: B        end;
5 V' E5 b- j1 V" E4 o6 Uend;
这个编程有错误吗？

老马多拉

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

老马多拉

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

sunnyzhao

老马多拉 发表于 2012-8-3 19:32
0 _3 r% y/ b1 t  J- Q& \5 S0 W) r另外注意，这个method是不能单独运行的。

谢谢您的回复！

小、虞姬

老马多拉 发表于 2012-8-3 19:32
" H) ]! {1 x) i; K9 |# S1 u1 F另外注意，这个method是不能单独运行的。

. ~  p9 w6 Z, Q5 H  k3 i您好，按勘误表改了method，但是还是运行时还是出现了问题。请问这是怎么回事？我刚刚开始学习，关于如何调试也不是很清楚，请多指点~

爱不会累

我也遇到这个问题了