ComboBox: keine doppelten Einträge

[yankee]

Ich will aus einer ComboBox (mit sorted=True) alle doppelten Einmträge entfernen. Das sieht dann soi aus:

Delphi-Quellcode:

for i :=1 to VerlagcomboBox.Items.Count do
    begin
        if VerlagcomboBox.Items.Names[i] =VerlagcomboBox.Items.Names[i+1] then VerlagComboBox.Items.Delete(i);
    end;

Funzt aber nicht. Was ist falsch?

[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;

[Markus K.]

Hallo yankee,
versuche es mal so.

Delphi-Quellcode:

for i :=0 to VerlagcomboBox.Items.Count-1 do 
begin 
     if VerlagcomboBox.Items.Names[i] =VerlagcomboBox.Items.Names[i+1] 
     then VerlagComboBox.Items.Delete(i); 
end;

Tschüß Markus

[toms]

Musst noch eine DownTo-Schleife nehmen!