delphi怎样写控制台程序啊

Question

大家给段代码啊

Answer 1

控制台? 新建一个就行啊 new->other->Console Application
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Hello world!');
  readln;end.

Answer 2

New一个Console就是这么简单,看看书或Help就有的
http://lysoft.7u7.net

Answer 3

这让我想起一些事情来，我刚学C++时想法很简单，就想用VC写个Console程序，查了半天才知道这种杀鸡用牛刀的事情多么简单，好在我是从Turbo pascal走过来的,才也没使Delphi学写类Dos程序落入相同的地步.如果楼主学C++时用得BCB，估计也不会有此问题了，BCB和Delphi简直是孪生的。

Answer 4

除了以上方法外，也可以用 AllocConsole() GetStdHandle()  SetConsoleTitle() ReadFile() WriteFile() CloseHandle() 等 API 动态创建控制台窗口。

Answer 5

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;function pop(i:integer):integer; overload;
begin
  writeln('function pop(i:integer):integer; be called');
  result:=i+1;
end;procedure pop(i:integer;j:integer);overload;
begin
   writeln('procedure pop(i:integer;j:integer) be called');
end;
var
  ii:integer;
begin
  pop(ii);
  pop(ii,ii);
  readln;
end.