|
Наши спонсоры:
|
|
Процедура OvrInit.
- Объявление:
Procedure OvrInit(FileName : String);
- Описание:
Инициализирует диспетчер оверлеев, открывает
оверлейный файл.
- Замечания:
В случае возникновения ошибки, ее код хранится
в переменной OvrResult.
Процедура OvrInit должна вызываться перед
любой из других процедур диспетчера оверлеев.
- Пример:
{ Пример программы для процедуры OvrInit }
Uses Overlay;
Begin
OvrInit('EDITOR.OVR');
If OvrResult <> ovrOk Then
Begin
Case OvrResult Of
ovrError : WriteLn('В программе нет оверлеев.');
ovrNotFound: WriteLn('Оверлейный файл не найден.');
End;
Halt(1);
End;
End.
Вернуться к оглавлению справочника
|
|
|
|