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

Reference Count 模式(引用记数)

起源

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

目的

利用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;