1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Vytvorená stránka „Vrací aktuální velikost zkušební oblasti. ;Deklarace function OvrGetRetry : Longint; ;Režim :Reálný ;Viz také :OvrSetRetry Vzorový příklad { Ovr...“
Vrací aktuální velikost zkušební oblasti.
;Deklarace
function OvrGetRetry : Longint;
;Režim
:Reálný
;Viz také
:[[OvrSetRetry]]
Vzorový příklad
{ OvrGRtry.PAS }
{ Příklad pro OvrGetRetry a ýOvrSetRetryý: Pouze v reálném režimu }
{$M 16384,65536,655360 }
uses Overlay;
const
ExtraSize = 49152; { 48K}
begin
OvrInit('MYOVR.OVR');
WriteLn('Původní velikost ovrlejového bufferu je ', OvrGetBuf, ' bajtů.');
OvrSetBuf(OvrGetBuf+ExtraSize);
WriteLn('Overlejový buffer se nyní zvětší na ', OvrGetBuf,' bajtů.');
OvrSetRetry(OvrGetBuf+ExtraSize div 3);
Writeln('Aktuální velikost zkušební oblasti je ', OvrGetRetry);
end.
[[Category:Overlay]]
;Deklarace
function OvrGetRetry : Longint;
;Režim
:Reálný
;Viz také
:[[OvrSetRetry]]
Vzorový příklad
{ OvrGRtry.PAS }
{ Příklad pro OvrGetRetry a ýOvrSetRetryý: Pouze v reálném režimu }
{$M 16384,65536,655360 }
uses Overlay;
const
ExtraSize = 49152; { 48K}
begin
OvrInit('MYOVR.OVR');
WriteLn('Původní velikost ovrlejového bufferu je ', OvrGetBuf, ' bajtů.');
OvrSetBuf(OvrGetBuf+ExtraSize);
WriteLn('Overlejový buffer se nyní zvětší na ', OvrGetBuf,' bajtů.');
OvrSetRetry(OvrGetBuf+ExtraSize div 3);
Writeln('Aktuální velikost zkušební oblasti je ', OvrGetRetry);
end.
[[Category:Overlay]]
