1 578
editací
Změny
Vytvorená stránka „Inicializuje správce ovrlejí a otevírá ovrlejový soubor. ;Deklarace procedure OvrInit(FileName:string ); ;Režim :Reálný ;Poznámky :Případné chyby jsou oz...“
Inicializuje správce ovrlejí a otevírá ovrlejový soubor.
;Deklarace
procedure OvrInit(FileName:string );
;Režim
:Reálný
;Poznámky
:Případné chyby jsou oznamovány v proměnné OvrResult.
:Procedura [[OvrInit]] musí být volána před prvním voláním kterékoli z ostatních procedur správce ovrlejí.
;Viz také
:[[OvrGetBuf]]
:[[OvrInitEMS]]
:[[OvrSetBuf]]
Vzorový příklad
{ Ovrinit.PAS }
{ Vzorový příklad pro OvrInit: Pouze v reálném režimu }
uses Overlay;
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
case OvrResult of
ovrError: Writeln('Program nemá žádné ovrleje.');
ovrNotFound: Writeln('Overlejový soubor nenalezen.');
end;
Halt(1);
end;
end.
[[Category:Overlay]]
;Deklarace
procedure OvrInit(FileName:string );
;Režim
:Reálný
;Poznámky
:Případné chyby jsou oznamovány v proměnné OvrResult.
:Procedura [[OvrInit]] musí být volána před prvním voláním kterékoli z ostatních procedur správce ovrlejí.
;Viz také
:[[OvrGetBuf]]
:[[OvrInitEMS]]
:[[OvrSetBuf]]
Vzorový příklad
{ Ovrinit.PAS }
{ Vzorový příklad pro OvrInit: Pouze v reálném režimu }
uses Overlay;
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
case OvrResult of
ovrError: Writeln('Program nemá žádné ovrleje.');
ovrNotFound: Writeln('Overlejový soubor nenalezen.');
end;
Halt(1);
end;
end.
[[Category:Overlay]]