HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
16 марта. В 1818 году (208 лет назад) - Шимкевич на заседании своей ложи высказал мнение, что для непосредственных целей, преследуемых масонами, для просвещения и благотворительности, какие бы то ни было тайны излишни, что они "являются притворством, очень дорого обходятся и способствуют дурной славе, тогда как орден может существовать и без них".
 
 

Turbo Pascal Documentation

Процедура OvrGetBuf

Модуль Overlay


     Функция: Возвращает текущий размер оверлейного буфера.
     Описание: OvrGetBuf
     Тип результата: Длинный целый (longint).
     Примечания: Размер оверлейного буфера устанавливается с
помощью обращения к процедуре OvrSetBuf. Первоначально овер-
лейный буфер имеет минимальный возможный размер,  соответст-
вующий  размеру наибольшего оверлея. При выполнении оверлей-
ной программы буфер такого размера выделяется автоматически.
(Замечание:  Начальный  размер  буфера  может превышать 64К,
поскольку он включает в себя и код  наибольшего  оверлея,  и
его корректировочную информацию).
     Прочее:  См.  также  процедуры   OvrInit,   OvrInitEMS,
OvrSetBuf.
     Пример:

  {M 16384,65536,655360 }
  use Overlay;
  const
    ExtractSize = 49152; { 48K }
  begin
    OvrInit('EDITOR.OVR');
    Writeln('Начальный размер оверлейного буфера = ',
             OvrGetBuf, 'байтов');
    OvrSetBuf(OvrGetBuf+ExtractSize);
    Writeln('Размер оверлейного буфера увеличен теперь до ',
             OvrGetBuf, 'байтов');
  end.




HOME