Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
DeleteFile
Функция
Удаляет файл, указанный в параметре SysUtils unit
  function DeleteFile ( const FileName : string ) : Boolean;
Описание
Функция DeleteFile удаляет файл заданный файловым именем - FileName.

Файл ищется в текущей директории.

Если файл был удален, то возвращается True, в противном случае возвращается False.

Эта функция является более легкой для использования, чем эквивалентная подпрограмма Erase из модуля System.
Примечания
Предупреждение: модуль Windows также имеет функцию DeleteFile, у которой параметр PChar.

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

CloseFile  Закрывает открытый файл

Erase  Стирает файл

Rename  Переименовка фала

RenameFile  Переименование файла или директории

 
Пример кода : Попытка удалить файл дважды
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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия