Работа с текстом. Модуль CRT

Модуль CRT представляет собой библиотеку функций и про­цедур, предназначенных для увеличения возможностей текстового ввода-вывода данных. Все описание возможностей данного модуля представлено в табл. 10.1. Для задания одного из текстовых режи­мов предназначена процедура PROCEDURE TEXTMODE (MODE: WORD);

где Mode - код текстового режима, который может принимать следующие значения:

- BW40 = 0 - черно-белый режим 40 х 25;

- СО40 = 1 - цветной режим 40 х 25;

- BW80 = 2 - черно-белый режим 80 х 25;

- СО80 = 3 - цветной режим 80 х 25;

- MONO = 7 - монохромный для черно-белого адаптера;

- FONT8X8 = 256 - используются для загружаемого шрифта в режиме 80 х 45 или 80 х 50 с адаптерами VGA или EGA.

Какой бы режим не был установлен, координаты верхнего ле­вого угла экрана всегда определяются как XI = 1 и Y1 = 1. При­ращение значений по оси X происходит слева направо, а по оси Y - сверху вниз (рис. 10.1). Значение координат нижнего правого уг­ла зависит от режима: либо Х2 = 40 и Y2 = 25, либо Х2 = 80 и Y2 = 25, либо Х2 = 80 и Y2 = 45, либо Х2 = 80 и Y2 = 50. Все программы, рассматриваемые в данной теме, написаны для режи­ма СО40, где МАХХ = 40, MAXY = 25.

Рис. 10.1. Размеры экрана для модуля CRT

Таблица 10.

 

Функция или процедура	Назначение
KeyPressed	Определяет, была ли нажата клавиша на клавиатуре Function KeyPressed: boolean;
ReadKey	Читает значение нажатой клавиши Function ReadKey: char;
TextBackground	Определяет цвет фона Procedure TextBackground(Color: byte);
TextColor	Определяет цвет выводимых символов Procedure TextColor (Color: byte);
TextMode	Определяет текстовый режим Procedure TextMode (Mode: Word);
ClrScr	Очищает экран и устанавливает курсор в левый верх­ний угол экрана Procedure ClrScr;
Window	Определяет текстовое окно на экране Procedure Window (XI, Yl, X2, Y2: Byte);
WhereX	Возвращает значение горизонтальной координаты Function WhereX: Byte;
WhereY	Возвращает значение вертикальной координаты Function WhereY: Byte;
GotoXY	Переводит курсор в указанное место Procedure GotoXY(X, Y: Byte);
DelLine	Уничтожает всю строку с курсором Procedure DelLine;
InsLine	Вставляет строку Procedure InsLine;
ClrEol	Стирает часть строки от курсора до правой границы Procedure ClrEol;
HighVideo	Устанашшвает повышенную яркость символов Procedure HighVideo;
Norm Video	Устанавливает нормальную яркость символов Procedure NormVideo;
LowVideo	Устанашшвает пониженную яркость символов Procedure LowVideo;
AssignCrt	Связывает текстовый файл с окном CRT Procedure AssignCrt(F: Text);
Delay	Вводит задержку в миллисекундах Procedure Delay (T: Word);
Sound	Заставляет динамик звучать с нужной частотой Procedure Sound (F: Word);
NoSound	Отключает динамик Procedure NoSound;

Для того чтобы стали доступны указанные в табл. 10.1 функ­ции и процедуры, необходимо явно указать модуль CRT командой USES CRT;

С помощью процедуры TEXTBACKGROUND(COLOR: BYTE);можно устанавливать различные цвета экрана или текстового ок­на. Допустимые значения переменной Color колеблются от 0 (чер­ный цвет) до 7 (белый цвет).

Для установления цветов символов служит процедура TEXTCOLOR (COLOR: BYTE);

где значение цвета изменяется от 0 до 15, а мерцание символов устанавливается значением 128.

В модуле CRT можно устанавливать цвета фона и цвета сим­волов и с помощью следующих мнемонических констант:

 

BLACK = 0 BLUE = 1 OREEN = 2 CYAN = 3 RED = 4 MAGENTA = 5 BROWN = 6 LIGHTORAY = 7 DARKGRAY = 8 UGHTBLUE = 9 LIGHTGREEN = 10 LIGHTCYAN = 11 LIGHTRED = 12 LIGHTMAGENTA = 13 YELLOW = 14 WHITE = 15 BLINK = 128

Черный Темно-синий Темно-зеленый Бирюзовый Красный Фиолетовый Коричневый Светло-серый Темно-серый Голубой Салатовый Светло-бирюзовый Розовый Малиновый Желтый Белый Мерцание символа

 

Процедура TEXTBACKGROUND устанавливает цвет, а CLRSCR очищает экран или текстовое окно и закрашивает его требуемым цветом. Курсор при этом перемещается в левый верх­ний угол. По умолчанию цвет экрана черный.

Например, для того, чтобы последовательно закрашивать эк­ран во все цвета палитры, нужно организовать следующий цикл:

FOR I:= О ТО 15 DO

BEGIN