Daten-Rekord zu TreeView hinzufügen - Problem/AV

[Aviator]

Zitat von Jim Carrey:

Wo die AV auftritt weiß ich nicht. Der Code hat wie gesagt bisher immer wunderbar funktioniert.

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);

 CellText := Data.sTitle;  // <------------------  HIER FEHLT EIN ZIRKUMFLEX
end;

Das sollte der Fehler sein. Richtig müsste es lauten: CellText := Data^.sTitle;