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

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

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

Процедура ClearDevice.

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

    Procedure ClearDevice;

  • Описание:

    Очищает текущее устройство вывода и устанавливает текущий указатель в точку (0,0).

  • Замечания:

    Процедура ClearDevice перемещает текущий указатель в точку с координатами (0, 0), очищает экран, используя цвет фона, установленный обращением к SetBkColor, и готовит его к последующему выводу.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры ClearDevice }
    Uses Crt, Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    Randomize;
    Repeat
    LineTo(Random(200), Random(200));
    Until KeyPressed;
    ClearDevice;
    ReadLn;
    CloseGraph;
    End.



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