Модуль CRT
|
Интерфейс |
Назначение |
| Procedure AssignCrt(File : Text); | Связывает окно дисплея с текстовым файлом, что позволяет ускорить вывод на экран |
| Procedure CIrScr; | Очищает экран и помещает курсор в верхний левый угол |
| Procedure TextMode(Mode: integer); Mode - номер текстового режима или соответствующая константа |
Выбор текстового режима |
| Procedure Window(X1, Y1, Х2, Y2 : byte); (Х1 ,Y1) и (X2.Y2) - координаты верхнего левого и нижнего правого углов окна |
Определяет окно вывода в текстовом режиме |
| Procedure HighVideo; | Устанавливает высокую яркость выводимых символов |
| Procedure LowVideo; | Устанавливает низкую яркость выводимых символов |
| Procedure Norm Video; | Возвращает цвет символов и фона, свойственный данному графическому режиму по умолчанию |
| Procedure TextBackground(Color: byte); Color - код цвета или соответствующая константа |
Выбор цвета фона |
| Procedure TextColor
(Color : byte); Color - код цвета или соответствующая константа |
Выбор цвета символов |
| Procedure CIrEol; | Стирает все символы от текущей позиции курсора до конца строки |
| Procedure DelLine; | Удаление линии, в которой находится курсор |
| Procedure InsLine; | Вставляет новую строку текста перед строкой, где находится курсор |
| Function KeyPressed
: boolean; Значение функции true, если нажата клавиша, и false, если нет |
Определяет, была ли нажата клавиша на клавиатуре |
| Function ReadKey
: char; Значение функции - код символа клавиши, нажатой на клавиатуре |
Чтение символа из буфера клавиатуры |
| Procedure GotoXY( X, Y : integer); X, Y - координаты курсора |
Перемещает курсор в указанные координаты окна вывода |
| Function WhereX: integer; Значение функции - координата X курсора |
Возвращает текущую координату Х курсора |
| Function WhereY: integer; Значение функции - координата Y курсора |
Возвращает текущую координату Y курсора |
| Procedure NoSound; | Выключает звук динамика |
| Procedure Sound(Hz: word); Hz - частота звука в герцах |
Включает звук динамика с заданной тональной частотой |
| Procedure Delay(MS : word); MS - значение задержки в миллисекундах |
Задержка исполнения программы на заданное число миллисекунд |