Графика, отрисовка, клавиатура, Как совместить непрерывность отрисовки с управлением с клавиатуры? Опции

[Чужак]

Есть программа, делающа непрерывную отрисовку
с помощью repeat. Если используется структура

....
repeat
....
until Keypressed;

на экраине идет непрерывная отрисовка,
до нажатия любой клавиши.
Но если поменять на

....
repeat
....
until Readkey='q';

Программа выходит по нажатию
клавиши q, но работает только
при нежатии любой другой клавиши(нажал и не отпускаешь).
Как совместить непрерывность отрисовки с управлением с клавиатуры?

[andriano]

readkey ждет нажатия клавиши, поэтому работа программы приостанавливается.
Проще всего организовать примерно так:

repeat
  ch := #0; // забываем предшествующее состояние
  if keypressed then begin
    ch := readkey;
    case ch of
       ... // обработка нужных клавиш - изменение состояния
    end; //case
  end;
  DrawScreen; // отрисовка нового состояния с учетом нажатых клавиш и прошедшего времени
until (ch = 'q') or (ch = 'Q'); // заботимся, чтобы работа программы не зависела от состояния Caps Lock

Сообщение отредактировано: andriano - 6.01.2008 4:03