Правила форума
Grfreslt.PASЯзык:
Русский
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.
::
::
::
