mainprj.~dpr

来自「一个简单的火车售票系统」· ~DPR 代码 · 共 29 行

program mainprj;

uses
  Forms,
  main in 'main.pas' {Form1},
  untChangsha in 'untChangsha.pas' {frmchangsha},
  untchengdu in 'untchengdu.pas' {frmchengdu},
  untchongqing in 'untchongqing.pas' {frmchongqing},
  untBeijing in 'untBeijing.pas' {frmBeijing},
  UntWuhan in 'UntWuhan.pas' {frmWuhan},
  untZhuzhou in 'untZhuzhou.pas' {frmzhuzhou},
  untGuangzhou in 'untGuangzhou.pas' {frmGuangzhou};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '火车站售票系统';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tfrmchangsha, frmchangsha);
  Application.CreateForm(Tfrmchongqing, frmchongqing);
  Application.CreateForm(TfrmBeijing, frmBeijing);
  Application.CreateForm(TfrmWuhan, frmWuhan);
  Application.CreateForm(Tfrmzhuzhou, frmzhuzhou);
  Application.CreateForm(TfrmGuangzhou, frmGuangzhou);
  Application.CreateForm(Tfrmchengdu, frmchengdu);
  Application.Run;
end.