TListView Duplikate rückwärts löschen

[marabu]

Guten Morgen,

hier noch eine tageslichttaugliche Alternative:

Delphi-Quellcode:

procedure RemoveDuplicates(items: TListItems; index: Integer);
var
  i: Integer;
  isEqual: Boolean;
begin
  items.BeginUpdate;
  for i := Pred(items.Count) downto 1 do
  begin
    if index < 0
      then isEqual := AnsiSameText(items[Pred(i)].Caption, items[i].Caption)
      else isEqual := AnsiSameText(items[Pred(i)].Subitems[index], items[i].Subitems[index]);
    if isEqual then
      items[Pred(i)].Delete;
  end;
  items.EndUpdate;
end;

Grüße vom marabu