![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
procedure TForm1.SpeedButton5Click(Sender: TObject);
var i:integer; begin for i:=0 to shelllistview1.Items.Count-1 do if shelllistview1.Items.Item[i].Selected then deletefile(shelllistview1.Items.Ite m[i].GetNamePath); end; Файл остается на месте... Почему? ![]() |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
А что возвращает DeleteFile ?
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
Не знаю, но ошибок компилятор не выдает, прога работает без сбоев, а файл не удаляется. Пробовал вместо delete применить erase, но в ошибке пишет, что файл не найден. Где что в коде прописал неправильно - не могу найти...
![]() |
![]() |
![]() |
![]() |
#4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Знаеш я уже давно не работал с ShellList, посему не сразу сообразил что
shelllistview1.Items.Item[i].GetNamePath не вернет тебе путь к файлу. Делать нуна так : [I]procedure TForm1.SpeedButton5Click(Sender: TObject); var i:integer; begin for i:=0 to shelllistview1.Items.Count-1 do if shelllistview1.Items.Item.Selected then deletefile(ShellListView1.SelectedFolder.PathN ame); end; И учти что надо проверять ShellListView1.SelectedFolder на nil, ато AV схватишь
I'm learning to live...
|
![]() |
![]() |
![]() |
#5 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
Во как оказывается! Спасибо, очень помог!
![]() |
![]() |
![]() |
![]() |
#6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Не вопрос )
I'm learning to live...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление файла из процесса | Killbrum | Помощь студентам | 3 | 28.08.2008 12:38 |
Удаление файла | mopozoff | Общие вопросы Delphi | 1 | 13.06.2008 21:25 |
удаление строчки из файла | tigr1991 | Общие вопросы Delphi | 4 | 01.02.2008 22:51 |
Удаление строки из файла | Македонский | Общие вопросы Delphi | 5 | 29.08.2007 15:40 |
Удаление записи с файла | werser | Помощь студентам | 8 | 27.06.2007 06:25 |