Ayuda con Teclas Combinadas...

[Novatin]

Que tal amigos, como parte de mi aprendizaje de Pascal estoy convirtiendo mucho código de Turbo C++ a Pascal...

Y me surgio un pequeño gran problema... Tengo el siguiente código en C++ que me permite capturar la pulsación de teclas independientes y teclas combinadas (dos teclas presionadas al mismo tiempo):

while(True)
{
for(i=0;i<20;i++)
if(kbhit())
getch();

select=getch();

if(select==0)
select=getch()+1000;

printf("%d",select);

//aca va mas codigo...
}

E intentado traducir esto a Pascal... sin embargo veo que Pascal no tiene la funcion kbhit(), busque la ayuda y solo tiene la funcion ReadKey() que es equivalente a getch();

Como podría implementar esto en Pascal...??

Gracias de antemano por sus consejos..

[ecfisa]

Hola Novatin.

En Pascal tenes la función KeyPressed, ejemplo:

...
WriteLn('Presione una tecla');
repeat
until KeyPressed;
...

Esta función no está soportada en aplicaciónes GUI Win32 y por tanto tampoco en Delphi.

Saludos. :)

[Novatin]

Gracias ecfisa...

Era justo lo que buscaba... en realidad estoy tratando de entender bien a Pascal para luego pasar a delphi... quise ir directo a delphi... y me perdí bastante :o ... asi que al aprender pascal estoy dando 1 paso atras... pero creo que me servirá para dar - luego - dos pasos adelante... cuando empiece con delphi :p

un saludo.