delphi编写控制台程序（用WRITELN（）输出），输出结果在仿真DOS窗口中，为何该仿真DOS窗口一闪而过，几乎来不急看清，如何调节时间？？

[delphi5love]

[zengyufeng]

你开一个 dos 窗口执行就行了

[zengyufeng]

如果你不想开 dos 窗口，可以用以下办法解决：
1、在 Writeln 之后加以条 Readln 语句，这样就会等待一个回车之后才会退出；
2、在 Writeln 之后用 Sleep(500) 让当前线程停 500 毫秒。

[hhzh426]

可以在程序结束的时候等待用户确认(比如敲任意一个键之类的)！

[xsq]

在程序结尾加入readln,这样，只有敲了回车才退出

[hotboy]

var
s : string;
begin
Write('Enter a line of text: ');
Readln(s);
Writeln('You typed: ',s);
Writeln('Hit <Enter> to exit');
Readln;

[hotboy]

诶呀没分，早知道我不回答了！