Hi all,

I am using the delay function to pause for an amount of time which works
but will not allow the user to stop the program from the console, using
ctrl-C. If I could trap the keystroke, I would be happy.

Excuse the indentation...

while not eof(sin) do
    begin
        repeat
           readln (sin, line);
           writeln (line);
           //readln(input_text);
           delay(250); //time is measured in milliseconds
           input_text:='hello';
           writeln(sout,input_text);
        until keypressed;
    end;
close (sin);


What is a better way to write that code snippet. The delay does not need
to be accurate (quarter of a second will not matter).. 

Thanks

George Patterson

_______________________________________________
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to