Для управления строками в модуле Crt определены процедуры:
ClrEol- очистка текущей строки от позиции курсора до конца строки.
InsLine - вставка пустой строки. Все строки, начиная с текущей смещаются на одну позицию вниз, при этом последняя строка становится невидимой.
DelLine - удаление текущей строки. Все строки ниже текущей поднимаются вверх на одну позицию. В нижнюю часть окна добавляется пустая строка.
ClrScr- очистка и заполнение текущего окна фоновым цветом. При этом курсор помещается в верхний левый угол окна т.(1,1). Данную процедуру обычно используют в начале работы программы.
Указанные процедуры производят заполнение фона цветом, установленным в TextBackGround.
Пример.
Uses Crt;
Var i:1..25;
oldmode:word;
Begin
oldmode:=LastMode;
TextBackGround(Yellow); { заполнение экрана
ClrScr; желтым фоном }
{ вставим 25 строк с указанием их номеров }
for i:=1 to 25 do
begin
GotoXY(1,1);
InsLine; { вставка пустой строки }
write(' Строка номер : ',i);
Delay(200);
end;
readln;
{ а теперь удалим все строки, начиная с первой }
GotoXY(1,1);
for i:=1 to 25 do
begin
DelLine; { удаление текущей строки }
Delay(200);
end;
TextMode(oldmode);
End.
Задание.
Выведите по центру экрана 3 текстовых строки "вставка","текущей","строки". Произведите заменуу строки "текущей" на "новой", используя процедуры DelLine и InsLine.