initgrf.pas

Пример программы для процедуры InitGraph.

Код примера
 {Initgrf.PAS}
 
 { Пример программы для процедуры InitGraph }
 
 Uses Graph;
 
 Var grDriver : Integer;
       grMode : Integer;
      ErrCode : Integer;
 
 Begin
  grDriver:=Detect;
  InitGraph(grDriver, grMode, '');
  ErrCode:=GraphResult;
  If ErrCode = grOk Then
   Begin
    { Графика }
    Line(0, 0, GetMaxX, GetMaxY);
    ReadLn;
    CloseGraph;
   End
  Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
 End.

Скачать initgrf.pas