Question

为什么delphi的控制台应用程序运行后闪一下就没了？

Answer 1

加 Readln;语句
------------------------

以下是一个源码实例：

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c:integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('输入 a : ');
Readln(a);
Write('输入 b : ');
Readln(b);
c := a+b ;
Writeln('a+b=: ',c);
Writeln('按 <Enter> 退出');
Readln;{ 加上这句话即可}

end.