Простой вопрос

  • Автор темы HumpFREE
  • Дата начала
Статус
Закрыто для дальнейших ответов.
H

HumpFREE

#1
Ищу по маске файлы на жестаке, затем найденное пихается в ListBox. Вопрос - как удалить все найденные файлы на жестаке?
Пишу чистилку от мусора.
 
H

HumpFREE

#4
Знаем такое. Мне бы синтаксис этой команды. То есть как взять из ListBox строку в DeleteFile? А то в учебниках нету такой нигде(((((
 

morpheus

скриптописец
07.08.2006
3 915
1
#5
Для: HumpFREE
А в хэлп чиво не ходите???
The following code prompts for confirmation before deleting a file:
Код:
if FileExists(FileName) then	 
if MessageDlg('Хотите удалить ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then 
DeleteFile(FileName);
 
H

HumpFREE

#6
Для: HumpFREE
А в хэлп чиво не ходите???
The following code prompts for confirmation before deleting a file:
Код:
if FileExists(FileName) then	 
if MessageDlg('Хотите удалить ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then 
DeleteFile(FileName);
а куда тут впихнуть ListBox?
 

morpheus

скриптописец
07.08.2006
3 915
1
#7
:) :) :D
Нет уж, тут по другому , надо просто пройтсь в цикле по всем значениям лист бокса , с каждым значением зделать DeleteFile(FileName); - где FileName - и есть N-ный элемент из листбокса(содержит путь к файлу)
 
H

HumpFREE

#8
А не мог бы ты в виде кода это написать? Я думаю тут немного. Я просто совсем зеленый исчо(((
 

morpheus

скриптописец
07.08.2006
3 915
1
#10
Код:
procedure TForm1.Button1Click(Sender: TObject); 
var i:integer; 
begin for i := 0 to ListBox1.Count do	 
if Not DeleteFile( ListBox1.Items[i] ) then ShowMessage( 'Не удалось удалить файл: ' + ListBox1.Items[i] ); 
end;
 
Статус
Закрыто для дальнейших ответов.