Правила форума
Ovrinit.PASЯзык:
Русский
English
{ Пример программы для процедуры OvrInit }
uses Overlay;
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
case OvrResult of
ovrError :
WriteLn('В программе нет оверлеев.');
ovrNotFound :
WriteLn('Оверлейный файл не найден.');
end;
Halt(1);
end;
end.
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
case OvrResult of
ovrError :
WriteLn('В программе нет оверлеев.');
ovrNotFound :
WriteLn('Оверлейный файл не найден.');
end;
Halt(1);
end;
end.
::
::
::
