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
 



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