Асинхронный ввод на Паскале, Изменение хода программы от нажатия клавиш в любое время Опции

[ag58]

Добрый день!
Научите как запрограммировать на Паскале:
Например, печатается какой-то символ бесконечно. Нажимается другой символ и начинает печататься нажатый символ.
То есть, при нажатии какого-то символа (в любое время) изменяется ход программы.
Заранее спасибо, Александр.

[APAL]

Функция READKEY Вам в помощь:

ReadKey (функция) (модуль Crt)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Читает символ из буфера клавиатуры.

Объявление:
Function ReadKey : Char;

Режим:
Windows, Real, Protected

Замечания:
Символ не отображается на экране.

{ReadKey.PAS}
 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 { Пример программы для функции ReadKey }

 Uses Сrt;

 Var C : Char;

 Begin
  WriteLn('Нажмите любую клавишу:');
  C:=Readkey;
  WriteLn('Вы нажали ', C, ', с кодом ASCII равным ', Ord©, '.');
 End.

Или еще пример:

...
Repeat
If KeyPressed then Ch:=ReadKey;
If Ch=#0 then Ch:=ReadKey; {проверка на функциональную клавишу (расширенный код)}
Write(Ch);
Until Ch=#27; {#27 - код нажатия ESC}
...

Сообщение отредактировано: APAL - 25.06.2013 18:21