Turbo Pascal Documentation

Функция GraphErrorMsg

Модуль Graph

     Функция: Для заданного кода ошибки (ErrorCode) выдает
строку сообщения об ошибке.
     Описание: GraphErrorMsg(ErrorCode: integer)
     Тип результата: Строковый (string).
     Примечания: Данная функция возвращает строку, содержа-
щую сообщение об ошибке, соответствующее коду ошибки графи-
ческой системы. Это облегчает вывод описывающего ошибку со-
общения в пользовательской программе. Например:

"Device driver not found" (не найден драйвер устройства)

вместо:

      "error code - 3" (од ошибки - 3).

     Ограничения: Должен использоваться графический режим.
     Прочее: См. также  процедуры GraphResult,  DetectGraph,
InitGraph.
     Пример:

  uses Graph;
  var
    GraphDriver, GraphMode : integer;
    ErrorCode : integer;
  begin
    GraphDiver := Detect;
    InitGraph(GraphDriver,GraphMode,'');
    if Graphesult <> grOk then
       Halt(1);
    begin
      Writeln('Ошибка графики: ',GraphErrorMsg(ErrorCode);
      Readln;
      Halt(1);
    end;
     Line(0, 0, GetMaxX, GetMaxY);
     Readln;
     CloseGraph;
  end.