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

[Ginko]

bernau das berücksichtigt aber nicht das die ersten beiden Stellen unterschiedlich sein können oder ?
Ah sehe 'edit' auch zurück

[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

[nahpets]

Hallo,

so, letzter Versuch

Delphi-Quellcode:

for i := listbox0.items.count - 1 DownTo 0 Do begin
  for k := i - 1 DownTo 0 Do begin
    if (i < listbox0.items.count - 1)
    and (k < listbox0.items.count - 1) then begin
      if listbox0.items[i][5] + listbox0.items[i][7]  + listbox0.items[i][9]
       = listbox0.items[k][5] + listbox0.items[k][7]  + listbox0.items[k][9] then begin
        listbox0.items.Delete(k);
      end;
    end;
  end;
end;

[Ginko]

Nach einer kleinen Änderung klappt es nun danke dir nahpets!

Delphi-Quellcode:

for i := listbox0.items.count DownTo 0 Do begin
  for k := i - 1 DownTo 0 Do begin
    if (i < listbox0.items.count)
    and (k < listbox0.items.count) then begin
      if listbox0.items[i][5] + listbox0.items[i][7]  + listbox0.items[i][9]
       = listbox0.items[k][5] + listbox0.items[k][7]  + listbox0.items[k][9] then begin
        listbox0.items.Delete(k);
      end;
    end;

vorher wurde der letzte Eintrag nicht berücksichtigt.
bernau deine Methode hab ich jetzt noch nicht getestet aber, trotzdem danke.