Обработка ошибок при инициализации графического режима

Графическая программа, как и любая другая, может содержать ошибки. Программист должен предусмотреть всё возможное для их своевременного обнаружения и нейтрализации. Для этого в модуле Graph имеются функция GraphResult.

Заголовок функции:

Function GraphResult: Integer

Эта функция, при обращении к ней, возвращает специальный код ошибки (целое число), в зависимости от того, как прошло выполнение любой графической процедуры или функции. Если ошибка не обнаружена, то значением функции будет ноль, в противном случае - отрицательное число. Все возможные ошибки и их коды приведены в таблице 5.

Для того чтобы выводить сообщение об ошибке используется функция GraphErrorMsg.

Заголовок функции:

Function GraphErrorMsg(Code: Integer): String

Данная функция возвращает значение типа String, в котором по указан-ному коду дается соответствующее текстовое сообщение об ошибке (по англий-ски). Здесь Code - код ошибки, возвращаемый функцией GraphResult.

Таблица 5 Константы и коды ошибок графических операций

Имя константы	Код ошибки	Соответствующее сообщение об ошибке (перевод)
grOk		Нет ошибок
grNoInitGraph	-1	Не инициализирован графический режим
grNotDetected	-2	Не удалось определить тип адаптера
grFileNotFound	-3	Не обнаружен файл с драйвером
grInvalidDriver	-4	Неправильный тип драйвера
grNoLoadMem	-5	Нет памяти для размещения драйвера
grNoScanMem	-6	Нет памяти для просмотра областей
grNoFloodMem	-7	Нет памяти для закраски областей
grFontNotFound	-8	Не найден файл со шрифтом
grNoFontMem	-9	Нет памяти для размещения шрифта
grInvalidMode	-10	Неправильный графический режим
grError	-11	Общая ошибка
grIOError	-12	Ошибка ввода-вывода
grInvalidFont	-13	Неправильный формат шрифта
grInvalidFontNum	-14	Неправильный номер шрифта

Пример 10: программы, которая производит инициализацию графического режима и проверку возможных ошибок:

uses graph; {Подключение модуля Graph}

var gd,gm,error:integer; {Раздел описания переменных}

begin {Начало программы}

gd:=detect; {Автоматическое определение драйвера}

InitGraph (gd,gm,"); {Инициируем графику}

error:=GraphResult; {Получаем результат}

if error<>grok then {Проверяем ошибку}

WriteLn (GraphErrorMsg(Error)) {Выводим сообщение}

else {Нет ошибки}

begin {Начало основной части программы}

....... {Основная часть программы}

Readln; {Ожидание нажатия клавиши Enter}

CloseGraph; {Закрытие графического режима}

end; {Конец основной части программы}

end. {Конец программы}

Такая проверка должна проводиться в каждой программе, в которой используется графический режим (именно для этого предназначена функция GraphResult).

Дата добавления: 2014-01-11