NetNews Usenet Archive 1992 #16/NN_1992_16.iso/spool/comp/lang/pascal/4604

Internet Message Format | 1992-07-29 | 640 b

Path: sparky!uunet!stanford.edu!rutgers!cmcl2!adm!news
From: [e-mail] ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Re readkey
Message-ID: <[e-mail]>
Date: 29 Jul 92 18:38:21 GMT
Sender: [e-mail]
Lines: 22

There is a problem with the readkey example.  If you use readkey and check
for a key, then you lose any further checks.  Here's how I do it:

Var
  ch1,ch2:char;

Begin
  ch1:=ReadKey;
  Case ch1 of
    32:{space}
    46:{whatever}
     0:Begin
         ch2:=ReadKey;
         Case ch Of
           'K':{arrow}
           ...
         End;
  Else
   ...
  End;

This always works good for me.