Checklistbox

← →
Ibn El Ivan (2004-07-26 14:32) [0]

Подскажите пожалуйста для удаления из Checklistbox используется цикл:
for i:=0 to checklistbox.count-1 do if checklistbox.checked[i] then checklistbox.items.delete(i);При запуске проги и при попытке удаление нескольких отмеченных элементов появляется сообщение об ошибке: list index out of bounds

← →
Subdigger © (2004-07-26 14:35) [1]

при удалении параметр checklistbox.count становится на 1 меньше

правильно будет так
i:=0; while i<checklistbox.count do if checklistbox.checked[i] then checklistbox.items.delete(i) else inc(i);

← →
@Lex © (2004-07-26 14:35) [2]

i:=0;
while i < checklistbox.count do
if checklistbox.checked[i] then checklistbox.items.delete(i)
else Inc(i);

← →
Ega23 © (2004-07-26 14:37) [3]

Естественно. Потому, что когда ты делаешь
checklistbox.items.delete(i)
твой checklistbox.count становится меньше на единицу.
Здесь тебе не for цикл нужен, а while

← →
Андрей Л. (2004-07-26 14:37) [4]

При удалениии элемента из списка, весь список перенумеровывается, и от этого элементов ставновится меньше.

← →
Ibn El Ivan (2004-07-26 14:39) [5]

Спасибо!!

можно и for do, только цикл гнать с конца:
for i:=MAXVALUE downto 0 do ....

Checklistbox Найти похожие ветки