trans.dpr

来自「运筹学演示程序之运输问题」· DPR 代码 · 共 41 行

program Trans;

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Controls,
  Forms,
  Main in 'Main.pas' {MainForm},
  BasicU in 'BasicU.pas',
  DrawU in 'DrawU.pas' {ShowForm},
  LstepU in 'LstepU.pas',
  SmallU in 'SmallU.pas' {PettyForm},
  StepU in 'StepU.pas',
  LargeU in 'LargeU.pas' {LargeForm},
  FlashU in 'FlashU.pas' {FlashForm},
  choice in 'choice.pas' {ChoiceForm},
  VerU in 'VerU.pas' {VerForm};

{$R *.RES}
var
  i:word;

begin
  Application.Initialize;
  FlashForm:=TFlashForm.Create(application);
  Flashform.show;
  flashform.update;
  i:=gettickcount div 1000;
  while((gettickcount div 1000)<(i+2))do;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TChoiceForm, ChoiceForm);
  Application.CreateForm(TVerForm, VerForm);
  flashform.hide;
  flashform.Free;
  Application.Run;
end.