Turbo C中有一个getch()函数可以让程序在任一键之后，继续运行！那么Pascal中有什么命令可以达到相同的功能呢？

Question

你说的是在面向过程设计里用的。delphi是面向对象的是事件驱动的，比如keypress等的事件可供选择！例如在dos下编写认键盘程序就只能用死循环，而在windows程序中就靠事件触发。

Answer 1

完全同意 luckdan_78(干杯)　

Answer 2

那你就循环读就是了ch := 0;
while ch <> 0 do read(ch);

Answer 3

//for Turbo pascal 6.0
uses
  Ctr;function ReadKey: Char;
//参考KeyPressed

Answer 4

在控制台程序中可用调用 read 或 readln 来达到类似的效果

Answer 5

uses crt;
var ch:char;
begin
  if keypressed then 
    begin
      ch:=readkey;
    end;
  writeln(ch);
end.