Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не получается удалить в цикле отмеченые записи CheckListBox-a [D7, Win95/98]


Андрей2 ©   (2004-09-06 21:52:00) 

Здравствуйте!
Подскажите, как можна удалить отмеченые строки в CheckListBox-e?
Я делаю так:
For i:= 0 to CheckListBox1.Count-1  do  
 if CheckListBox1.Checked[i]=True then CheckListBox1.Items.Delete(i);
Но проблема в том, что с каждой удаленной строкой, уменьшается общее количество строк (естественно!!), но цикл-то должен пройти все CheckListBox1.Count записей.
Например, если у меня было 10 строк и 3 из них я отметил на удаление, то после срабатывания условия, строк остается 9,8,7. А цикл-то должен пройти 10 раз. Потому и возникает ошибка.
Помогите решить проблемку.
Спасибо


Андрей2   (2004-09-06 22:04:00) [1]

Спасибо, Defunct!!! Получилось!


Defunct   (2004-09-06 21:54:00) [2]

For I := CheckListBox1.Count-1 DownTo0 Do


Наверх

Титульная страница Поиск, карта сайта Написать письмо