|
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;
[系统软件]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的终结吗？ [Delphi程序]Delphi Access violations 问题的解决之道
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
