Florian,
Thanks. I have fixed it using:
if KeyPressed then
ch := ReadKey
else
ch := '';
I know I should have know better, but for some strange reason only readkey
in a previous version seemed to work just fine. Thats why I was confused.
Darius Blaszijk
----- Original Message -----
From: "Florian Klaempfl" <[EMAIL PROTECTED]>
To: "FPC-Pascal users discussions" <fpc-pascal@lists.freepascal.org>
Sent: Monday, June 20, 2005 7:37 PM
Subject: Re: [fpc-pascal] strange behaviour of readkey...or not
> Darius Blaszijk wrote:
>
> > Hi there,
> >
> > I have a console app that reads keys being pressed and then does some
> > action. In short it would be like this:
> >
> > repeat
> > if fileage(myfile) <> imyfile then
> > begin
> > writeln('file changed');
> > imyfile := fileage(myfile);
> > end;
> >
> > ch := readkey;
> > until ch = 'q'
> >
> > So what I want is that the fileage test is done continously and when a
user
> > presses a key some other procedure is executed. But the problem is that
when
> > "ch := readkey" is reached, the app seems to stay waiting until a key is
> > pressed. In other words it only does the fileage test when I press a key
> > other than q. In my example the fileage test is only done once.
> >
> > Am I under the wrong impression that I should pull it off using
readkey??
> > What is the alternative??
>
> Do check of keypressed first:
> http://www.freepascal.org/docs-html/rtl/crt/keypressed.html
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
