Edit mißt, daß dereferenzieren war hier ja nötig
also nur sirius's vorschlag.
Entweder du gibts beim Fregeiben nur das Objekt vom Elternnode (Level1) frei und nicht bei den SubNodes,
dann wird es auch nur einmal Freigegeben
oder du gibst nur dem Elternnode das Objekt
Delphi-Quellcode:
pNode := VSTSystem.AddChild(nil, DataSys);
pNode := VSTSystem.AddChild(pNode);
pNode := VSTSystem.AddChild(pNode);
VSTSystem.AddChild(pNode);
und wenn du jetzt auf das Objekt zugreifen willst, dann prüfst du dort.
- ist TOSYSTEM(VSTSystem.GetNodeData(Node)^) = nil dann nimm das vom ParentNode (ist es da auch auch NIL geht es so weiter, bis das Objekt gefunden wurde)