OvrInit

Z Delphi & Pascal (česká wiki)

Skočit na navigaci Skočit na vyhledávání

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

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.

Citováno z „https://trsek.com/pascal/index.php?title=OvrInit&oldid=760“

Overlay