ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 设计模式、用Delphi描述-->Reference Count pattern (转)

设计模式、用Delphi描述-->Reference Count pattern (转)

原创 Linux操作系统 作者:worldblog 时间:2007-12-11 12:53:43 0 删除 编辑
设计模式、用Delphi描述-->Reference Count pattern (转)[@more@]

 

Reference Count 模式(引用记数)

起源

Reference Count模式是一种相对简单,但实用性很强,比如COM中的引用记数就是COM生命周期控制的基础,同样也是Observer模式(详细请见Observer模式)的生命周期的基础。

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

利用Reference Count的模式来控制对象的生命周期。对于引用记数中对象将是可利用的对象,否则对象将析构自身。

动机

Reference Count模式的基础与Lock的基础很相类似。唯一不同的是Lock预先定义、固定的。它的具体的类的应用时也与Lock模式类似。Reference Count模式默认一种行为方法:SetReferenced,同样当具体使用些模式时,你可以创建自己习惯的方法。如

 

Reference Count模式在singleton模式中会有比较好的应用。

应用

unit ReferenceCount;

 

 

 

  TRefCountSample = class (Tobject)

  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;

Delphi实例: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;

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-991339/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2411180