|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.09.2007, 15:40 | #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; Файл остается на месте... Почему? |
05.09.2007, 15:41 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А что возвращает DeleteFile ?
I'm learning to live...
|
06.09.2007, 08:37 | #3 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Не знаю, но ошибок компилятор не выдает, прога работает без сбоев, а файл не удаляется. Пробовал вместо delete применить erase, но в ошибке пишет, что файл не найден. Где что в коде прописал неправильно - не могу найти...
|
06.09.2007, 09:02 | #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...
|
06.09.2007, 10:38 | #5 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Во как оказывается! Спасибо, очень помог!
|
06.09.2007, 11:46 | #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 |