Функция GraphResult

Модуль Graph

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

Объявление:

 Function GraphResult : Integer;

Режим: 

Замечания:
Следующие подпрограммы устанавливают 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

Пример:

  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.
 

См. также: