Информационные байты расширенных кодов клавиатуры

Для опроса содержимого буфера в модуле CRT применяются функции KeyPressed и ReadKey. Первая функция имеет описание следующего вида:

Function KeyPressed: Boolean;

Она возвращает True, если в буфере содержится хотя бы один символ, и False, если буфер пуст.

Наиболее часто функция KeyPressed используется в циклах ожидания нажатия на любую клавишу, в частности в виде конструкций:

а) Repeat until KeyPressed;

б) While not Keypressed do;

В обоих случаях процессор зацикливается, выполняя пустой оператор до нажатия любой клавиши. Если буфер содержит хотя бы один код (была нажата клавиша, т.е. KeyPressed = True), то цикл завершается и управление передается следующему за ним оператору.

Для корректного использования цикла ожидания буфер клавиатуры необходимо предварительно очищать от кодов случайно или ранее нажатых клавиш. Для этого используется функция ReadKey. Она описывается следующим образом:

Function ReadKey: char;

Эта функция извлекает код символа из буфера и возвращает его в программу без эхо-повтора символа на экран. Буфер организован в виде очереди по принципу "первым пришел - первым ушел" и рассчитан на хранение до 15 кодов.

Если буфер пуст, то функция ReadKey приостанавливает выполнение программы до нажатия на любую клавишу кроме Shift, Ctrl, Alt, CapsLock, NumLock, ScrollLock, т.е. позволяет отслеживать нажатие более широкого множества клавиш по сравнению с Read/ReadLn.

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

Var ch: char;

Begin............

while KeyPressed do ch:= ReadKey; {очистка буфера}

repeat until KeyPressed; {ожидание нажатия}

............

End.

Каждое обращение к функции ReadKey извлекает один содержащийся там код. Если в двухбайтовом коде главный байт совпадает с ASCII, ReadKey возвращает в программу только этот код, а скан-код отбрасывает. Если главный байт равен нулю, то после его считывания необходимо еще раз обратиться к ReadKey для считывания вспомогательного байта расширенного кода. Например:

while KeyPressed do ch:= ReadKey; {очистка буфера}

ch:= ReadKey; {ожидание ввода и считывание

кода при нажатии клавиши}

if ch =# 0 then begin ch:= ReadKey; {прием расширенного кода}

............

end;

Далее ch анализируется обычно с помощью условного оператора if или оператора case of.