Foros Club Delphi - Ayuda con Teclas Combinadas...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)

- - Ayuda con Teclas Combinadas... (https://www.clubdelphi.com/foros/showthread.php?t=83791)

Ayuda con Teclas Combinadas...

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):

Código:

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..

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. :)

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.