求高手点拨

sunnyzhao

is
        m,n:integer;
        Name:string;
        Obj:Object;
' u+ I  G" j  q7 `do
0 Q( @: ~3 d- D, s. z        m:= str_to_num(omit(?.Name,1,5));
$ n" |- v, J3 i$ |1 j       
        Name:=sprint("Output_Line1",m);
/ I  \% ]& L& a  g        Obj:=str_to_obj(Name);
        Obj.val:=?.StatNumIn;
  D8 r0 b# k" [) }$ J        if m>1 then
                Name:=sprint("OutRate_Line",m);
' _9 @7 q5 V/ r  t                Obj:=str_to_obj(Name);
! w7 ^, J+ }" }& B- h; X3 J                Obj.val:=n*100/OutPut_Line1;
        end;
4 z1 P' k' i" V! R0 Cend;
. Q( _/ G# k& J! W- e这个编程有错误吗？

老马多拉

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

老马多拉

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

sunnyzhao

老马多拉 发表于 2012-8-3 19:32
; j2 `' P& g6 m, U3 f2 l另外注意，这个method是不能单独运行的。

6 c* ^0 L) B6 H- J$ U( H8 J$ U$ D谢谢您的回复！

小、虞姬

老马多拉 发表于 2012-8-3 19:32
  X- U! T; g7 N+ T; W另外注意，这个method是不能单独运行的。

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

爱不会累

我也遇到这个问题了