Einzelnen Beitrag anzeigen

Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#1

Elegantes auslesen aller Werte eines Feldes

  Alt 18. Jul 2006, 01:57
Datenbank: ADS • Zugriff über: TAdsTable
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?
  Mit Zitat antworten Zitat