Items zweier ListBoxen vergleichen -> doppelte Items löschen

**dopeline**

Hallo!

Ich habe 2 ListBoxen ich möchte in eine Suchroutine doppelte Einträge löschen: Wenn in ListBox1 ein Eintrag aus ListBox2 gefunden wird, soll er in ListBox1 gelöscht werden. Ich habe mir das so überlegt, aber es funktionier nicht (Listenindex überschreitet das Maximum):

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var i,r:integer;

begin

 for i:=0 to ListBox2.Items.Count-1 do

  for r:=0 to ListBox1.Items.Count-1 do

   if ListBox2.Items.Strings[i]=ListBox1.Items.Strings[r] then

    ListBox1.Items.Delete(r);

end;

Vielleicht sollte ich dazusagen, dass in der ListBox2 weniger Einträge stehen, als in der ListBox1.

Hier ein Beispiel:

In der ListBox1 stehen 400 Einträge (Items)
In der ListBox2 stehen nur 100 Einträge
Alle Einträge aus der ListBox2, die auch in der ListBox1 vorhanden sind, sollen in der ListBox1 gelöscht werden.

Hat jemand einen Lösungsvorschlag?

Gruß, dopeline

Items zweier ListBoxen vergleichen -> doppelte Items löschen

Items zweier ListBoxen vergleichen -> doppelte Items lösc

Forumregeln