Delphi-Quellcode:
Node := TNode.Create(CompareStr);
Data := TNodeData.Create(0,'TButton',nil,Node);
Data.KeyStr := 'TButton';
Root.AddSubnode(TNode.Create(CompareStr),Data); // ???
Warum erzeugst du an der markierten Stelle einen neuen Knoten? Das führt doch dazu, dass du an Root einen Knoten einfügst, der ein Data-Objekt enthält, das auf einen Knoten
Node
verweist, der nach Ablauf der Prozedur
CreateNodes
gar nicht mehr da ist.
So sollte es funktionieren:
Root.AddSubnode(Node, Data);