delphi - 是否有像 TInterfacedObject 这样的非引用计数基类？

Question

我需要一个像TInterfacedObject这样的基类，但没有引用计数(所以是一种TNonRefCountedInterfacedObject)。

这实际上是我第n次需要这样的类(class)，不知怎的，我总是一次又一次地编写(阅读:复制和粘贴)我自己的类(class)。我不敢相信没有我可以使用的“官方”基类。

RTL 中是否有一个基类实现 IInterface 但没有引用计数，我可以从中派生我的类？

Answer 1

在 Generics.Defaults 单元中定义了一个 TSingletonImplementation 类。适用于 Delphi 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;