TListView Duplikate rückwärts löschen

[Hawkeye219]

Hier ist noch eine Variante:

Delphi-Quellcode:

procedure RemoveDuplicates (Items: TListItems;  Index: Integer = -1);
  var i : Integer;
      s : string;
      L : TStrings;
begin
  L := TStringList.Create;
  for i := Items.Count - 1 downto 0 do
    begin
      if (Index < 0) then
        s := Items[i].Caption
      else
        s := Items[i].SubItems[Index];
      if (L.IndexOf(s) < 0) then
        L.Add(s)
      else
        Items[i].Delete;
    end;
  L.Free;
end;

Gruß Hawkeye