Delphi-Help

DeleteFile

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

DeleteFile

Описание

function DeleteFile ( const FileName : string ) : Boolean;

Функция DeleteFile удаляет файл заданный файловым именем - FileName.
Файл ищется в текущей директории.
Если файл был удален, то возвращается True, в противном случае возвращается False.
Эта функция является более легкой для использования, чем эквивалентная подпрограмма Erase из модуля System.

Пример кода

var
fileName : string;
myFile   : TextFile;
data     : string;
begin
// Попытка открыть текстовый файл для записи
fileName := 'Test.txt';
AssignFile(myFile, fileName);
ReWrite(myFile);
// Запись в файл
Write(myFile, 'Hello World');
// Закрытие файла
CloseFile(myFile);
// Повторное открытие файла в режиме только для чтения
Reset(myFile);
// Показ содержимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, data);
ShowMessage(data);
end;
// Закрытие файла в последний раз
CloseFile(myFile);
// Теперь удаляем файл
if DeleteFile(fileName)
then ShowMessage(fileName+' удалён')
else ShowMessage(fileName+' не удалён');
// Пытаемся удалить файл повторно
if DeleteFile(fileName)
then ShowMessage(fileName+' deleted OK again!')
else ShowMessage(fileName+' не удалён, ошибка = '+
IntToStr(GetLastError));
end;

Hello World
Test.txt
удалён
Test.txt
не удалён, ошибка = 2

Примечание

Предупреждение: модуль Windows также имеет функцию DeleteFile, у которой параметр PChar.
Чтобы гарантировать, что вы используете именно нужную функцию, напишите SysUtils.DeleteFile.

Авторизация



Счетчики