
Para el READKEY
Publicado por ARol (15 intervenciones) el 20/10/2000 00:00:00
Hola, bien cada tecla tiene un código como bien lo sabes, Esc =#27 o lo que es lo mismo Esc=Chr(27), bien este es un programa que te determina el código de la tecla que has presionado utilizando obviamente el READKEY, por cierto te indico que las teclas comunes, (a..z, 0..1, etc)estan compuestas de un solo código, este es el caso del Esc que es el 27, las teclas como las de Función(F!..F12, teclas del cursor, etc) se componen de 2 códigos, el #0 y el correspondiente a cada tecla. Ejm. F1 =#0 y #59
uses crt;
var tecla:char;
begin
Writeln(´presiones una tecla..´);
tecla:= readkey;
if tecla=#0 then
begin
write(´#0 + ´);
tecla:=Readkey
end
else
writeln(ord(tecla));
readkey
end.
PD: espero que esto te ayude, suerte
uses crt;
var tecla:char;
begin
Writeln(´presiones una tecla..´);
tecla:= readkey;
if tecla=#0 then
begin
write(´#0 + ´);
tecla:=Readkey
end
else
writeln(ord(tecla));
readkey
end.
PD: espero que esto te ayude, suerte
Valora esta pregunta


0