求高手点拨

sunnyzhao

is
        m,n:integer;
& r% ^  i) e1 [. K0 P5 w        Name:string;
0 a1 x3 W1 J; T) @6 i$ `9 t6 U1 k        Obj:Object;
! V" l5 c2 s: f  }do
        m:= str_to_num(omit(?.Name,1,5));
. c( T" i3 E4 c6 a, }       
        Name:=sprint("Output_Line1",m);
        Obj:=str_to_obj(Name);
        Obj.val:=?.StatNumIn;
& r9 C% K: C) m& i        if m>1 then
                Name:=sprint("OutRate_Line",m);
                Obj:=str_to_obj(Name);
$ x8 A0 M9 J4 F" n; G( W/ X                Obj.val:=n*100/OutPut_Line1;
; V6 A$ t, J* _% x- ~        end;
end;
4 Z, I. [- d' Y- O: j这个编程有错误吗？

老马多拉

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

老马多拉

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

sunnyzhao

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

谢谢您的回复！

小、虞姬

老马多拉 发表于 2012-8-3 19:32
' R2 |! ~% N. z4 i( W9 d+ o另外注意，这个method是不能单独运行的。

$ A2 g, ~8 z; N+ b: `# C) D您好，按勘误表改了method，但是还是运行时还是出现了问题。请问这是怎么回事？我刚刚开始学习，关于如何调试也不是很清楚，请多指点~

爱不会累

我也遇到这个问题了