Клавиатура

[zumm]

Возник вопросец, как узнать какие клавиши нажаты в данный момент (хотя бы 3 последних). Сколько не ламал голову над этим вопросом так и не понял как это коректно реализовать...

PS находил где модуль с реализацией, но там одна и таже клавиша читалсь по 20 раз в секунду...

[_-Re@l-_]

var k:char;
     A:array[1..3] of char;
...
k:=readkey;
A[1]:=k;
...
k:=readkey;
A[2]:=k;
...
k:=readkey;
A[3]:=k;

[zumm]

А освобождать? вдруг клавиша уже не нажата?

[_-Re@l-_]

В общем, есть ещё логическая функция keypressed. Более не знаю.

[zumm]

юзал я и keypressed, не помогло...может не правильно юзал...

[Олвин]

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

ch : char;

if KeyPressed then
begin
 ch := ReadKey;
 case ch of
  32 : WriteLn('Вы нажали пробел');
  13 : WriteLn('Вы нажали Enter');
  112 : WriteLn('Вы нажали F1');
 end;
end;

[zumm]

Олвин, не нада учить меня пользоваться стандартными процедурами и функциями Тут речь иде о том как узнать какие клавиши зажаты на ДАННЫЙ момент...

[Олвин]

А какова задача? Может проще будет её решить стандартными средствами - без "извращений"?

[zumm]

А какова задача? Может проще будет её решить стандартными средствами - без "извращений"?

задачу я уже не однократно описывал

[Stepler]

Чем собственно ReadKey не устраивает? Функция возвращает сканкод последеней нажатой клавиши. Если хочется извращений то код последней нажатой клавиши можно прочитать с 60 порта.