更改图标的代码报错，pause属性无法被接受

xinzhihuoyan

新手求助
使用软件版本12，根据plant simulation 教材做的案例，下面这个代码没法通过。请各位大神帮助提示错在那里。
(attribute: string; oldValue: any)
is
$ D8 q, O5 r- r1 S        do
8 ]. S& K! D1 ^1 E& G. j8 [3 m        if ?.Pause then
. ?: |' f. R/ a' t* C4 T                ?.CurrIconNo:=2;
7 \) m) m% v: h: k3 N        elseif ?.failed then
; u8 k. ~5 G" U7 e% T                ?.CurrIconNo:=3;
        else
0 C1 J) I, g: _4 ^& E                ?.CurrIconNo:=1;
+ |5 y4 L4 Q) Q/ d8 r' N1 q        end;
end;
2 i) M: y! X8 [5 Z% g
8 g# B# v+ W$ c4 F. I- K控制台报错信息：
+ V( X; T+ u( S3 ?9 |) }方法 '.模型.框架.SetIcon'（位于第 4 行）出错: 'void' 无法接受方法 'Pause'。

dongshui8558

上传个Demo模型看看，你的问题在于调用这个method的程序，错误是？是空对象。

xinzhihuoyan

还请帮忙看看，谢谢啦

xinzhihuoyan

dongshui8558 发表于 2016-10-31 13:00
8 z5 j: Z' [; e- S. S; n8 t上传个Demo模型看看，你的问题在于调用这个method的程序，错误是？是空对象。 ...

我把demo上传了，帮忙看看。不甚感激。

xinzhihuoyan

安装例子的说法是不同的状态singleproc会有不同的颜色来表示。
3 R; @/ E  k) W8 C@和？在sim-talk中的用法能不能指点一下。谢谢

dongshui8558

应该是0,1,2，不能等于3，是从零开始算的。
; Q/ J3 W% @3 h$ K(attribute: string; oldValue: any)
, Y( `% }$ k; i+ Kis
do
' R/ m& G  s8 u/ m        if ?.Pause then
                ?.CurrIconNo := 1;
        elseif ?.failed then
                ?.CurrIconNo := 2;
5 ?/ x+ w6 |/ _) o: c        else
! E3 s- v. L  s$ n' ]) t                ?.CurrIconNo:=0;
. a( [7 F0 d0 H- |+ Q3 P0 f        end;
" u" Z/ _1 r" n' cend;

dongshui8558

在SingleProc中添加一个Observer，然后加入相关状态属性变化的响应即可。
' T) A# a7 l$ U. A: P+ h如附件所示。

xinzhihuoyan

非常感谢您的指点

devin

非常實用的例子