Mail

В этот день много лет назад...
14 декабря. В 1503 году (522 года назад) - Родился Мишель де Нотрдам, или Нострадамус (Nostradamus)(14.12.1503- 2.07.1566), лейб-медик Карла IX, получил известность как автор "Центурий", содержавших предсказания грядущих событий европейской истории. Нострадамус принадлежал к древнему иудейскому роду Иссахар, которому приписывался особый пророческий дар. В 22 года он поступил в университет в Монпелье. В 1546 в Эксе его застала чума. Будучи уже к тому времени искусным фармацевтом, он изобрел противочумное средство. Его первая жена и двое детей скончались от неизвестной болезни. Потрясенный смертью близких, Нострадамус отправился в путешествие по Италии и Франции, став странствующим врачом. В 1548 он женился вторично, этот брак оказался удачным, и жена подарила ему шестерых детей.

Turbo Pascal Documentation

Функция FileSize

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

var
   f : file of byte;
begin
  { получить имя файла из командной строки }
  Assign(f, ParamStr(1));
  Reset(f);
  Writeln('Размер файла в байтах: ', FileSize(f));
  Close(f);
end.