Правила форума
GraphResult (функция) (модуль Graph)Язык:
Русский
English
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
SetTextStyle
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции GraphResult }
uses Graph;
var
ErrorCode : Integer;
GrDriver, GrMode : Integer;
begin
GrDriver := Detect;
InitGraph(GrDriver, GrMode, 'X:\BP');
ErrorCode := GraphResult; { Проверяем ошибки }
if ErrorCode <> grOk then
begin
WriteLn('Ошибка инициализации графики:');
WriteLn(GraphErrorMsg(ErrorCode));
WriteLn('Ненормальное завершение...');
Halt(1);
end;
ClearDevice; { Графика... }
Rectangle(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
end.
var
ErrorCode : Integer;
GrDriver, GrMode : Integer;
begin
GrDriver := Detect;
InitGraph(GrDriver, GrMode, 'X:\BP');
ErrorCode := GraphResult; { Проверяем ошибки }
if ErrorCode <> grOk then
begin
WriteLn('Ошибка инициализации графики:');
WriteLn(GraphErrorMsg(ErrorCode));
WriteLn('Ненормальное завершение...');
Halt(1);
end;
ClearDevice; { Графика... }
Rectangle(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
end.
::
::
::
