ms_draw.dpr

基于高速铁路周边电动势计算的关键

program MS_Draw;

uses
  Forms,
  SysUtils,
  Main in 'Main.pas' {MainForm},
  ShowDrawUnit in 'ShowDrawUnit.pas' {ShowDrawForm},
  GlobalVarDefs in 'GlobalVarDefs.pas',
  DrawInfor in 'DrawInfor.pas' {DrawInforForm},
  SetparaUnit in 'SetparaUnit.pas' {SetparaForm},
  CalculateUnit in 'CalculateUnit.pas' {CalculateForm},
  About in 'About.pas' {AboutForm},
  Wait in 'Wait.pas' {WaitForm},
  WaitPas_Unit in 'WaitPas_Unit.pas',
  ModeExcelUnit in 'ModeExcelUnit.pas',
  Progress in 'Progress.pas' {ProgressForm},
  OutToExcelUnit in 'OutToExcelUnit.pas',
  FlashUnit in 'FlashUnit.pas' {FlashForm},
  SystemUnit in 'SystemUnit.pas' {SystemSetForm};

{$R *.res}

begin

  Application.Initialize;

  FlashForm:=TFlashForm.Create(application);
  FlashForm.Show;
  FlashForm.Update;
  Sleep(500);

  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSystemSetForm, SystemSetForm);
  FlashForm.Hide;
  FlashForm.Free;

  Application.CreateForm(TDrawInforForm, DrawInforForm);
  Application.CreateForm(TCalculateForm, CalculateForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TWaitForm, WaitForm);
  Application.CreateForm(TProgressForm, ProgressForm);
  Application.CreateForm(TFlashForm, FlashForm);


  Application.Run;
end.