Ich bin scheinbar wieder zu doof die Sachen anzuwenden, die ich einst gelernt habe.
Für eine VirtualStringTree die nur sehr wenige Nodes enthalten soll (weniger als 10), benutze ich ein Rekord und folgendes Konstrukt:
Delphi-Quellcode:
type
PVSTData = ^TVSTData;
TVSTData = packed record
sTitle, sInformation: string;
end;
Delphi-Quellcode:
procedure AddVSTStructure(aVST: TVirtualStringTree; aRecord: TVSTData);
var
Data: PVSTData;
Node: PVirtualNode;
begin
Node := aVST.AddChild(nil);
Data := aVST.GetNodeData(Node);
Data^ := aRecord;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aVSTData: TVSTData;
begin
aVSTData.sTitle:= 'Title';
aVSTData.sInformatio := 'Info';
AddVSTStructure(VirtualStringTree1, aVSTData);
end;
procedure TForm1.VirtualStringTree1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
Data: PVSTData;
begin
Data := VirtualStringTree1.GetNodeData(Node);
Finalize(Data^);
end;
Den Code AddVSTStructure habe ich vor langer Zeit hier im Forum gefunden und er hat auch immer funktioniert.
Nur bei diesem simplen Beispiel erhalte ich eine
AV beim Klicken auf den Button (Zugriffsverletzung). Der node wird hinzugefügt, es gibt aber eine
AV.
Das Problem ist: mein Testprojekt enthält nur diesen Button, das VST und sonst nichts.