delphi入门-运行实例

控制台程序实例

File-New-others-console application

program Project1;
uses Windows;
begin
  MessageBox(0,PChar('Ok!'),PChar('Title'),0);
end.

program Project1;

{$APPTYPE CONSOLE}

var
  str: string;
begin
  Writeln('请输入：');
  Readln(str);
  Writeln('你输入的是：' + str);
  Readln;
end.