Mail

В этот день много лет назад...
16 апреля. В 1789 году (235 лет назад) - В Тобольске торжественно открывается типография Василия Яковлевича Корнильева, который, как следует из указа правителя тобольского наместничества А.В. Алябьева, желает "производить на первый случай печатание книг на Российском диалекте гражданскими литерами, и впредь стараться будет и на разных иностранных". Это - первая типография в Сибири.

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.