HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
19 апреля. В 1956 году (62 года назад) - Организована научно-исследовательская станция "Северный полюс-6" под руководством К.А. Сычева, В.М. Дриацкого, С.Т. Серлапова и В.С. Антонова.
 
 

Turbo Pascal Documentation

Процедура Erase


     Функция: Стирает внешний файл.
     Описание: Erase
     Примечания: Параметр f представляет собой файловую  пе-
ременную  любого  файлового  типа. Внешний файл, связанный с
переменной f, стирается.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Ограничения: Процедура Еrase не  должна  использоваться
для открытого файла.
     Прочее: См. также процедуру Rename.
     Пример:

var
  f : file;
ch : char;
begin
{ получить из командной строки имя предназначенного для
   удаления файла }

    Assign(f, ParamStr(1));
  {I-}
   Reset(f);
  {I+}
   if IOResult <> 0 then
     Write('Файл не найден ' ParamStr(1))
   else
   begin
      Close();
     Write('Стереть ', ParamStr(1)),'?');
     Readln(ch);
     if UpCase(ch) = 'Y' then
     Erase(f);
  end;
end.




HOME