Wert in Dtenbank suchen, doppelte aussortieren und anzeigen

[ByStones2]

Zitat von 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
    [color=#ff003f]DatabaseName[/color] := '???'; // wie heißt die bei dir?
    SQL.Text := 'SELECT DISTINCT unit FROM test ORDER BY unit';
    [color=#ff003f]Open[/color];
    while not Eof do 
    begin
      ListBox.Items.Add([color=#ff005f]FieldByName[/color]('UNIT').[color=#ff003f]AsString[/color]);
      Next;
    end;
    Close;
    Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

Oje, das ist zu hoch für mich...
Ich hab ein bisschen was geändert, aber er unterstreicht noch eine ganze Menge Rot...

Bei Mir sieht das jetzt so aus:

procedure TForm12.FormShow(Sender: TObject);
begin
ListBox1.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
ListBox1.Items.Add(FieldByName('UNIT').AsString);
Next;
end;
Close;
Free;
end;
end;

Stop zurück, jetzt is nichts mehr unterstrichen...
Was muss ich hinter DataBaseName eintragen ???