delphi – 有没有非引用计数的基类,如TInterfacedObject？
发布时间：2020-12-15 10:14:39 所属栏目：大数据 来源：网络整理
导读：我需要一个像TInterfacedObject这样的基类，但没有引用计数(因此是一种TNonRefCountedInterfacedObject)。 这实际上是第n次我需要这样的一个班，不知何故，我总是最后一次又一次地写我自己的书写(阅读：复制和粘贴)。我不能相信没有我可以使用的“官方”基础
|
我需要一个像TInterfacedObject这样的基类，但没有引用计数(因此是一种TNonRefCountedInterfacedObject)。
这实际上是第n次我需要这样的一个班，不知何故，我总是最后一次又一次地写我自己的书写(阅读：复制和粘贴)。我不能相信没有我可以使用的“官方”基础班。 在RTL实现IInterface中有没有基类，但没有引用计数，我可以从中导出我的类？ 解决方法
在单元Generics.Defaults中定义了一个类TSingletonImplementation。提供德尔福2009及以上版本。
// A non-reference-counted IInterface implementation.
TSingletonImplementation = class(TObject,IInterface)
protected
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
end;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |