我有一个基于TInterfacedObject的类.我将它添加到TTreeNode的Data属性.
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属性访问对象,就会遇到访问冲突.
所以,在这种情况下不要打扰接口,你可以让它工作,但它将比它的价值更多的努力.