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

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

Вопрос к вам, мастера! [D6, WinXP]


Страницы:   1 2

Anar ©   (2002-09-10 14:15:00) 

Допустим у меня список файлов в ListBoxe:

C:\Anar\Temp\file.txt
C:\Anar\Temp\file2.exe
C:\Anar\Temp\file3.jpg
и т.д.

Создаю Button и к нему обработчик:




begin
Repeat
DeleteFile(ListBox1.Items.Index[i]);
ListBox1.Items.Delete[i];
i:=i+1;
Until ListBox1.Items.Strings="";
end;


Он короче удаляет все файлы и строки из ListBox1, но когда доходит до конца выдаёт ошибку такого рода: ListBox bound Index (точно не помню я не дома и пишу всё по памяти). Как правильно удалять по очереди все элементы из ListBox, пока там не окажется ни один элемент.

И ещё: Как известно, процесс удаления элемента из спика происходит намного быстрее, чем процесс удаления файла с жёсткого диска. Как сделать чтоб следующий элемент(файл) начал удаляться только после того как удалиться предыдущий?


lenin   (2002-09-10 14:19:00) [21]

Until ListBox1.Items.Count>0;
Наверное ;)


Song   (2002-09-10 14:17:00) [22]

А чему равно начальное значение i? Единице наверное? :-)


Страницы:   1 2

Наверх

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