Правила форума
Initgrf.PASЯзык:
Русский
English
{ Пример программы для процедуры InitGraph }
uses Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'X:\BP');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Графика }
Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
end
else
WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
end.
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'X:\BP');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Графика }
Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
end
else
WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
end.
::
::
::
