Wert in Dtenbank suchen, doppelte aussortieren und anzeigen

[marabu]

Hi,

TEST.DB sieht nach einer Paradox-Tabelle aus, den Zugriff erledigst du sicher über die BDE-Komponenten. Wenn du eine TQuery benutzt, dann kannst du recht einfach alle eindeutigen Werte für UNIT ermitteln:

Delphi-Quellcode:

begin
  ListBox.Clear;
  with TQuery.Create(self) do
  begin
    DatabaseName := '???'; // wie heißt die bei dir?
    SQL.Text := 'SELECT DISTINCT unit FROM test ORDER BY unit';
    Open;
    while not Eof do 
    begin
      ListBox.Items.Add(FieldByName('UNIT').AsString);
      Next;
    end;
    Close;
    Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu