simelavotor.dpr

来自「模拟电梯系统,有40个楼层,10做电梯,实现全部人和动作,望大家参考,提意见.」· DPR 代码 · 共 18 行

program SimElavotor;

uses
  Forms,
  Setupin in 'Setupin.pas' {setupForm},
  main in 'main.pas' {mainform},
  Define in 'Define.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(TsetupForm, setupForm);
  setupform.ShowModal;
  Application.Run;
end.