IPB

> Erase (процедура)
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
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
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"