Чтение данных с клавиатуры без прерывания

[Evgenuych96]

Здравствуйте, мне хочется узнать, каким образом можно проверить какая клавиша нажата, без ожидания нажатия оной(как делает функция readkey). Тобеж будет цикл который проверяет буфер в котором должна хранится клавиша, и если там ничего нет то цикл запускается по новой до тех пор пока нужная клавиша не будет нажата. Можно ли реализовать это используя BIOS ? И если да то как? Скажу сразу, модуль Dos не предлагать, т.к. у меня Linux.
Компилятор: Free Pascal
Заранее спасибо!

[ViktorR]

Возможно поможет KeyPressed.
Функция возвращает true, если клавиша была нажата.

Функция ReadKey - позволяет прочитать код из буфера.
Ежели была нажата функциональная клавиша, то
первое применение ReadKey возвращяет 0, а повторное - символ.

Т.е., наприер,

repeat {ожидаем нажатия клавиши}
until KeyPressed();
funkey := false;
ch := ReadKey(); {читаем первый раз}
if ch = '0' then {только если нажата функ. клавиша}
begin
   ch := ReadKey();
   funkey := true;
end;
if funkey then
   writeln("Presset FunKey. Char is: ", ch)
else
   writeln("                Char is: ", ch);

Возможно, что вопрос понят не так ...

[Evgenuych96]

Благодарю, хоть это и не совсем то, но возможно сработает=)

[Serge_Bliznykov]

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

Благодарю, хоть это и не совсем то, но возможно сработает=)

Это именно то, что Вы ищите!
Согласитесь, трудно прочитать клавишу, которую ЕЩЁ НЕ нажали.
А функция keypressed проверяет, если ли нажатые клавиши в буфере клавиатуры, НЕ ОСТАНАВЛИВАЯ выполнение программы (функция ничего не ждёт - проверила - пустой буфер/очередь клавиатуры или нет).


только VictorR наделал в коде множество мелких ошибок (вероятно, писал код прямо в браузере).
ну и использовать repeat until keypressed, разумеется НЕ НУЖНО, ведь вам не нужно ждать нажатия клавиши.
в целом схема использовать может выглядеть примерно так:

uses crt;

var ch : char;
  funkey : boolean;
  FinishGame : boolean;
begin

FinishGame := false;
repeat  {главный цикл игры}

  ... тут действия, которые должны выполняться в
      игровом цикле, без остановки на ожидание нажатия клавиши
  например, непрерывная выдача точки на экран, чтобы было видно, что программа ничего не ждёт
  Write('.'); Delay(50);

  if KeyPressed then begin {если клавиша нажата, то обработать её}
       funkey := false;
       ch := ReadKey; {читаем первый раз}
       if ch = #0 then {только если нажата функ. клавиша}
         begin
           ch := ReadKey;
           funkey := true;
        end;


    ... тут реакция программы на нажатую клавишу.
        код клавиши в ch (признак функциональная или нет в funkey ) 
     например, выход из цикла 

    if ch=#27 then {если клавиша ESC}
       FinishGame := true;
        
  end;
    

until FinishGame; {конец игры}
WriteLn('Game is over. Press any key to exit...');
ReadKey
end.

[ViktorR]

Serge_Bliznykov

только VictorR наделал в коде множество мелких ошибок (вероятно, писал код прямо в браузере).

Прошу простить. В час ночи уже не так внимателен.
Писал по памяти, а когда то, для вывода кодов функциональных клавиш

ch := ReadKey();
if ch = #0 then
begin
   ch := ReadKey();
   writeln('Presset FunKey. Char is: ', ch, ' -- ', Ord(ch));
end;

и последующего управления меню, правда с использованием Case.

Так тоже бывает ...