Turbo Pascal Documentation

Функция GraphResult

Модуль Graph

     Функция: Возвращает для последней графической  операции
код ошибки.
     Описание: 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.