Listbox Einträge vergl., bei Doppelbelegung einen Löschen

[DeddyH]

Mal so eine Idee:

Delphi-Quellcode:

procedure DeleteDoubleItems(const sl: TStrings; MaxIndex: integer = -1);
var i: integer;
begin
  sl.BeginUpdate;
  try
    if (MaxIndex < 0) or (MaxIndex >= sl.Count) then
      MaxIndex := Pred(sl.Count);
    for i := MaxIndex downto 1 do
      if sl.IndexOf(sl[i]) < i then
        sl.Delete(i);
  finally
    sl.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteDoubleItems(ListBox1.Items);
end;