Mail

В этот день много лет назад...
20 апреля. В 1977 году (47 лет назад) - Запуск космического спутника "Геос-1", разработанного европейским космическим агентством (Еса), для выполнения работ по международной программе изучения магнитосферы; изучения магнитного поля Земли.

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.