Процедура Erase

Процедура Erase в Паскале удаляет файл с диска. Синтаксис:

 
procedure Erase(var f : File);

procedure Erase(var t : Text);

Процедура Erase удаляет неоткрытый файл с диска. Файл должен быть связан с файловой переменной с помощью процедуры Assign, но не должен быть открыт с помощью Reset или Rewrite.

В зависимости от состояния переключателя {$I} при наличии ошибки может быть сгенерирована ошибка времени выполнения. В состоянии {$I-} используйте функцию IOResult для проверки ошибок. Подробнее о директивах компилятора см. здесь.

Пример удаления файла:

 
program eraseproc;

var F : Text;

begin
  //Создаём файл и записываем в него строку
  Assign(F, 'test.txt');
  Rewrite(F);
  WriteLn(F, 'My String!');
  //Закрываем файл
  Close(F);
  //Ждём действия пользователя
  WriteLn('Press ENTER to delete the file');
  ReadLn;
  //Удаляем файл
  Erase(F);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

ПРИМЕЧАНИЕ
Если вам что-то осталось непонятным, то см. книгу Основы программирования.

Подписаться на канал в YouTube

Вступить в группу "Основы программирования"

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Главная
Контакты