comtest.dpr

来自「这是一个60吨地磅称量系统」· DPR 代码 · 共 57 行

program ComTest;

uses
  Forms,
  u_cap in 'u_cap.pas' {F_Cap},
  U_comtest in 'U_COMTEST.pas' {F_COMTest},
  U_comLwet in 'U_comLwet.pas' {F_COMLWET},
  u_datetimer in 'u_datetimer.pas' {f_datetimer},
  u_pass in 'u_pass.pas' {f_pass},
  u_pwdchg in 'u_pwdchg.pas' {f_pwdchg},
  u_pwdrgt in 'u_pwdrgt.pas' {f_pwdrgt},
  u_pwdset in 'u_pwdset.pas' {f_pwdset},
  U_UTIL in 'U_util.pas',
  U_CLTable1 in 'U_CLTable1.pas' {F_CLTable1},
  U_CLTable2 in 'U_CLTable2.pas' {F_CLTable2},
  U_RD in 'U_RD.pas' {F_RD},
  U_CARNO in 'U_CARNO.pas' {F_CARNO},
  U_METERNO in 'U_METERNO.pas' {F_METERNO},
  U_NAME in 'U_NAME.pas' {F_NAME},
  U_OPTER in 'U_OPTER.pas' {F_OPTER},
  U_SD in 'U_SD.pas' {F_SD},
  U_InData in 'U_InData.pas' {F_InData},
  U_SeeData in 'U_SeeData.pas' {F_SeeData},
  U_comwet in 'U_comwet.pas' {F_COMWET},
  U_SysHighSet in 'U_SysHighSet.pas' {F_SysHighSet},
  u_Gloat in 'u_Gloat.pas' {F_Gloat},
  u_GloatRecord in 'u_GloatRecord.pas' {F_GloatRecord};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(Tf_datetimer, f_datetimer);
  Application.CreateForm(TF_COMTest, F_COMTest);
  Application.CreateForm(TF_Cap, F_Cap);
  Application.CreateForm(Tf_pass, f_pass);
  Application.CreateForm(Tf_pwdchg, f_pwdchg);
  Application.CreateForm(TF_COMLWET, F_COMLWET);
  Application.CreateForm(Tf_pwdrgt, f_pwdrgt);
  Application.CreateForm(Tf_pwdset, f_pwdset);
  Application.CreateForm(TF_CLTable1, F_CLTable1);
  Application.CreateForm(TF_CLTable2, F_CLTable2);
  Application.CreateForm(TF_RD, F_RD);
  Application.CreateForm(TF_CARNO, F_CARNO);
  Application.CreateForm(TF_METERNO, F_METERNO);
  Application.CreateForm(TF_NAME, F_NAME);
  Application.CreateForm(TF_OPTER, F_OPTER);
  Application.CreateForm(TF_SD, F_SD);
  Application.CreateForm(TF_InData, F_InData);
  Application.CreateForm(TF_SeeData, F_SeeData);
  Application.CreateForm(TF_COMWET, F_COMWET);
  Application.CreateForm(TF_SysHighSet, F_SysHighSet);
  Application.CreateForm(TF_Gloat, F_Gloat);
  Application.CreateForm(TF_GloatRecord, F_GloatRecord);
  Application.Run;
end.