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

xinzhihuoyan

新手求助
$ a9 h7 |: _) G0 \) X: o) h使用软件版本12，根据plant simulation 教材做的案例，下面这个代码没法通过。请各位大神帮助提示错在那里。
9 y" [! c" E7 a* S/ b' N' d! r(attribute: string; oldValue: any)
is
        do
        if ?.Pause then
5 l$ p# l& @; F1 @8 Y                ?.CurrIconNo:=2;
( D' T  R4 C0 C9 k5 {        elseif ?.failed then
                ?.CurrIconNo:=3;
1 X. _5 A8 W$ y+ }; p$ j; P        else
! X/ o+ H. x. W                ?.CurrIconNo:=1;
        end;
8 l1 o+ v2 t3 A+ N4 kend;
1 {* w5 ]& U( h( K7 h
; K0 d- \6 U  d1 F控制台报错信息：
# N& b4 Q( m3 ^方法 '.模型.框架.SetIcon'（位于第 4 行）出错: 'void' 无法接受方法 'Pause'。

dongshui8558

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

xinzhihuoyan

还请帮忙看看，谢谢啦

xinzhihuoyan

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

" D: A/ C& j: T5 [4 u% V! c6 S* d我把demo上传了，帮忙看看。不甚感激。

xinzhihuoyan

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

dongshui8558

应该是0,1,2，不能等于3，是从零开始算的。
(attribute: string; oldValue: any)
/ g+ ~3 ^& t+ O0 N! G" _& yis
3 X8 T6 t4 ?2 Z% \, Ido
        if ?.Pause then
                ?.CurrIconNo := 1;
        elseif ?.failed then
% B+ h  o" |% ^& \# A- T                ?.CurrIconNo := 2;
        else
+ L( d$ F& }1 P; W                ?.CurrIconNo:=0;
  K* @" W1 Y- ~- C+ D2 k: Y" ?2 Q% K        end;
9 L: ]2 R! R/ a$ c4 i8 Q9 Mend;

dongshui8558

在SingleProc中添加一个Observer，然后加入相关状态属性变化的响应即可。
3 Z6 }1 g6 x. X" N% j如附件所示。

xinzhihuoyan

非常感谢您的指点

devin

非常實用的例子