🚀 go-pugleaf

John Skilbeck wrote:
> 
> I am having problems detecting whether a cursor key is pressed or certain
> capital letters within TP 7.0.
> 
> For example, the UP arrow on the keyboard is ASCII code 0 72, 'H' is ASCII
> code 72.
> 
> Is it possible to detect the difference between these keys in Pascal? If so,
> how??
> 
> Any suggestions would be much appreciated.
> 
> Thanks,
> 
> John.

uses crt;
var
  ch : char;
begin
  ch := readkey;
  case ch of
    #0 : begin
           ch := readkey;
           case ch of 
             #72 : writeln('Up has been pressed');
             #80 : writeln('Down has been pressed');
             #77 : writeln('Right has been pressed');
             #75 : writeln('Left has been pressed')
           end
  else
    writeln('No cursor key pressed')
  end
end.

This code has not been tested. But it should work.