DBlistbox ?

[marabu]

Hier eine mögliche Vorgehensweise:

Delphi-Quellcode:

procedure TForm1.TableAfterPost(DataSet: TDataSet);
begin
  with DBComboBox do
    if Items.IndexOf(Field.AsString) < 0 then
      Items.Add(Field.AsString);
end;

Die Eigenschaft Sorted der ComboBox sollte dabei TRUE sein.

marabu