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

[Serge_Bliznykov]

а ещё можно использовать такую функцию (crt при этом не нужен... ;-)

function ReadKeyWord : word; assembler;
asm
      mov ah,0h
      int 16h
      ret
end;

[OCTAGRAM]

А отсутствие CRT нужно?

[Serge_Bliznykov]

А отсутствие CRT нужно?

да это не главное преимущество данной функции. (тем более, что в проекте, который работает в диалоге с пользователем CRT всё равно потребуется! я бы всё равно uses CRT; рекомендовал, в любом случае)
И то, что это практически максимально эффективное решение, тоже не главное достоинство.

А главное, что данная функция для ЛЮБОЙ клавиши (в том числе и управляющих курсором) выдаёт WORD (слово, два байта). т.образом не надо писать конструкции вида:
key := Readkey;
if key=#0 then key := Readkey;

а использовать её, или стандартную Readkey — это уже дело уже самого программиста...

[OCTAGRAM]

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

А главное, что данная функция для ЛЮБОЙ клавиши (в том числе и управляющих курсором) выдаёт WORD (слово, два байта). т.образом не надо писать конструкции вида:

key := Readkey;
if key=#0 then key := Readkey;

Так нельзя писать, кстати. key может быть обычной клавишей типа H, K, M, P. Чтобы стрелку вверх отличать от Shift-h, надо как–то указывать присутствие #0. Я обычно для клавиш использую string или string[2], и, если был #0, то он становится первым символом, а код клавиши — вторым, а если нет, то строка будет из одного символа.

key := ReadKey;
if key = #0 then key := key + ReadKey;

Удобно тем, что не надо тайпкастить Word и Char.

[Serge_Bliznykov]

Так нельзя писать, кстати.

БЕССПОРНО!
я просто демонстрировал конструкцию чтения обычным Readkey'ем...
в коде это выглядело бы так (это кусочек из старинного проекта):

Ans:=ReadKey;  { считываем символ }
case Ans of
     #13: begin
             ...
             Exit
           end;
     #27 :begin
           ...
           Exit
         end;
     #08 :  { если это 'забой' }
           begin
             ...
           end;
     #25,#4 :     {  ^y  ^d  }
           begin
            ... 
           end;

     #00:     { Если расширенные коды то смотрим какая клавиша нажата}
         begin
           Ans:=ReadKey;
           Case Ans of
           #83 :   {  Delete  }
             begin
               ...
             end;
           #75 :     {  Left  }
             begin
               ...
             end;
           #77 :     {  Right  }
             begin
               .... 
             end;
           end;
         end;
end;