Keypressed в паскале
Автор Lucky13 задал вопрос в разделе Другие языки и технологии
Как на Pascal-e писать readkey и keypressed вместе? и получил лучший ответ
Ответ от Gennady[гуру]
Доброго времени суток.
Карапуз немного, самую малость, не прав. Его код будет работать до тех пор, пока не нажмут функциональную клавишу. В этом случае 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;
Удачи!
Ответ от Ёергей Барановский[гуру]
Как то так наверное:
if KeyPressed and (ReadKey = a) then {Действие}
Как то так наверное:
if KeyPressed and (ReadKey = a) then {Действие}
Ответ от Иоанн Манящий[гуру]
Не совсем понял вопроса
(видимо, ещё не до конца проснулся.. . 🙂
Можно так:
Uses Crt;
Var
C : Char;
{ все остальные константы / переменные }
Begin
if Keypressed then C := Readkey;
{ а теперь - нужно проверить "C", т. е. , посмотреть,
какая клавиша была нажата и выполнить нужные действия:
if C= ...then ...
или так:
Case C of ...}
end.
Раньше писал на Pascal-е, поэтому
кое-какие мелочи ещё помню...
Не совсем понял вопроса
(видимо, ещё не до конца проснулся.. . 🙂
Можно так:
Uses Crt;
Var
C : Char;
{ все остальные константы / переменные }
Begin
if Keypressed then C := Readkey;
{ а теперь - нужно проверить "C", т. е. , посмотреть,
какая клавиша была нажата и выполнить нужные действия:
if C= ...then ...
или так:
Case C of ...}
end.
Раньше писал на Pascal-е, поэтому
кое-какие мелочи ещё помню...
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как на Pascal-e писать readkey и keypressed вместе?