Hallo,
versuche mal folgendes
Zitat von
karl der große:
Code:
procedure TKalk.FormCreate(Sender: TObject);
var
TreeObject: TTreeDataClass;
Wurzel: PVirtualNode;
begin
....
begin
TreeObject.Objektnummer := db_objektkunde.fieldbyName('Objektnummer').AsString;
TreeObject.Objektbeschreibung := db_objektkunde.fieldbyName('Objektbeschreibung').AsString;
addvstObject(vst, Wurzel, TreeObject);
db_objektkunde.next;
end;
db_kunden.next;
end;
vst.endupdate; /*hier dies hast Du vergessen*/
end;
Somit sollte es gehen, ansonsten sieht der Code auf den ersten Blick ganz gut aus. Ohne diese Zeile kommst Du bei OnGetText niemals an, somit erklärt sich auch warum da nur Node steht.