1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Vytvorená stránka „Nastaví velikost zkušební oblasti v bufferu ovrlejí. ;Deklarace procedure OvrSetRetry(Size : Longint); ;Režim :Reálný ;Viz také :OvrGetRetry Vzorový p...“
Nastaví velikost zkušební oblasti v bufferu ovrlejí.
;Deklarace
procedure OvrSetRetry(Size : Longint);
;Režim
:Reálný
;Viz také
:[[OvrGetRetry]]
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
procedure OvrSetRetry(Size : Longint);
;Režim
:Reálný
;Viz také
:[[OvrGetRetry]]
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]]
