cxsys.dpr

来自「用于建筑的测斜数据处理!把测试设备的数据下载电脑,通过本系统进行分析,然后生成所」· DPR 代码 · 共 34 行

program cxsys;

uses
  Forms,
  SysUtils,
  frmmain in 'frmmain.pas' {main},
  frmdataresult in 'frmdataresult.pas' {dataresult},
  frmabout in 'frmabout.pas' {AboutBox},
  frmchartexp in 'frmchartexp.pas' {chartexp},
  frmexpressions in 'frmexpressions.pas' {expressions},
  frmregsoft in 'frmregsoft.pas' {regsoft},
  frmstart in 'frmstart.pas' {start};

{$R *.res}

var time1:TDateTime;
begin
  Application.Initialize;
  start:=Tstart.Create(Application);
  start.Show;
  start.Refresh;
  time1:=now;
  repeat;
  until time1+StrtoTime('00:00:02')<=now;
  Application.Title := '数字测斜仪器数据分析系统';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Tdataresult, dataresult);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(Tchartexp, chartexp);
  Application.CreateForm(Texpressions, expressions);
  Application.CreateForm(Tregsoft, regsoft);
  Application.Run;
end.