grfreslt.pas

{Grfreslt.PAS}
 
{ Пример программы для функции 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.