не удаляются элементы

← →
tes (2005-09-16 10:42) [0]

Почему у меня не удаляются элементы из listbox2 которые
отсутствуют в listbox1 ?

listbox2

1
2
8
9

listbox1

1
2

for i:=0 to listbox2.count - 1 do
for j:=0 to listbox1.count - 1 do

if listbox2.Items[i] <> listbox2.items[j] then
listbox2.Items.delete(i);

← →
begin...end © (2005-09-16 11:05) [1]

for I := ListBox2.Items.Count - 1 downto 0 do
if ListBox1.Items.IndexOf(ListBox2.Items[I]) = -1 then
ListBox2.Items.Delete(I)

не удаляются элементы Найти похожие ветки