Weiter gehts
Ich habe noch nicht viel mit Pointern und Objekten programmiert. Ich will nun die Spalte korrekt beschriften und das Tutorial hat dazu diesen Code:
Delphi-Quellcode:
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: Integer; TextType: TVSTTextType; var Text: WideString);
var
Data: PTreeData;
begin
Data:=VST.GetNodeData(Node);
case Column of
0: Text := Data.FCaption;
1: Text := Data.FColumn1;
end;
end;
Leider ist das noch die Geschichte ohne Objekte und ich frage mich nun, wie ich die Eigenschaften meines Objektes ansprechen soll. Irgendwas mit
Data^.FObject...
oder so?