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

xinzhihuoyan

新手求助
使用软件版本12，根据plant simulation 教材做的案例，下面这个代码没法通过。请各位大神帮助提示错在那里。
" ~! R/ M) c- Q4 @( N' r(attribute: string; oldValue: any)
is
7 g( {( K$ `' w' E+ D) p! J        do
        if ?.Pause then
& o' e+ y8 C7 ], m' Q$ R                ?.CurrIconNo:=2;
$ s) }; e, A6 h2 z        elseif ?.failed then
, |2 v2 |) n# b' G  J6 T                ?.CurrIconNo:=3;
8 Y2 i. l: G% o  n; ]        else
                ?.CurrIconNo:=1;
        end;
& x! e, L4 ]: s' j, |: |end;

3 o9 E9 M, d) y) ]3 K控制台报错信息：
方法 '.模型.框架.SetIcon'（位于第 4 行）出错: 'void' 无法接受方法 'Pause'。

dongshui8558

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

xinzhihuoyan

还请帮忙看看，谢谢啦

xinzhihuoyan

dongshui8558 发表于 2016-10-31 13:00
/ E, |+ p2 _- D% @- X) m/ ^7 j上传个Demo模型看看，你的问题在于调用这个method的程序，错误是？是空对象。 ...

8 Y  i6 Y* _/ x+ [我把demo上传了，帮忙看看。不甚感激。

xinzhihuoyan

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

dongshui8558

应该是0,1,2，不能等于3，是从零开始算的。
$ e+ i/ m& I" r/ a(attribute: string; oldValue: any)
is
. |; i( H6 ^7 A0 a9 ^( tdo
        if ?.Pause then
                ?.CurrIconNo := 1;
        elseif ?.failed then
* B& g3 |* t. n1 M                ?.CurrIconNo := 2;
        else
6 P: ^9 r. o3 ^/ J) P                ?.CurrIconNo:=0;
        end;
end;

dongshui8558

在SingleProc中添加一个Observer，然后加入相关状态属性变化的响应即可。
+ U) o1 s' [1 u( v; t如附件所示。

xinzhihuoyan

非常感谢您的指点

devin

非常實用的例子