ComboBox: keine doppelten Einträge

[toms]

Hi,

Hier eine andere Variante:

Delphi-Quellcode:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    with sl do
    begin
      sl.Sorted := True;
      Duplicates := dupIgnore;
      Assign(ComboBox1.Items);
    end;
    ComboBox1.Items.Assign(sl);
  finally
    sl.Free;
  end;