Правила форума
OvrGRtry.PASЯзык:
Русский
English
{ Пример программы для OvrGetRetry }
{$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.
::
::
::
