unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    tb1: TTrackBar;
    tb2: TTrackBar;
    Memo1: TMemo;
    Memo2: TMemo;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    TabSheet2: TTabSheet;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    stb1: TStatusBar;
    TabSheet3: TTabSheet;
    StrGd1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses define;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
     for i:=0 to 1 DO
      begin
         ElavotorTrack[i]:=TTrackbar.Create(nil);
         Elavotor_idle_Label[i]:=TStaticText.Create(nil);
         Elavotor_Busy_Label[i]:=TStaticText.Create(nil);
         Elavotor_Memo[i]:=Tmemo.Create(nil);
      end;
     ShowFloor:=TStringGrid.Create(nil);
     ShowFloor:=StrGD1;
      ElavotorTrack[0]:=TB1;
      ElavotorTrack[1]:=TB2;

        Elavotor_idle_Label[0]:=statictext2;
        Elavotor_idle_Label[1]:=statictext4;

          Elavotor_Busy_Label[0]:=statictext1;
          Elavotor_Busy_Label[1]:=statictext3;

            Elavotor_Memo[0]:=Memo1;
            Elavotor_Memo[1]:=Memo2;

    try
        SystemControl:=TSystemControl.Create;
        SystemControl.Initsystem;
    finally
    end;
          SystemControl.Initsystem;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i:integer;
begin
 //释放所有类对象和线程的内存资源
 try
   SystemMonitor.FreeOnTerminate:=true;
   SystemMonitor.Terminate;
   for i:=0 to Systemcontrol.CurrentPersonTotal-1 DO
     Person[i].Free;
   for i:=0 to 1 Do
    begin
      RunThread[i].FreeOnTerminate:=true;
      RunThread[i].Terminate;
      Elavotor[i].Free;
      ElavotorTrack[i].Free;
      Elavotor_idle_Label[i].free;
      Elavotor_Busy_Label[i].free;
    end;
    for i:=0 to 1 DO
      Floor[i+1].Free;
    SystemControl.Free;
  finally
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
  SystemMonitor.Resume;
  sleep(1000);
  for i:=0 to 1 DO
  RunThread[i].Resume;
end;

end.