TURBO PASCAL

Новости           

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности

От автора

 

Q:> 2.4.5 Как читать клавиши курсора, F1-F12 и т.д.?

A:> Эти клавиши кодируются двумя байтами: #0 +<код> Есть таблицы для всех этих символов, но можно обойтись и без них Откомпилите эту программку и будете знать коды любых клавиш =)
uses Crt;
var
Key: char;
Begin
while true do Begin
Key:=readkey;
case Key of
#0: WriteLN('#0 + #', ord(readkey));
#27: Begin WriteLN('#27 - Esc pressed.'); Halt; End;
Else WriteLN(ord(key))
End;
End;
End.

ps А можно ещё и скан-коды юзать, но это гемор и не всегда
оправданно.

На первую страницу
Rambler's Top100 Яндекс цитирования Rambler's Top100 PROext: Top 1000

(с)Все права защищены

По всем интересующим вопросампрошу писать на электронный адрес

Hosted by uCoz