unit2.pas

开发了一个用于模拟电梯的程序,虽然功能不是很强,但对于理解线程又很大的好处

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Buttons;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    SpinEdit6: TSpinEdit;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
Uses Define;
{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
   Maxload:=spinedit1.Value;             //电梯最大乘客量
   PersonNum:=spinedit2.Value;         //参与仿真人数
   Ontime:=spinedit3.Value;               //人员到齐时间
   ElavotorSpeed:=spinedit4.Value; //电梯运行速度
   UpDownTime:=spinedit5.value;       //上下电梯时间
   TakeNum:=spinedit6.Value;             //乘做电梯次数
   self.Close;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.