Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Вниз

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]

Спасибо!!


 
ssk ©   (2004-07-26 14:49) [6]

можно и for do, только цикл гнать с конца:

for i:=MAXVALUE downto 0 do
  ....


 
ssk ©   (2004-07-26 14:49) [7]

можно и for do, только цикл гнать с конца:

for i:=MAXVALUE downto 0 do
  ....



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

Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
11-1078343360
Михаил
2004-03-03 22:49
2004.08.08
Запись в exe-файл


3-1089649478
ceval
2004-07-12 20:24
2004.08.08
сделать что бы при открытии dbf-файла в DBgrid выводилось


1-1090756981
V l a d i m i r
2004-07-25 16:03
2004.08.08
Окна в стиле MS Word


14-1090606537
Ricks
2004-07-23 22:15
2004.08.08
www.hotbox.ru - что с ним


14-1090563729
VMcL
2004-07-23 10:22
2004.08.08
Круглые "даты"





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский