|
Observer 模式
起源
Delphi中的Observer模式在基本Observer模式进行了扩展。更多Observer模式的资料请参 [Gam+, pages 293..303]
目的
定义一个对象间的一种一对多的依赖关系，当一个对象状态发生变化时，所有依赖于它的对象者得到通知并自动更新
动机
将一个系统分割成一系列相互协作的类有一定的副作用：必须给护相关对象间的一致性。我们不希望为了维扩一致性而使各类紧密耦合，因为这样降低了它们的重用性。[Gam+, p293].
Delphi的事件（实际的方法地址）让你有一个处理这些问题的好的结构，事件让你消除耦合并更好的耦合，比如：事件TButton.OnClick被分派去完成相关的工作。但类并不保存对事件句柄的引用。在observer模式中，分派事件的类称为目标对象（subject），而控制事件的类称为观察者（observer）
所在Delphi的事件更好的消除类的耦合，如果你想对多个事件进行控制，引用observer模式，你可以进立一对多的通知机制。一个目标可以有任意多个观察者。所有的观察者都会目标的状态改变时接受通知。观察者接到通知后，立即查询目标对象，以保持与目对象的同步。
这种交互也称为发布—订阅，目标是通知的发布者。它发现通知时并不需要知道谁是它的观察者。可以有任意数目观察者订阅并接收通知。
应用
这个observer模式应用会带给你Delphi事件机制在处理类耦合优势。一对多的结构通过registering和un-registering来注册观察者。一对多的机制实际应用在的迭代器的基础。
假设你有一个Tsubject类定义了有意义的行为。先看看一段observer模式的演示代码：
type
TSubject = class (TObject)
private
FObservers: TList;
public
procedure RegisterObserver(Observer: TSubjectObserver);
procedure UnregisterObserver(Observer: TSubjectObserver);
end;
TSubjectObserver = class (TComponent)
private
FEnabled: Boolean;
published
property Enabled: Boolean read FEnabled write FEnabled; default True;
end;
有上面的接口中:
· 一个注册机制用于为Tsubject注册观察者。
¨ FObservers: TList;存贮已注册的观察者。
¨ RegisterObserver(..)用于注册观察者，并增加到Fobservers。
¨ UnregisterObserver(..)用于注消观察者，并从Fobservers移去相关对象。
· observer模式还需创建一个新的类TSubjectObserver
¨ 此类为Tcomponent的后代。
¨ .一个Enabled属性设置观察的开与关。.
下面的observer模式的实际应:
procedure TSubject.RegisterObserver(Observer: TSubjectObserver);
begin
if FObservers.IndexOf(Observer) = -1 then
FObservers.Add(Observer);
end;
procedure TSubject.UnregisterObserver(Observer: TSubjectObserver);
begin
FObservers.Remove(Observer);
end;
上观的实现支持了对观察者的注册部分。那一对多通知机制在哪里呢。实际的一对多通知应用，你可以为Tsubject定义一个Change方法来通知它的注册的观察者，观察者可以定义一个OnChange的事件属性来处理调度。代码如下：
type
TSubject = class (TObject)
private
FObservers: TList;
protected
» procedure Change; {调用此方法来分派通知}
public
procedure RegisterObserver(Observer: TSubjectObserver);
procedure UnregisterObserver(Observer: TSubjectObserver);
end;
TSubjectObserver = class (TComponent)
private
FEnabled: [1] [2] 下一页
[电脑技术]简单描述计算机辅助教学CAI [系统软件]InstallShield Express for delphi制作安装程序定…
[常用软件]InstallShield Express制作Delphi数据库安装程序 [Delphi程序]为什么选择Delphi.Net ？
[Delphi程序]《关于VisiBroker For Delphi的使用》(4) [Delphi程序]Delphi 程序员代码编写标准指南
[Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro… [Delphi程序]Borland Delphi 9 的新特性
[Delphi程序]Delphi 键盘码表 [Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗？
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
