mit Comboboxen nach Datensätzen suchen

[shmia]

Delphi-Quellcode:

// Quick and Dirty
procedure GetLookupList(const TableName, FieldName:string; list:TStrings);
begin
   qry.SQL.Text := 'SELECT '+Fieldname+ ' FROM '+TableName;
   qry.Open;

   while not qry.eof do
   begin
      list.Add(qry.fields[0].AsString); 
      qry.next;
   end;
end;

Und dann einfach
GetLookupList('Kundenstamm', Combo1.Text, Combo2.Items);