Процедуры работы со строками

Процедура ClrEOL. Стирает часть строки от текущего положения курсора до правой границы окна (экрана). Положение курсора не меняет­ся.

Процедура DelLine. Уничтожает всю строку с курсором в текущем окне (или на экране, если окно не создано). При этом все строки ниже удаляемой (если они есть) сдвигаются вверх на одну строку.

Процедура InsLine. Вставляет строку: строка с курсором и все строки ниже ее сдвигаются вниз на одну строку; строка, вышедшая за нижнюю границу окна (экрана), безвозвратно теряется; текущее положение курсора не меняется.

Эти процедуры также могут оказаться полезными при разработке программ, использующих функции текстовых редакторов. Например, в предыдущем примере обработка клавиатуры может быть реализована следующим образом:

repeat

ch:=readKey;

case ch of

#77: x:=wherex+1;

#75: x:=wherex-1;

#72: y:=wherey-1;

#80: y:=wherey+1;

#79: InsLine;

#83: DelLine;

#82: InsLine;

…………….

#32: x:=x+1;

end;

…………….

Gotoxy(x,y);

until ch=#27;

С помощью этих процедур LowVideo, NortnVideo и HighVideo без параметров можно устанавливать соответственно пони­женную, нормальную и повышенную яркость символов. Например:

Uses CRT;

begin

LowVideo;

WriteLn('Пониженная яркость');

NormVideo;

WriteLn('Нормальная яркость');

HighVideo;

WriteLn('Повышенная яркость')

end.

Заметим, что на практике нет разницы между пониженной и нормальной яркостью изображения.