Mail

В этот день много лет назад...
26 ноября. В 1864 году (160 лет назад) - Чарльз Доджсон посылает в качестве рождественского подарка Алисе Лиддел рукопись, озаглавленную "Приключения Алисы в подземелье". Позже под псевдонимом Льюис Кэрролл она будет опубликована в двух частях как "Приключения Алисы в Стране Чудес" и "Алиса в Зазеркалье", которые станут одними из самых популярных детских книжек.

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.