Keypressed в цикле, Как сменить значение keypressed Опции

[Soxatyi]

Такая проблема. Необходимо вставить паузу в цикл, т.е. если во время выполнения цикла я нажал любую клавишу, то программа останавливается на 2 сек., а потом цикл продолжается. Приведу простой ппример:

program delay_key;
var x:integer;
begin
x:=0;
repeat;
x:=x+1; 
writeln(x);
delay(1000);
if keypressed then delay(10000);
until(x=30);
readln;
end.

Здесь такая бага: после одного нажатия клавиши программа дальше всегда вставляет паузу, т.е. сменив значение keypressed на TRUE, она при следующем проходе цикла так и оставляет это значение. Нужно, чтобы от одного нажатия пауза вставлялась один раз. Если я потом опять нажал на кнопку, то пауза опять вставится, и т.д.
По логике, в if..then после длинного delay надо впихнуть что-то вроде keypressed:=FALSE (ибо keypressed суть boolean), но выдается ошибка 122.
Что делать?

[Guest]

Мой вариант компилится только на 16-ти битных компиляторах,
почему - говорилось выше, странно, что ты опять поднимаешь эту тему.
Простейший вариант, когда твой вариант не сработает

uses
    CRT;
var
   ch : char;
begin
     ClrScr;
     WriteLn('Press and hold any key...');
     ReadKey;
     While KeyPressed do ReadKey;
     WriteLn('Bye...');
end.

Если нажать и удерживать клавишу, то программа не должна сразу
завершиться. В моем варианте допущена ошибка (пришлось поставить Pascal для проверки), на
самом деле нужно было писать:

memW[$0: $042c] := memW[$0: $042a]

Применение это нашло здесь: http://www.borlpasc.narod.ru/prog/Soliter.zip

[volvo]

Мой вариант компилится только на 16-ти битных компиляторах, почему - говорилось выше, странно, что ты опять поднимаешь эту тему.

Тему-то, на самом деле, поднимаешь ты. Я могу только еще раз повторить, что для того чтобы избежать БОЛЬШИХ проблем при переходе с 16-ти на 32-х битные компиляторы я бы советовал (и об этом я уже говорил выше) пользоваться ТОЛЬКО библиотечными функциями...

Простейший вариант, когда твой вариант  не сработает

:D Смеяться уже можно? Чего это "не сработает"? У меня прекрасно работает...
Причем и в TP70, и в FPC 2.0.0 (кстати, а какой вариант ты мне можешь предложить для FPC? Не писать пока программы?)