Процедуры и функции управления курсором

ПроцедураGotoXY. Переводит курсор в нужное место экрана или текущего окна. Заголовок процедуры:

Procedure GotoXY(X,Y: Byte);

Здесь X,Y — новые координаты курсора. Координаты задаются отно­сительно границ экрана (окна), т.е оператор

GotoXY(1,1);

означает указание перевести курсор в левый верхний угол экрана (или окна, если к этому моменту на экране определено окно). Обращение к процедуре игнорируется, если новые координаты выходят за границы экрана (окна).

ФункцииWhereX и WhereY. С помощью этих функций типа Byte можно определить текущие координаты курсора: WhereX возвращает его гори­зонтальную, а WhereY — вертикальную координаты.

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

Program DemoRedaktor;

Uses CRT;

Var

x,y: integer;

ch: char;

Begin

x:=1;

y:=1;

TextBackGround(Blue);

Window(15,1,55,24);

ClrScr;

TextColor(White);

repeat

ch:=readKey;

case ch of

#77: x:=wherex+1;

#75: x:=wherex-1;

#72: y:=wherey-1;

#80: y:=wherey+1;

#128..#159: begin

write(ch);

x:=x+1;

end;

#160..#175: begin

Write(ch);

x:=x+1;

end;

#224..#238: begin

Write(ch);

x:=x+1;

end;

#32: x:=x+1;

end;

If x<1 then x:=40;

If x>40 then x:=1;

If y<1 then y:=24;

If y>24 then y:=1;

Gotoxy(x,y);

until ch=#27;

End.

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