🚀 go-pugleaf

Try this

USES
     CRT;
VAR
     Key   : CHAR;
BEGIN
    REPEAT
    UNTIL KeyPressed;
    Key := ReadKey;
    IF Key = #0 THEN
        BEGIN
        (* If key = #0 you must readkey again to catch the second keycode *)
        Key = ReadKey;
        CASE Key OF
              #72 : BEGIN
                      (*  arrow up *)
                      END;
              #80 : BEGIN
                      (*  arrow down *)
                      END;
              #81 : BEGIN
                      (*  page down *)
                      END;
               END;
        END
    ELSE
        BEGIN
        CASE Key OF
              #72 : BEGIN
                      (*  character H *)
                      END;
               #80 : BEGIN
                      (*  character P *)
                      END;
              #81 : BEGIN
                      (*  character Q *)
                      END;
             END;

        END;
END.

Bjarne H. Hansen


John Skilbeck skrev:

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