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