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


 
В этот день много лет назад...
20 января. В 1989 году (29 лет назад) - Эрик Рэндольф (Рэнди) Барнс (США), Лос-Анджелес, шт. Калифорния, США, устанавливает рекорд по толканию ядра: 22,66 м.
 
 

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