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

xinzhihuoyan

新手求助
9 m3 L. t# V$ c5 d: t! F" l使用软件版本12，根据plant simulation 教材做的案例，下面这个代码没法通过。请各位大神帮助提示错在那里。
6 u% J# Q  L  [  F  V' V(attribute: string; oldValue: any)
is
) p  \' u5 ]1 @1 p; d9 U. o) k9 d        do
        if ?.Pause then
                ?.CurrIconNo:=2;
' ?* ?$ v4 H3 v" G+ v, v( M4 x        elseif ?.failed then
                ?.CurrIconNo:=3;
$ |9 C: \1 E0 X! s  \2 |- S% y        else
                ?.CurrIconNo:=1;
5 J- k1 _( h$ N) p        end;
end;

) z; T0 k4 \) N0 k+ ^! Y  H& V控制台报错信息：
方法 '.模型.框架.SetIcon'（位于第 4 行）出错: 'void' 无法接受方法 'Pause'。

dongshui8558

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

xinzhihuoyan

还请帮忙看看，谢谢啦

xinzhihuoyan

dongshui8558 发表于 2016-10-31 13:00
上传个Demo模型看看，你的问题在于调用这个method的程序，错误是？是空对象。 ...

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

xinzhihuoyan

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

dongshui8558

应该是0,1,2，不能等于3，是从零开始算的。
8 [2 z& n: Q& q$ V9 Y(attribute: string; oldValue: any)
is
4 ?& g' s+ c# b$ ^/ H9 Zdo
! k3 m" [! f% E/ p        if ?.Pause then
                ?.CurrIconNo := 1;
        elseif ?.failed then
1 w8 H( L' X8 q6 H4 G) l                ?.CurrIconNo := 2;
8 m! |4 F7 u" {2 f        else
                ?.CurrIconNo:=0;
        end;
( x+ o- x# t! p" R: Jend;

dongshui8558

在SingleProc中添加一个Observer，然后加入相关状态属性变化的响应即可。
- k) F9 ~4 q. [, P; k1 u* b4 `如附件所示。

xinzhihuoyan

非常感谢您的指点

devin

非常實用的例子