Hallo, ich habe folgendes Problem, also ich will die einträge einer Listbox an bestimmten stellen
vergleichen und bei Doppelbelegung einen rauslöschen. Ich habe es mit einer 'repeat' Schleife wie folgt versucht:
Delphi-Quellcode:
if listbox0.Items.Count = 5 then
begin
o:=0;
p:=0;
repeat
o := o + 1;
p := p + 1;
if (listbox0.Items[o][5] + listbox0.Items[o][7] + listbox0.Items[o][9]) =
(listbox0.Items[p][5] + listbox0.Items[p][7] + listbox0.Items[p][9]) then
listbox0.Items.Delete(o);
until (listbox0.Items.Count <> 5) or (o = 5);
end;
Allerdings löscht er nicht den doppelten Eintrag sondern einfach den ersten in der Listbox, dass ist das Problem....
Wäre toll wenn jemand eine Idee hätte !
Also die Einträge sind nur an den bestimmten Stellen gleich.
also es sieht zB ein
gleicher Eintrag so aus:
1) 0 1 1
4) 0 1 1