Нажата ли клавиша...

[Xcopy]

Вообщем я хочу написать игрушку, и для этого необходимо проверить:
Если нажата клавиша "стрелка вверх" то делать тото..., 1 словом неважно, важно то откуда я узнаю нажата ли стрелка вверх (может у нее есть код и все такое)... 1 словом я хотел бы таблицу кодов клавиш которую понимает паскаль.

[Sazary]

Используйте keypressed. Возвращает true, если в буфере есть код клавиши. Пример:

if keypressed then
 begin
 c := readkey;
 { -- дальше обработка клавиши (код - в c) -- }
 end;

[Xcopy]

А как типо если нажата стрелка вверх?

[maladoy]

Левая стрелка - 75, Правая стрелка - 77, Стрелка вверх - 72, Стрелка вниз - 80.

У меня или дежа вю или это точно уже было!!
правда там вроде сначала #0 а потом #72

[Sazary]

А как типо если нажата стрелка вверх?

Сравнивать коды. Код стрелки вверх = 72.
Пример.

uses crt;
var c : char;

begin
clrscr;
repeat
if keypressed then
 begin
 c := readkey;
 if c=#72 then
  writeln('Nazhata strelka vverh');
 end;
until c=#27;

end.

у меня или дежа вю или это точно уже было!!

И не один раз )

правда там вроде сначала #0 а потом #72

Если показать код нажатой стрелки, то действительно будет 0 и 72.
Но при сравнении нужно использовать только 72.

[OCTAGRAM]

Лучше отличать #0, X от просто X, потому что это вполне обычные буквы H, K, M, P

[Sazary]

Лучше отличать #0, X от просто X, потому что это вполне обычные буквы H, K, M, P

Да, действительно ) Как-то раньше не обращал внимания..
Тогда пример будет выглядеть так:

uses crt;
var c : char;
begin
clrscr;
repeat
if keypressed then
 begin
 c := readkey;
 if (c=#0) then
  begin
   c:=readkey;
   if c=#72 then writeln('Nazhata strelka vverh');
  end;
 end;

until c=#27;

end.

[Iceman]

Все кнопки можно легко проверить:

var c:char;
begin
c:= readkey;
writeln(ord(c));
readln;
end;

[alex_fcsm]

uses crt; забыли

Все управляющие клавиши выдадут Вам 0

[OCTAGRAM]

Сообщение от alex_fcsm

uses crt; забыли

Все управляющие клавиши выдадут Вам 0

А сразу следующий за ним символ (ещё один readkey) — зависит от клавиши.