Pascal/Turbo Pascal - Duda con KeyPressed

Hola a todos.

Por favor, alguien me puede decir cómo puedo usar el KeyPressed para poder repetir un ciclo hasta que se pulse una tecla.

Lo he intentado, pero cuando el programa entra de nuevo al ciclo KeyPressed se comporta como si ya se hubiese presionado la tecla y no entra al ciclo. En pocas palabras puedo restablecer el valor de KeyPressed.

De antemano, muchas gracias.

Porque no pruebas usando un readkey, asignadolo a una variable.

Por ejemplo despues del ciclo donde usas el keypressed haces lo siguiente

w:=readkey;

donde w es de tipo char

Para que quede más claro.
KeyPressed devuelve True si hay un caracter en el buffer de teclado pero NO se detiene a esperarlo. Un ejemplo.
Repeat
{ hacer cualquier cosa }
until KeyPressed;
Este ciclo se repite hasta que se presione cualquier tecla que genere un caracter, pero insisto NO se detiene a esperar por una tecla, cosa que sí hace ReadKey devolviendo el caracter correspondiente. Otro ejemplo:
Repeat
{ hacer cualquier cosa }
until KeyPressed;
A:=ReadKey;
WriteLn('Usted salió al haber presionado la tecla: ', A);
Lo que sucede aquí es que el ciclo se ejecuta, KeyPressed verifica si hay un caracter en el buffer, sino lo hay el ciclo se repite, si lo hay, KeyPressed devuelve true y el ciclo termina.
Se ejecuta ReadKey el cual extrae la tecla del buffer y almacena su valor en A (que debe ser de tipo Char).

Hola!
Si estas programado bajo DOS puedes
usar la función para limpiar el buffer y llamarla despues del keypressed

procedure Clear_KeyBoard_Buffer; assembler;
asm
mov ax,0C06h
mov dl,0h
int 21h
end;

Esta es otra opcion que puedes probar:

repeat
{tu codigo}
until keypressed;
while keypressed do readkey;

Gracias por su tiempo
Att:Ge-ergon

Hola!
Aqui te paso otra rutina para limpiar el buffer del teclado
utilizando funciones del BIOS.

procedure ClearKeyBuf;assembler;
label ciclo,fin;
asm
ciclo: mov ah,$11
int 16h
jz fin
mov ah,$10
int 16h
jmp ciclo
fin:
end;

Att:Ge-ergon

Hola a todos.

Probé el procedimiento enviado por [email protected] y funciona perfectamente, aunque no logro entender el código, ya que está en asembler. Les agradecería que alguien me lo explicara si no es demasiado pedir.

Finalmente, por lo que veo no es posible limpiar reiniciar KeyPressed si recurrir a la utilización de un procedimiento. Ojalá que en versiones posteriores venga implementado esto.

Sin otro particular, se despide muy agradecido de todos Uds.

Julio

Me temo que eso no será posible. Turbo Pascal hace 14 años que no se actualiza y Borland no volverá a dedicarle tiempo a un producto obsoleto para un sistema operativo obsoleto.

Hola!
En realidad es muy sencillo:
El procedimiento en pseucodigo sería:

procedure limpiar_ buffer_ teclado;
begin
while exista_tecla_en_buffer then remover_tecla
end;

Puedes buscar información sobre las funciones del BIOS para
el teclado en:
http://www.ctyme.com/intr/int-16.htm

Aqui te comento el código:

procedure ClearKeyBuf;assembler;
label ciclo,fin; { se declaran etiquetas}
asm
ciclo: mov ah,$11 { parametro 11 para indicar si se preciono una tecla}
int 16h {llama a la funcion que usa parametro 11 en ah}
jz fin {si no existe tecla en buffer goto fin}
mov ah,$10 {parametro 10 para leer tecla y descargarla del buffer}
int 16h {llama funcion que usa parametro 10 en ah}
jmp ciclo {goto ciclo}
fin:
end;

Email:[email protected]
Att:Ge-ergon