frmdemo.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 91 行

unit frmDemo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Demo, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    btnRideBicycle: TButton;
    btnDriveCarA: TButton;
    ckbGPS: TCheckBox;
    btnDriveCarB: TButton;
    btnUseGPS: TButton;
    Image1: TImage;
    procedure btnDriveCarAClick(Sender: TObject);
    procedure btnRideBicycleClick(Sender: TObject);
    procedure ckbGPSClick(Sender: TObject);
    procedure btnDriveCarBClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnUseGPSClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FGPSReceiver:TGPSReceiver;
    APerson:TPerson;
  public

  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.btnDriveCarAClick(Sender: TObject);
var MyCar:TCar;
begin
  MyCar:=TCar.Create(FGPSReceiver,'黑色','红旗',200);
  APerson.drive(MyCar);
  MyCar.Free;
end;

procedure TForm1.btnRideBicycleClick(Sender: TObject);
var Bicycle:TBicycle;
begin
  Bicycle:=TBicycle.Create;
  APerson.Ride(Bicycle);
  Bicycle.Free;
end;

procedure TForm1.ckbGPSClick(Sender: TObject);
begin
  if  ckbGPS.Checked then
    FGPSReceiver:=TGPSReceiver.Create
  else
    FreeAndNil(FGPSReceiver);
  if assigned(FGPSReceiver) then showmessage('导航系统开启...')
  else showmessage('导航系统关闭...');
end;

procedure TForm1.btnDriveCarBClick(Sender: TObject);
var MyCar:TCar;
begin
  MyCar:=TCar.Create(FGPSReceiver,'红色','夏利',120);
  APerson.drive(MyCar);
  MyCar.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  APerson:=TPerson.Create;
end;

procedure TForm1.btnUseGPSClick(Sender: TObject);
begin
  if assigned(FGPSReceiver) then APerson.use(FGPSReceiver)
  else Showmessage('GPS系统没有工作，无法使用！');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  APerson.Free;
  if assigned(FGPSReceiver) then FGPSReceiver.Free;
end;

end.