Mail

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

Turbo Pascal Documentation

Функция MaxAvail

     Функция:  Возвращает  размер  наибольшего  непрерывного
свободного блока в динамически распределяемой области, соот-
ветствующий размеру наибольшей динамической переменной,  для
которой в данный момент может быть выделена память.
      Описание: MaxAvail
     Тип результата: Длинный целый (longint).
     Примечания: Данное значение вычисляется путем сравнения
всех  свободных блоков, расположенных ниже указателя динами-
чески распределяемой области памяти. Для  получения  полного
объема свободной памяти в динамически распределяемой области
используйте процедуру МемАvail. Минимальный размер  блока  в
динамически распределяемой области равняется одному байту. С
помощью директивы компилятора {М} в вашей  программе  можно
задавать минимальные и максимальные потребности в динамичес-
ки распределяемой области (см. Приложение С).
     Отличия: В версии 3.0 возвращаемое значение имело целый
тип и представляло собой размер наибольшего свободного блока
в байтах.
     Прочее: См. также процедуру MemAvail.
     Пример:

type
   FriendRec = record
     Name  : string[30];
     Age   : byte;
    end;
var
   p : pointer;
  begin
    if MaxAvail < SizeOf(FriendRec) then
    Writeln('Не хватает памяти');
    else
    begin

  { выделить память в динамически распределяемой области }
    GetMem(p, SizeOf(FriendRec));
     .
     .
     .
    end;
   end.