为什么不对TInterfacedObject的后代进行垃圾回收？

Question

我有一个基于TInterfacedObject的类。我将它添加到TTreeNode的Data属性中。

TFacilityTreeItem=class(TInterfacedObject)
private
  m_guidItem:TGUID;
  m_SomeOtherNode:TTreeNode;
public
end;

我创建了这个对象的许多实例&假设因为它们是引用计数的，所以我不需要释放它们。那会很方便的。

然而，当我检查这一点时，我打开了ReportMemoryLeaksOnShutdown，并发现它们毕竟没有被释放。

这些对象是在放置在主窗体上的框架中创建的。在主窗体的FormClose中，我清除了树节点，这样每个对象都应该被释放。

发生什么事了呢？

谢谢你的帮助!

Answer 1

TInterfacedObject本身不计算引用，只有接口计算。您可以使用TInterfacedObject实现接口，这基本上省去了您自己实现引用计数方法的工作。不幸的是，它在您的情况下仍然不起作用:编译器不知道您正在将接口分配给TTreeNode.Data属性，因为它没有被声明为接口，而是被声明为指针。所以所有奇怪的事情都会发生：

MyInt := TFacilityTreeItem.Create; // ref count = 1
// Node.Data := MyInt; // won't compile
Node.Data := pointer(MyInt); // no interface assignment, ref count stays 1
...
end; // ref count reaches 0, your object gets freed

一旦您尝试通过.Data属性访问您的对象，就会遇到访问冲突。

所以，在这种情况下，不要为接口而烦恼，你可以让它工作，但它的工作量会比它的价值大得多。

Answer 2

应将Field/Variable声明为Interface

IFacilityTreeItem = IInterface
end;

TFacilityTreeItem=class(TInterfacedObject, IFacilityTreeItem)
private
  m_guidItem:TGUID;
  m_SomeOtherNode:TTreeNode;
end;

var
  Item: IFacilityTreeItem; // Variable as Interface
begin
  Item:= TFacilityTreeItem.Create;
...
end;

要访问字段，您应该在IFacilityTreeItem接口中使用Getter和Setter声明属性。

Answer 3

作为dummzeuch said，您可以让它与接口一起工作，但它需要更多代码，因为TTreeNode的Data属性是一个指针。对于任何想知道如何做到这一点的人来说，this link有一个如何在TListItem上做到这一点的例子(对于TTreeNode来说几乎是一样的)。您可能还会发现，阅读该页面上关于interfaces的部分以及随后关于引用计数的部分是很有用的。