Question

求助：pascal中，怎样实现随时读入？

即 程序不会因read()没读就停下来，而可以随时读入数据
（我想编一个贪吃蛇，但如果用read读入上下左右，程序到read()时就会停下来等读入，结果每走一步都要按一下方向）
感激不尽！！！
keypressed 和 readkey都具体咋用，最好有例子，谢谢

Answer 1

keypressed 和 readkey ??? 你是在用DOS时代的TURBO PASCAL吗？？？

在编辑窗口输入 keypressed 和 readkey，光标移动到对应的单词上按CTRL+F1系统就会显示这个函数的功能、参数、例子，非常详细的，英语也没几个单词，你能看明白的。

function KeyPressed: Boolean;
这个函数在有键按下的时候返回TRUE，你的程序在它返回TRUE的时候才去读，这样就不会把程序停下来。

function ReadKey: Char;
这个函数返回按下的键，你如果想知道按下一个键的返回值，可以运行下面的小程序进行测试：
uses Crt;

var
C: Char;
begin
Writeln('Please press a key');
C := Readkey;
Writeln(' You pressed ', C, ', ASCII＝',ord(C));
end.

Answer 2

建议读到0为止，
用
repeat
read(c);
until c='0';
就好了