OvrGetRetry

Z Delphi & Pascal (česká wiki)
Verze z 3. 10. 2012, 20:43, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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...“)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.