Elegantes auslesen aller Werte eines Feldes

[bernau]

Hi,

folgende Problemstellung:

Ich habe eine Datenbank/Tabelle, auf die ich mit einer TTable zugreife. In dieser Tabelle gibt es ein Feld "Ort". Ich möchte alle Orte auslesen und in eine Stringlist kopieren. In der Stringlist sollen die ausgelesenen Orte jeweils einmal vorkommen.

Die einfachste Möglichkeit wäre nun eigendlich folgendes:

Delphi-Quellcode:

sl:=TStringlist.create;
sl.sorted:=true;
sl.duplicates:=dupignore;

DieTabelle.first;

while not DieTabelle.eof do
  begin
   sl.add(DieTabelle.fieldbyname('Ort').asstring);   
   DieTabelle.next;
  end;


etc.

Bei einer Tabelle, in der wenige Orte sehr oft vorkommen, ist dies allerding nicht die effizienteste vorgehensweise.

Beispiel: In der Tabellen kommen jeweils 2000 mal der Ort Köln, Hamburg und Berlin vor. Insgesamt besitzt die Tabelle somit 6000 Einträge. Als Ergebnis sollen letztendlich 3 Einträge herauskommen. Dazu werden im oberen Beispiel aber 6000 Zugriffe auf die Tabelle durchgeführt.


Da muss es doch eine bessere Lösung geben. Oder?