OvrSetRetry

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.