Процедура Erase

Стирает внешний файл с диска.

Объявление:

Procedure Erase(Var F);

Режим:

Windows, Real, Protected

Замечание:

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

Ограничения:

Никогда не используйте Erase на открытом файле!

Пример:

{ Пример программы для процедуры Erase }

Uses Dos, Crt;

Var F : File;
   Ch : Char;

Begin
 { Получаем имя файла из командной строки }
 Assign(F, ParamStr(1));
 {$I-} { Отключаем контроль ошибок ввода/вывода }
 Reset(F);
 {$I+} { Включаем контроль ошибок ввода/вывода }
 If IOResult<>0 Then WriteLn('Не могу найти :', ParamStr(1))
  Else
 Begin
  Close(F);
  Write('Удалять ', ParamStr(1), ' (y/n) ?');
  ReadLn(Ch);
  If UpCase(Ch)='Y' Then Erase(F);
 End;
End.