标准输出窗口为什么不出现呢

Question

我刚开始学Delphi，在建了一个project后，运行时标准输出窗口总是亮一下就没了，运行结果都看不到。请问各位这是什么原因啊！谢谢啦！

Answer 1

不是不出现, 而是出现了, 然后程序运行结束, 它又消失了。解决办法之一：在你程序结束处写一行 readln;例如：program MyPro;
begin
  Writeln ('Hello, world!');
  Readln;
end.

Answer 2

不可能,在end.之前加上readin绝对会停在那里.

Answer 3

题目是这样的：输入一行字符，计算数字字符的个数
program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;
var s:integer;
    c:Char;
begin
  s:=0;
  repeat
    Read(c);
    if c in ['0'..'9'] then Inc(s);
  until c=#13;
  Writeln('输入的数字符号有',s,'个。');
  Readln;
end.
这段代码应该没问题吧，编译没错，可运行时输入一行字符串后按回车，标准输出窗口闪了一下就没了！

Answer 4

题目是这样的：输入一行字符，计算数字字符的个数 
program Project1; {$APPTYPE CONSOLE} uses 
  SysUtils; 
var s:integer; 
    c:Char; 
begin 
  s:=0; 
  repeat 
    Read(c); 
    if c in ['0'..'9'] then Inc(s); 
  until c=#13; 
  Writeln('输入的数字符号有',s,'个。'); 
  Readln; 
end. 
这段代码应该没问题吧，编译没错，可运行时输入一行字符串后按回车，标准输出窗口闪了一下就没了！

Answer 5

回车是#13#10，读入#13后console in缓冲区里还有一个#10没被读出来，再read一个字符或者把判断改为#10就可以了