Правила форума
GraphErrorMsg (функция) (модуль Graph)Язык:
Русский
English
GraphErrorMsg (функция) (модуль Graph)
Возвращает текст сообщения об ошибке по ее номеру.
Объявление
Function GraphErrorMsg(ErrorCode : Integer) : String;
Режим
Real, Protected
Смотри также
Пример
Язык:
Русский
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.
::
::
::
