Question

pascal关于readkey的一个问题

在pascal中我想执行这样一个操作，在一个循环中用crt中的readkey从键盘不断读入字符，但是如果没有字符读入（就是没有按下键盘上键），就紧接着运行下面的东西，而不是一直在等待字符，该怎么办？谢谢！

Answer 1

crt单元定义的函数keypressed
布尔型函数
测定键盘输入状态
检测是否有键按下,有则函数值为true\真
否则返回false\假。
可以用keypressed,再加个判断,然后readkay

Answer 2

需要一个出口啊……但是，你不设置时限的话，它会一直等啊！不然你怎么知道人家想按到什么时候？或者你设置一个长度，超出了就不读了。从大局考虑，你这个程序设计的不完善呀，同学

Answer 3

二楼三楼的同志……在一个语句结束之前是不会执行下一个语句的……如果用keypressed怎么记录你输的是什么，所以还是要定义一个结束标志才成

Answer 4

楼上的不对，其实是有办法的。需要使用crt单元的一个函数：
function keypressed:boolean;
如果有输入则返回真，否则返回假。利用这个函数就可以弄出楼主想要的东西了。