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: Boolean;

»   FOnChange: TNotifyEvent;

  protected

»   procedure Change;

  published

    property Enabled: Boolean read FEnabled write FEnabled;

»   property OnChange: TNotifyEvent read FOnChange write FOnChange;

  end;

implementation

procedure TSubject.Change;

var

» Obs: TSubjectObserver;

» I: Integer;

begin

» for I := 0 to FObservers.Count - 1 do

» begin

»   Obs := FObservers[I];

»   if Obs.Enabled then Obs.Change;

» end;

end;

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;

procedure TSubjectObserver.Change;

begin

» if Assigned(FOnChange) then FOnChange(Self);

end;

在上面的實現代碼中:

?      Tsubject的Change方法迭代所有注冊的觀察者，并調用每個觀察者的Change方法，一個對多通知的實現。

?      觀察者的Enabled屬性決定它是或接受通知

?      TsubjectObserver的OnChange事件真正的處理同步等操作。

Delphi實例

正在組織

//很多摘自《設計模式》