設計模式、用Delphi描述-->Reference Count pattern (轉)

設計模式、用Delphi描述--&gtReference Count pattern (轉)[@more@]

 

(引用記數)

起源

Reference Count模式是一種相對簡單，但實用性很強，比如COM中的引用記數就是COM生命週期控制的基礎，同樣也是Observer模式（詳細請見Observer模式）的生命週期的基礎。

目的:namespace prefix = o ns = "urn:schemas--com::office" />

利用Reference Count的模式來控制的生命週期。對於引用記數中物件將是可利用的物件，否則物件將析構自身。

動機

Reference Count模式的基礎與Lock的基礎很相類似。唯一不同的是Lock預先定義、固定的。它的具體的類的應用時也與Lock模式類似。Reference Count模式預設一種行為方法：SetReferenced，同樣當具體使用些模式時，你可以建立自己習慣的方法。如

 

Reference Count模式在singleton模式中會有比較好的應用。

應用

unit ReferenceCount;

 

 

 

  TRefCountSample = class (T)

  private

  FReferenceCnt: Integer;

  protected

  function Referenced: Boolean;

  procedure SetReferenced(IsReferenced: Boolean);

  public

  procedure AddReference;

  procedure RemoveReference;

  end;

 

{

*******************************TRefCountSample*******************************

}

procedure TRefCountSample.AddReference;

begin

  Inc(FReferenceCnt);

  if FReferenceCnt = 1 then SetReferenced(True);

end;

 

function TRefCountSample.Referenced: Boolean;

begin

  Result := (FReferenceCnt <> 0);

end;

 

procedure TRefCountSample.RemoveReference;

begin

  Dec(FReferenceCnt);

  if FReferenceCnt = 0 then SetReferenced(False);

end;

 

procedure TRefCountSample.SetReferenced(IsReferenced: Boolean);

begin

  if not Referenced then Free;

end;

例項：IUnknown

IUnknown = interface

  ['{00000000-0000-0000-C000-000000000046}']

  …

function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

  function _AddRef: Integer; stdcall;

  function _Release: Integer; stdcall;

  end;