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

xinzhihuoyan

新手求助
使用软件版本12，根据plant simulation 教材做的案例，下面这个代码没法通过。请各位大神帮助提示错在那里。
3 z& x2 \! s& P- r4 M& p" F(attribute: string; oldValue: any)
is
        do
% h2 e: {: s1 c! |" N" z* [! D. `        if ?.Pause then
3 L, s1 q2 L0 Z                ?.CurrIconNo:=2;
        elseif ?.failed then
  |' S8 m9 g. L3 L2 v( T' D" x                ?.CurrIconNo:=3;
! r0 K. }# `; a! V$ `$ L        else
3 s+ c5 U% M/ V: J                ?.CurrIconNo:=1;
        end;
$ W4 B; I3 Q, B6 Vend;
* m, g$ {) Y2 ^& ~. F
控制台报错信息：
方法 '.模型.框架.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，是从零开始算的。
0 ?1 ^* Y8 c  ]- }4 G(attribute: string; oldValue: any)
6 s; j$ ^; w7 D1 u, ^0 p0 I4 Ais
4 T  A" L  d* ndo
        if ?.Pause then
                ?.CurrIconNo := 1;
, b) ^" T  x  N/ O' N8 R& N        elseif ?.failed then
( n1 l5 ^/ U+ U/ d                ?.CurrIconNo := 2;
4 Y0 [: S# ~0 h* q, H  B4 ~        else
( W+ z# U5 \4 \  f! [9 w$ Y                ?.CurrIconNo:=0;
+ y: z3 |6 S- v        end;
# z0 Z; @! b2 A9 _5 _2 S( X% [end;

dongshui8558

在SingleProc中添加一个Observer，然后加入相关状态属性变化的响应即可。
5 r( U' N& M+ A$ Q9 @/ S如附件所示。

xinzhihuoyan

非常感谢您的指点

devin

非常實用的例子