Erase (процедура)

Язык:
Русский
English

 Erase  (процедура)


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

Объявление

 Procedure Erase(Var F);

Режим

Windows, Real, Protected

Замечания

Параметр F - файловая переменная любого файлового типа. Внешний файл, связанный с переменной F удаляется.

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

Ограничения

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

См. также

Пример

Язык:
Русский
English


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

uses Dos, Crt;

var
  F  : File;
  Ch : Char;

begin
 { Получаем имя файла из командной строки }
  Assign(F, ParamStr(1));
  FileMode := 0; { Режим только-чтение }
 {$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.
Тэги: Erase
| G+
Код для вставки: :: :: :: ::
Поделиться: // //