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
Erase
Процедура
Стирает файл System unit
  procedure Erase ( var FileHandle : File; ) ;
Описание
Процедура Erase пытается стиреть файл, данный в FileHandle.

Имя файла, должно быть, было назначено подпрограммой AssignFile в дескрипторе файла FileHandle.

Если файл не существует, то поднимается исключение EInOutError.
Похожие команды
DeleteFile  Удаляет файл, указанный в параметре

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

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

 
Пример кода : Создание простого файла, затем попытка удалить его дважды
var
  myFile : TextFile;

begin
  // Позволяет нам открыть текстовый файл
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // И записать одну линию в него
  WriteLn(myFile, 'Hello World');

  // Затем закрываем его
  CloseFile(myFile);

  // И наконец стираем его
  Erase(myFile);

  // Если мы пробуем стереть его снова, мы поднимем исключение
  try
    Erase(myFile);
  except
    on E : Exception do
      ShowMessage('Нельзя удалить : '+E.Message);
  end;
end;

Нельзя удалить : File not found
 



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