Модуль Crt содержит множество процедур и функций, поддерживающих работу с экраном и клавиатурой в обход стандартных потоков ввода-вывода.
Обработка клавиатуры |
function KeyPressed: Boolean; |
Функция KeyPressed возвращает True, если произошло нажатие клавиши. |
function ReadKey: Char; |
Функция ReadKey возвращает символ с клавиатуры, ожидая нажатия. |
Окна |
procedure Window(X1, Y1, X2, Y2: Byte); |
Процедура Window устанавливает окно на экране. Весь дальнейший вывод и ввод информации происходит в его пределах. В качестве параметров передаются координаты левого верхнего и правого нижнего углов |
procedure ClrScr; |
Процедура ClrScr очищает текущее окно. |
Цвета |
ТП определяет в модуле Crt 15 констант для цветов текстовых режимов, плюс атрибут мигания, который для требуемого эффекта суммируется с цветом тона. Константы тона и фона: Black=0, Blue=1, Green=2, Cyan=3, Red=4, Magenta=5, Brown=6, LightGray=7; Константы тона: DarkGray=8, LightBlue=9, LightGreen=10, LightCyan=11, LightRed=12, LightMagenta=13, Yellow=14, White=15; Атрибут мигания: Blink=128 |
procedure TextBackground(Color: Byte); |
Процедура TextBackground устанавливает цвет фона |
procedure TextColor(Color: Byte); |
Процедура TextColor устанавливает цвет тона |
procedure NormVideo; |
Процедура NormVideo восстанавливает цвета тона и фона, определенные до запуска программы. |
procedure HighVideo; |
Процедура HighVideo устанавливает повышенную яркость символов. |
procedure LowVideo; |
Процедура LowVideo устанавливает пониженную яркость символов. |
Позиционирование курсора |
procedure GotoXY(X, Y: Byte); |
Процедура GotoXY устанавливает курсор в позицию X,Y |
function WhereX: Byte; |
Функция WhereX возвращает текущую координату X курсора. |
function WhereY: Byte; |
Функция WhereY возвращает текущую координату Y курсора. |
Экранные строки |
procedure ClrEol; |
Процедура ClrEol очищает все символы, начиная с позиции курсора до конца строки. |
procedure DelLine; |
Процедура DelLine удаляет строку, на которой находится курсор, все нижележащие поднимаются выше. |
procedure InsLine; |
Процедура InsLine вставляет пустую строку по позиции курсора, все нижележащие опускаются ниже. |
Звуки |
procedure Sound(Hz: Word); |
Процедура Sound включает внутренний динамик с частотой звука Hz герц. |
procedure NoSound; |
Процедура NoSound выключает внутренний динамик |
Различные процедуры |
procedure TextMode(Mode: Integer); |
Процедура TextMode устанавливает текстовый режим экрана. В модуле Crt определен следующий набор констант режимов экрана: BW40=0, черно-белый режим 40x25 CO40=1, цветной режим 40x25 BW80=2, черно-белый режим 80x25 CO80=3, цветной режим 80x25 Mono=7, монохромный режим 80x25 |
procedure AssignCrt(var f: Text); |
Процедура AssignCrt сопоставляет текстовый файл с экраном. Таким образом весь дальнейший ввод или вывод в текстовый файл будет перенаправляться на экран. |
procedure Delay(MS: Word); |
Процедура Delay приостанавливает работу программы на MS тиков. |