TreeView aus DB füllen

[aschne1]

Delphi-Quellcode:

DeineQuery.First
while not DeineQuery.Eof do                                          // Alle Datensätze durchlaufen
begin
  TreeView1.Items.AddChild(nil,DeineQuery.FieldByName('Feldname').AsString);
  Next;
end;

Fügt Rooteinträge hinzu, für Untereinträge weitere Schleifen...

Gruss