delphi – 有没有非引用计数的基类,如TInterfacedObject?

前端之家收集整理的这篇文章主要介绍了delphi – 有没有非引用计数的基类,如TInterfacedObject?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我需要一个像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;

猜你在找的Delphi相关文章