Правила форума
Ovrgetbf.PASЯзык:
Русский
English
{ Пример программы для функции OvrGetBuf }
{$M 16384, 65536, 655360}
uses Overlay;
const ExtraSize = 49152; {48Kб}
begin
OvrInit('EDITOR.OVR');
WriteLn('Начальный размер буфера = ', OvrGetBuf,' байт.');
OvrSetBuf(OvrGetBuf + ExtraSize);
WriteLn('Размер буфера установлен на ', OvrGetBuf,' байт.');
end.
uses Overlay;
const ExtraSize = 49152; {48Kб}
begin
OvrInit('EDITOR.OVR');
WriteLn('Начальный размер буфера = ', OvrGetBuf,' байт.');
OvrSetBuf(OvrGetBuf + ExtraSize);
WriteLn('Размер буфера установлен на ', OvrGetBuf,' байт.');
end.
::
::
::
