Модуль CRT в FreePascal

Официальный мануал: Reference for unit ‘Crt’: Procedures and functions

Некоторые процедуры модуля

  • ClrScr – очистить экран
  • KeyPressed : boolean – сканирует буфер клавиатуры и определяет, была ли нажата клавиша. Если да, то возвращает true, иначе false. Shift, Alt, Ctrl не определяются.
  • ReadKey – возвращает код нажатой клавиши клавиатуры.

Пример использования:
Пример 1

Program Example1;
uses
        crt;
var
        cbuf:char;
{ Program to demonstrate the ReadKey function. }
begin
clrscr;
cbuf:=readkey;
if cbuf = #27 then
        writeln('ESC')
else
        writeln('NO')
end.

Пример 2

Program Example2;
uses Crt;
{ Program to demonstrate the KeyPressed function. }
begin
  clrscr;
  writeLn('Waiting until a key is pressed');
  repeat

  until keypressed;
end.

Некоторые коды клавиш:
Пробел #32
BackSpace #8
Tab #9
Enter #13
Esc #27
PageUp #33
PageDown #34
End #35
Home #36
Стрелка назад #37
Стрелка вверх #38
Стрелка вперед #39
Стрелка вниз #40
Delete #46

Print Friendly, PDF & Email

Добавить комментарий