为什么不收集TInterfacedObject垃圾的后代？

问题描述：

我有一个基于TInterfacedObject的类。我将它添加到TTreeNode的Data属性中。为什么不收集TInterfacedObject垃圾的后代？

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

我创建这个对象&的许多情况下，曾以为，因为他们是引用计数的，我不应该需要释放他们。那会很方便。然而，当检查这个时，我打开了ReportMemoryLeaksOnShutdown，发现它们并没有被释放。

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

发生了什么事？

谢谢你的帮助！

答

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属性访问您的对象，您将得到一个访问冲突。

所以，在这种情况下，不要打扰接口，你可以让它工作，但它会比它的价值更多的努力。

谢谢你的回答;我将使用TObject代替。学到了新东西！ – 2009-01-27 22:13:19

答

你应该声明字段/变量作为接口

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。

谢谢你的回答。我不喜欢让getters/setter，所以我想我会让它从TObject下降。 – 2009-01-27 22:10:59

@Cesar Romero：请编辑你的代码，它永远不会编译（接口不能有数据成员，也不会有任何私有的）。 – mghie 2009-01-27 22:48:22

答

由于dummzeuch said，你可以得到这个接口的工作，但它需要更多的代码，因为TTreeNode的Data属性是一个指针。对于任何人想知道如何做到这一点，this link有一个如何做TListItem的例子（它与TTreeNode几乎相同）。您也可能会发现阅读关于interfaces的部分以及关于该页面上引用计数的后续部分很有用。

为什么不收集TInterfacedObject垃圾的后代？

相关推荐