Возвращает значение типа Char. При обращении к этой функции анализируется буфер клавиатуры: если в нем есть хотя бы один непрочитанный символ, код этого символа берется из буфера и возвращается в качестве значения функции, в противном случае функция будет ожидать нажатия на любую клавишу. Ввод символа с помощью этой функции не сопровождается эхо-повтором, и содержимое экрана не меняется.
Пусть, например, в какой-то точке программы необходимо игнорировать все ранее нажатые клавиши, коды которых еще не прочитаны из буфера, т.е. необходимо очистить буфер. Этого можно достичь следующим способом:
Uses CRT;
var
С: Char;
begin
while KeyPressed do
С := ReadKey;
.......
end.
При использовании процедуры ReadKey необходимо учесть, что в клавиатурный буфер помещаются так называемые расширенные коды нажатых клавиш. Если нажимается любая алфавитно-цифровая клавиша, расширенный код совпадает с ASCII-кодом соответствующего символа. Например, если нажимается клавиша с латинской буквой «а» (в нижнем регистре), функция ReadKey возвращает значение chr (97), а если «А» (в верхнем регистре) – значение chr (65). При нажатии функциональных клавиш F1...F10, клавиш управления курсором, клавиш Ins, Home, Del, End, PgUp, PgDn в буфер помещается двухбайтная последовательность: сначала символ #0, а затем расширенный код клавиши. Таким образом, значение #0, возвращаемое функцией ReadKey, используется исключительно для того, чтобы указать программе на генерацию расширенного кода. Получив это значение, программа должна еще раз обратиться к функции, чтобы прочитать расширенный код клавиши, т.е. код сканирования клавиши. Этот код определяется порядком, в соответствии с которым микропроцессор клавиатуры Intel 8042 периодически опрашивает (сканирует) состояние клавиш.
Следующая простая программа позволит вам определить расширенный код любой клавиши. Для завершения работы программы нажмите клавишу Esc.
Uses CRT;
var
С: Char;
begin
repeat
С := ReadKey;
if C<>#0 then
WriteLn(ord(C))
else
WriteLnCO1 ,ord(ReadKey) :8)
until C=#27 {27 - расширенный код клавиши Esc}
end.
Если вы воспользуетесь этой программой, то обнаружите, что нажатие на некоторые клавиши игнорируется функцией ReadKey. Это прежде всего так называемые сдвиговые клавиши – Shift, Ctrl, Alt. Сдвиговые клавиши в MS-DOS обычно используются для переключения регистров клавиатуры и нажимаются в сочетании с другими клавишами. Именно таким способом, например, различается ввод прописных и строчных букв. Кроме того, функция игнорирует переключающие клавиши Caps Lock, Num. Lock, Scroll Lock, а также «лишние» функциональные клавиши F11 и F12 клавиатуры IBM AT, не имеющие аналога на клавиатуре ранних моделей IBMPC/XT (в этих машинах использовалась 84-клавишная клавиатура, в то время как на IBM AT – 101- клавишная).
В таблице 4.1 приводятся расширенные коды клавиш, возвращаемые функцией ord(ReadKey). Для режима ввода кириллицы приводятся коды, соответствующие альтернативному варианту кодировки.
Таблица 4.1
Расширенные коды клавиш
| Код | Клавиша или комбинация клавиш | Код | Клавиша или комбинация клавиш | ||
| Первый байт | Второй байт | Первый байт | Второй байт | ||
| Алфавитно-цифровые клавиши | |||||
| - | Backspace (Забой) | - | Tab (Табуляция) | ||
| - | Enter | - | Пробел | ||
| - | ! | - | " | ||
| - | # | - | $ | ||
| - | % | - | & | ||
| - | ' | - | ( | ||
| - | ) | - | * | ||
| - | + | - | , | ||
| - | - | - | . | ||
| - | / | 48...57 | - | 0...9 | |
| - | - | ; | |||
| - | < | - | = | ||
| - | > | - | ? | ||
| - | @ | 65...90 | - | A...Z | |
| - | [ | - | |||
| - | ] | - | ^ | ||
| - | - | ' | |||
| 97...122 | - | a...z | - | { | |
| - | l | - | } |
Окончание табл. 4.1
| - | ~ | 128...159 | - | А...Я | |
| 160... 175 | - | а...п | 224...239 | - | р...я |
| Управляющие клавиши и их сочетания со сдвиговыми | |||||
| Ctrl-2 | Shift-Tab | ||||
| 16...25 | Alt-Q...Alt-Р (верхний ряд букв) | 30...38 | Alt-A...Alt-L (средний ряд букв) | ||
| 44...50 | Alt-Z...Alt-М (нижний ряд букв) | 59...68 | F1...F10 | ||
| - 71 | Ноте | Курсор вверх | |||
| PgUp | Курсор влево | ||||
| Курсор вправо | End | ||||
| Курсор вниз | PgDn | ||||
| Ins | Del | ||||
| 84...93 | Shift-Fl...Shift-F10 | 94...103 | Ctrl-F1... Ctrl-F10 | ||
| 104...113 | Alt-Fl...Alt-F10 | Ctrl-PrtScr | |||
| Ctrl-курсор влево | Ctrl-Курсор вправо | ||||
| Ctrl-End | Ctrl-PgDn | ||||
| Ctrl-Home | 120...131 | Alt-1. ..Alt-= (верхний ряд клавиш) | |||
| Ctrl-PgUp |