KEY PRESS в Pascale

[Gordon]

Как в Pascale определить какая кнопка нажата.
Аналог INKEY$ в Basic

Короче, переписать примерно такой  Basic-код:
a$ = INKEY$
IF a$ = "Y" OR a$ = "y" THEN  и т.д.
в Pascale.(именно в Pascale, а не в Delphi)

[Finch]

Вот код,

Код:

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.

Оригинал лежит здесь http://borlpasc.narod.ru/FAQ/2_4_5.htm . Найдено Рамблером.

[x77]

иными словами, ReadKey считывает один байт. если же нажатие генерериует два байта (для функциональных клавиш), то первый вызов вернёт 0, а следующий - собственно, скан-код.

а твой вариант будет выглядеть примерно так, как ты и написал:

a := ReadKey.
if (a = 'Y') or (a = 'y') then
  ...


хотя в паскале, по-моему, уже есть функция UpCase или что-то типа. приведение к верхнему регистру, в общем.