HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail |
|
|
Turbo Pascal Documentation | ||
Функция: Возвращает для последней графической операции код ошибки. Описание: GraphResult Тип результата: Целый (integer). Примечания: Возвращает код ошибки для последней графи- ческой операции. Определены следующие коды ошибок: 0 нет ошибки; -1 (ВСI) графика не установлена (используйте процедуру InitGraph); -2 графическая аппаратура не найдена; -3 драйвер графического устройства не найден; -4 неверный файл драйвера графического устройства; -5 не хватает памяти для загрузки драйвера; -6 выход за границы памяти при просмотре области закраски; -7 выход за границы памяти при закрашивании; -8 файл шрифта не найден; -9 не хватает памяти для загрузки шрифта; -10 недопустимый графический режим для выбранного драйвера. Код ошибки устанавливается следующими процедурами: DetectGraph, InitGraph, FloodFill, FillPoly, DrawPoly, Bar, Bar3D, PieSlice, ClearViewPort, SetTextStyle, SetGrphMode, CloseGraph, DetectGraph, FillPoly, FloodFill, GetGraphMode, ImageSize, InstallUserDriver, InstallUserFont, PieSlice, RegisterBGIDriver, RegisterBGIFont, SetAllPalette, SetFillPattern, SetFillStyle, SetGraphBufSize, SetGraphMode, SetLineStyle, SetPalette, SetTextJustify. Заметим, что GraphResult (код ошибки) сбрасывается в 0 после обращения к данной процедуре (аналогично функции IOResult). Таким образом пользователю следует сохранить зна- чение кода ошибки во временной переменной и затем проверить ее. Определены следующие константы: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Константа Код Соответствующее ошибки графики ошибки сообщение об ошибке - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - grOk = 0; { нет ошибки } 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; { недопустимый номер шрифта } - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Ограничения: Предусмотрена строковая функция GraphErrorMsg, которая возвращает строку сообщения, соответствующего каждому коду ошибки. Прочее: См. также функцию GraphErrorMsg. Пример: uses Graph; var ErrorCode : integer; GrDriver, GrMode : integer; begin GrDriver := Detect; InitGraph(GrDriver,GrMode); ErrorCode := Grapesult; { провера на ошибки } if ErorCode <> grOk then begin Writeln('Ошибка графики: '); Writeln(GraphErrorMsg(ErroeCode)); Writeln('Программа аварийно завершила работу!...'); Halt(1); end; { выполнить некоторые графические функции } ClearDevice; Rectangle(0,0,GetMaxX,GetMaxY); Readln; CloseGraph; end. |
HOME |