Herzlich willkommen in der Delphi-PRAXiS, Oghma!
Ich vermute den Fehler in deiner Anpassung der Routine
AddVSTStructure. Sie sollte bei dir etwa so aussehen:
Delphi-Quellcode:
function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
ARecord: TTreeData): PVirtualNode;
var
Data: PTreeData;
begin
Result:=AVST.AddChild(ANode);
Data:=AVST.GetNodeData(Result);
AVST.ValidateNode(Result, False);
Data^ := ARecord;
{alternativ:
Data.id := ARecord.id;
Data.bezeichnung := ARecord.bezeichnung;
}
end;
Gruß Hawkeye