нажатие кнопок..., считывание нажатия в цикле без его ост. Опции

[MuXa]

я хотел бы знать как в цикле фиксировать нажатие кнопки не останавливая при этом цикл ...
т.е. например в теле цикла х имзеняется по форуле x:=x+1; ... нажал что нада
а цикл всё идёт и ёдет ... но уже x:=x+2; ... вот так вот ...


за ответы заранее благодарен !

[xds]

Код

if keypressed then begin
key := readkey;
if (key = #0) then key := readkey;
end;

Расширенные коды BIOS всё же стоит обрабатывать отдельно от ASCII, в противном случае мы, например, получим дополнительное управление клавишами H, K, M, P (что, впрочем, можно рассматривать как "undocumented feature")

if KeyPressed then
  case ReadKey of
  { обработка ASCII }
  ...
  #0:
    case ReadKey of
    { обработка расширенных кодов }
    ...
    end;    
  end;