Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

Access violation at address...   Найти похожие ветки 

 
SerJaNT ©   (2007-03-12 04:30) [0]

Пишу

for i:=0 to listview1.Items.Count-1 do
begin
application.ProcessMessages;
 if  listview1.Items.Item[i].Checked then
 begin
   if DeleteFile(listview1.Items.Item[i].Caption) then
   begin
     listview1.Items.Delete(i);
   end;
 end;
end;


Это код для удаления файлов, отмеченных галочкой в listview1.
При удалении появляется сабжевое сообщение. Подскажите, где я допустил ошибку?


 
хто-то   (2007-03-12 04:33) [1]

downto


 
SerJaNT ©   (2007-03-12 04:35) [2]

так?

for i:=listview1.Items.Count-1 downto 0 do
begin
application.ProcessMessages;
if  listview1.Items.Item[i].Checked then
begin
  if DeleteFile(listview1.Items.Item[i].Caption) then
  begin
    listview1.Items.Delete(i);
  end;
end;
end;


 
SerJaNT ©   (2007-03-12 04:36) [3]


> хто-то   (12.03.07 04:33) [1]


Спасибо, все работает!


 
SerJaNT ©   (2007-03-12 04:42) [4]

У меня еще такой вопрос:

DeleteFile удаляет скрытые или системные файлы?
Если нет, как удалять?



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

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

Наверх




Память: 0.47 MB
Время: 0.057 c
15-1173845848
pasha_golub
2007-03-14 07:17
2007.04.08
Список пакетов используемых в проекте


2-1173987499
Востоковед
2007-03-15 22:38
2007.04.08
Таблица <-> Delphi - Новичок запутался...


3-1169109231
merko$
2007-01-18 11:33
2007.04.08
сортировка в DBGrid


2-1174317708
Gtnheirby
2007-03-19 18:21
2007.04.08
Отображение Boolean данных для пользователя


3-1169103391
Rentgen
2007-01-18 09:56
2007.04.08
Установить подключение к БД на удаленном ПК через ODBC