Alle Einträge die sich in ListBox2 befinden in ListBox1 lösc

[Delphi Star]

Wie kann man alle Einträge die sich in ListBox2 befinden in ListBox1 löschen

[fred.reichbier]

hi

Delphi-Quellcode:

var i: Integer;
...
for i := 0 to ListBox1.Items.Count - 1 do
begin
if ListBox2.Items.IndexOf(ListBox1.Items[i]) <> -1 then
begin
ListBox2.Items.Delete(ListBox2.Items.IndexOf(ListBox1.Items[i]));
end;
end;

meintest du sowas?
ist jetzt nicht getestet...
mfg,
fred

[alcaeus]

Ja, funktioniert wenn man for i := 0 to ListBox1.Items.Count - 1 do in for i := ListBox1.Items.Count - 1 downto 0 do aendert. Warum? Wurde hier schon oft besprochen

Greetz
alcaeus

[Bernhard Geyer]

Nein, auch der Lauf von 0...Count-1 funktioniert im o.g. Beispiel.
Die downto-Variante ist nur dann nötig, wenn auch in der ListBox1.Items-Stringliste gelöscht würde.
Da AFAIK Count-1 u.U. nur am Anfang der Schleife überprüft wird (Optimierung!?) würde es zu einem Indexfehler kommen, wenn aus der entsprechende Stringliste Elemente gelöscht werden.

[alcaeus]

Klar. Ist ne Gewohnheit, jede Schleife in der was geloescht wird "downto" zu machen

Greetz
alcaeus