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