求高手点拨

sunnyzhao

is
        m,n:integer;
        Name:string;
        Obj:Object;
do
2 p$ Q) w7 n4 u5 e+ Z2 j  d        m:= str_to_num(omit(?.Name,1,5));
# h! x) X  g3 c4 b3 `( \       
5 z( z1 `* r& l3 r) `* I        Name:=sprint("Output_Line1",m);
9 s+ F0 B1 P: e, O, ^8 c. H1 B        Obj:=str_to_obj(Name);
7 B8 o0 \; Y( C8 u5 i        Obj.val:=?.StatNumIn;
        if m>1 then
! C5 f# n2 z' j1 r                Name:=sprint("OutRate_Line",m);
  A4 j* M7 R- `3 c8 t8 P1 Z$ h                Obj:=str_to_obj(Name);
2 v: Q8 r; p1 u6 h# V! M% i* v                Obj.val:=n*100/OutPut_Line1;
        end;
end;
这个编程有错误吗？

老马多拉

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

老马多拉

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

sunnyzhao

老马多拉 发表于 2012-8-3 19:32
0 J/ a3 E0 @+ h5 a4 S2 Z另外注意，这个method是不能单独运行的。

3 S- \2 _  D) a9 A1 o3 W谢谢您的回复！

小、虞姬

老马多拉 发表于 2012-8-3 19:32
2 E$ c; A% T8 h2 k3 K另外注意，这个method是不能单独运行的。

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

爱不会累

我也遇到这个问题了