Текущий архив: 2005.10.09;
Скачать: CL | DM;

Вниз

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

← →
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)

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c