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

[bernau]

OK. Anderer Versuch. Ich würde mit einer Hilfsstrinliste arbeiten

Delphi-Quellcode:

var
 sl:TStringlist;
 stri:String;
begin
  sl:=TStringlist.create;

  // downto verwenden, da items zwischendurch gelöscht werden können
  for a:=sllistbox0.Items.count-1 downto 0 do 
    begin
      stri:=listbox0.Items[a][5] +  listbox0.Items[a][7] + listbox0.Items[a][9];

      if sl.indexof(stri)>=0 then
        listbox0.items.delete(a) 
      else
        sl.add(stri); 

    end;

  sl.free;
end;

Einfach so runtergetippt und nicht getestet