Home/ Questions/Q 111015
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-11T02:19:05+00:00

i have a class based on TInterfacedObject. i add it to TTreeNode’s Data property.

  • 0

i have a class based on TInterfacedObject. i add it to TTreeNode’s Data property.

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

i create many instances of this object & had assumed that because they’re reference counted, i shouldn’t need to Free them. that’d be handy.

however, when checking this, i turned on ReportMemoryLeaksOnShutdown and found they’re not being freed after all.

these objects are being created in a frame that’s placed on the main form. in the main form’s FormClose, i clear the tree nodes such that every object should be freed.

what’s happening?

thank you for your help!

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. TInterfacedObject itself is not reference counted, only interfaces are. You can implement interfaces using TInterfacedObject which basically saves you the effort of implementing the reference counting methods yourself. Unfortunately it still will not work in your case: The compiler does not know that you are assigning interfaces to the TTreeNode.Data property since it is not declared as an interface but as a pointer. So all kinds of weird things will happen:

    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

    As soon as you try to access your object through the .Data property, you will get an access violation.

    So, don’t bother with interfaces in this case, you could get it to work, but it will be much more effort than it is worth.

    • 0