Es geht natürlich in dem ich in der Klasse TOAutos einfach einen Eintrag subMarkenName verwende. Aber eigentlich liegt der 'Fehler' ja hier:
Delphi-Quellcode:
procedure TForm1.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
daten: TOAutos;
begin
daten := TOAutos(vst.GetNodeData(node)^);
case Column of
0: celltext:=daten.MarkenName;
1: celltext:=daten.Modell;
2: celltext:=daten.Farbe;
end;
end;
Schmeisse ich hier die 0 raus habe ich in der 1. Spalte ( column[0] ) nur noch node als Eintrag was irgendwie auch Sinn macht
