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:

Código Delphi [-]
  ...
  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 ... 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

un saludo.