Как удалить из ListBox1 строки которые встречаются в ListBox2

[Aleksandr]

Как удалить из ListBox1 строки которые встречаются в ListBox2

[evg_m]

for j:=0 to Listbox1.items.count-1 do begin
n:=Listbox1.ITems.Indexof(ListBox2.Items.Strings[j]);
if n>=0 then Listbox1.Items.Delete(n);
end;

[Aleksandr]

у меня на строке

n:=Listbox1.ITems.Indexof(ListBox2.Items.Strings[j]);

выскакивает ошибка

[ZuBy]

n:=Listbox1.ITems.Indexof(ListBox2.Items[j]);

[Serge_Bliznykov]

ни в коем-разе!! Опечатка??

for j:= ... Listbox1.items.count-1 
... ListBox2.Items.Strings[j]

вероятно, планировалось так:

for j:=0 to Listbox2.items.count-1 do begin
  n:=Listbox1.Items.Indexof(ListBox2.Items.Strings[j]);
  while n>=0 do begin
     Listbox1.Items.Delete(n);
     n:=Listbox1.Items.Indexof(ListBox2.Items.Strings[j]);
  end;
  if Listbox1.items.count = 0 then Break;
end;

хотя, возможно, что цикл перебора по ListBox1 был бы более эффективным...
ДОБАВЛЕНО
вот ПОЛНЫЙ вариант решения с перебором по ListBox1:

for j:=Listbox1.items.count-1 downto 0 do begin
  if Listbox2.Items.IndexOf(ListBox1.Items.Strings[j])>= 0
      then Listbox1.Items.Delete(j);
end;

а ещё лучше при этом (если исходная задача допускает, конечно!)
предварительно отсортировать содержимое ListBox2 через метод Sort
и для поиска использовать не IndexOf - а метод .Find - он намного быстрее!!!

[Aleksandr]

Все равно выдает List Index out of bounds()

[Aleksandr]

Всем спасибо.

[Serge_Bliznykov]

Всем спасибо.

Вы мой пост #5 перечитывали?
Я там дополнял варианты решения.

Надеюсь, что всё у Вас получилось?!

[Aleksandr]

Да спасибо получилось. я ответил в 6 посте вышего сообщения еще не видел.