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

[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