Delphi 编写控制台程序(无Form)

    打开Delphi，在新建中，选择Console Application，就可以写代码

    控制台程序是以program 开头，并有编译标识{$APPTYPE CONSOLE}用以标识程序是控制台程序；通常情况下只需要引用SysUtils一个单元就可以；

    如下是一个简单的事例，可以编写一个控制台程序

    program Project1;

    {$APPTYPE CONSOLE}

    uses
      SysUtils;
    var
      I,J:Integer;
    begin
      try
        for I := 1 to 9 do
        begin
          for J := 1 to I do
          begin
            write(Format('%2d*%2d=%2d',[J,I,I*J]));
          end;
          Writeln;
        end;
        Readln;
      except
        on E:Exception do
          Writeln(E.Classname, ': ', E.Message);
      end;
    end.