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