Elegantes auslesen aller Werte eines Feldes

[Michael Habbe]

Warum nur so umständlich? Nimm ne TAdsQuery und sage dem SQL
select distinct Ort from Postleitzahlen order by Ort und dann rein in die StringList

Delphi-Quellcode:

AdsQuery.SQL.Text := 'select distinct Ort from Postleitzahlen order by Ort';
AdsQuery.Open;
AdsQuery.First;
while not AdsQuery.Eof do
begin
  SL.Add(AdsQuery.FieldByName('Ort').AsString);
  AdsQuery.Next;
end;
AdsQuery.Close;