Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция GraphResult.

  • Объявление:

    Function GraphResult : Integer;

  • Описание:

    Возвращает код ошибки для последней графической операции.

  • Замечания:

    Нет.

  • Пример:

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



Вернуться к оглавлению справочника