Gennady
Гений
(60662)
16 лет назад
Доброго времени суток.
Карапуз немного, самую малость, не прав. Его код будет работать до тех пор, пока не нажмут функциональную клавишу. В этом случае ReadKey вернет ноль. Вот правильный вариант
if KeyPressed then С := ReadKey;
if С = #0 then C := ReadKey;
В довесок привожу коды некоторых клавиш
HomeKey = #71; EndKey = #79; CtrlPgUpKey = #132;
LeftKey = #75; RightKey = #77; CtrlPgDnKey = #118;
DownKey = #80; UpKey = #72; CtrlHomeKey = #119;
PgUpKey = #73; PgDnKey = #81; CtrlEndKey = #117;
F1Key = #59;
Удачи!
proxy
Просветленный
(41612)
16 лет назад
Не совсем понял вопроса
(видимо, ещё не до конца проснулся.. . :)
Можно так:
Uses Crt;
Var
C : Char;
{ все остальные константы / переменные }
Begin
if Keypressed then C := Readkey;
{ а теперь - нужно проверить "C", т. е. , посмотреть,
какая клавиша была нажата и выполнить нужные действия:
if C= ...then ...
или так:
Case C of ...}
end.
Раньше писал на Pascal-е, поэтому
кое-какие мелочи ещё помню...