Функция 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.
См. также: