Функция GraphResult()

Модуль GRAPH

Возвращает код ошибки для последней графической операции.

Объявление:

Function GraphResult : Integer;

Режим:

Real, Protected

Замечание:

Следующие подпрограммы устанавливают GraphResult: Bar GetGraphMode SetAllPalette Bar3D ImageSize SetFillPattern ClearViewPort InitGraph SetFillStyle CloseGraph InstallUserDriver SetGraphBufSize DetectGraph InstallUserFont SetGraphMode DrawPoly PieSlice SetLineStyle FillPoly RegisterBGIdriver SetPalette FloodFill RegisterBGIfont SetTextJustify

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для функции GraphResult }

Uses Graph;

Var     ErrorCode : Integer;
 GrDriver, GrMode : Integer;

Begin
 GrDriver:=Detect;
 InitGraph(GrDriver, GrMode, '');
 ErrorCode:=GraphResult;   { Проверяем ошибки }
 If ErrorCode <> grOk Then
 Begin
  WriteLn('Ошибка инициализации графики:');
  WriteLn(GraphErrorMsg(ErrorCode));
  WriteLn('Ненормальное завершение...');
  Halt(1);
 End;
 ClearDevice;   { Графика... }
 Rectangle(0, 0, GetMaxX, GetMaxY);
 ReadLn;
 CloseGraph;
End.