repeat
if keypressed then begin;
if (readkey = 'a') then doSomeProc;
else doOtherProc;
end;
until false;
Как получить данные с клавиатуры? Работа стрелками
Хочу написать программку, и очень хочеться использовать в ней стрелки на клавиатуре.
Попробовал узнать их код через оrd(readkey), но ничего не получилось. Всегда ответ 0.
У меня есть цикл, и обработка нажатых клавиш
Как же словить стрелки в данном случае? Мне так кажется, что надо через ассемблер, но я в нём не разбираюсь.
Попробовал узнать их код через оrd(readkey), но ничего не получилось. Всегда ответ 0.
У меня есть цикл, и обработка нажатых клавиш
Код:
Как же словить стрелки в данном случае? Мне так кажется, что надо через ассемблер, но я в нём не разбираюсь.
Все правильно 0 и должен возврашаться! Он говорит тебе о том что введен символ дополнительный то бишь расширенного кода клавы. Так вот а чтобы определить что именно нажато надо еше раз написать readkey и вот то что он вернет и скажет что нажато соответственно
72 - стрелка вверх
80 - стрелка вниз
75 - влево
77 - вправо
вообщем выглядить должно примерно так:
if (readkey = 0) then
72 - стрелка вверх
80 - стрелка вниз
75 - влево
77 - вправо
вообщем выглядить должно примерно так:
if (readkey = 0) then
спасибо!