Ich hab's.
Danke für Eure Hilfe!!!!!
Für alle die ein ähnliches Problem haben. Hier das, was ich falsch gemacht habe.
Also ich hab vergessen unter Header-Columns die Colums anzulegen.
Und das mit dem Fehler - hier der Code der funktioniert:
Delphi-Quellcode:
procedure TKalk.FormCreate(Sender: TObject);
var
TreeObject: TTreeDataClass;
Wurzel: PVirtualNode;
begin
vst.BeginUpdate;
vst.NodeDataSize := SizeOf(TTreeData);
vst.DeleteChildren(vst.RootNode, true);
while not db_kunden.Eof do
begin
TreeObject := TTreeDataClass.Create;
TreeObject.Kunde := db_kunden.fieldByName('Name').AsString;
Wurzel := AddVSTObject(VST, Nil, TreeObject);
while not db_objektkunde.eof do
begin
TreeObject := TTreeDataClass.Create;
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;
end;
Vielen Dank für Eure Mühen - bis zum nächsten Problem.
Werde jetzt weitertüfteln.
