Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---命令模式之RemoteControlTest

  1
  2{《HeadFirst设计模式》之命令模式 }
  3{ 本单元中的类为命令的接收者      }
  4{ 编译工具 ：Delphi7.0         }
  5{ 联系方式 ：guzh-0417@163.com }
  6
  7unit uReceiveObject;
  8
  9interface
 10
 11type
 12  TLight = class(TObject)
 13  private
 14    FLocation: String;
 15  public
 16    constructor Create(aLocation: String);
 17    procedure Open;
 18    procedure Off;
 19  end;
 20
 21  TCeilingFan = class(TObject)
 22  private
 23    FLevel   : Integer;
 24    FLocation: String;
 25    function GetSpeed: Integer;
 26  public
 27    constructor Create(aLocation: String);
 28    procedure High;
 29    procedure Medium;
 30    procedure Low;
 31    procedure Off;
 32    property  Speed: Integer read GetSpeed;
 33  end;
 34
 35  TGarageDoor = class(TObject)
 36  private
 37    FLocation: String;
 38  public
 39    constructor Create(aLocation: String);
 40    procedure Up;
 41    procedure Down;
 42    procedure Stop;
 43    procedure LightOn;
 44    procedure LightOff;
 45  end;
 46
 47  TStereo = class(TObject)
 48  private
 49    FLocation: String;
 50  public
 51    constructor Create(aLocation: String);
 52    procedure Play;
 53    procedure Off;
 54    procedure SetCD;
 55    procedure SetDVD;
 56    procedure SetRadio;
 57    procedure SetVolume(aVolume: Integer);
 58  end;
 59
 60  TTV = class(TObject)
 61  private
 62    FLocation: String;
 63    FChannel : Integer;
 64  public
 65    constructor Create(aLocation: String);
 66    procedure Open;
 67    procedure Off;
 68    procedure SetInputChannel;
 69  end;
 70
 71  THottub = class(TObject)
 72  private
 73    FOpen: Boolean;
 74    FTemp: Integer;
 75    function  GetTemp: Integer;
 76    procedure SetTemp(const Value: Integer);
 77  public
 78    function  Open: Boolean;
 79    function  Off : Boolean;
 80    procedure BubblesOpen;
 81    procedure BubblesOff;
 82    procedure JetsOpen;
 83    procedure JetsOff;
 84    procedure Heat;
 85    procedure Cool;
 86    property  Temp: Integer read GetTemp write SetTemp;
 87  end;
 88  
 89implementation
 90
 91const
 92  SPEED_HIGH   = 2;
 93  SPEED_MEDIUM = 1;
 94  SPEED_LOW    = 0;
 95
 96{ TLight }
 97
 98constructor TLight.Create(aLocation: String);
 99begin
  FLocation := aLocation;
end;

procedure TLight.Off;
begin
  Writeln(FLocation + 'Light is off.');
end;

procedure TLight.Open;
begin
  Writeln(FLocation + 'Light is on.');
end;

{ TCeilingFan }

constructor TCeilingFan.Create(aLocation: String);
begin
  FLocation := aLocation;
end;

function TCeilingFan.GetSpeed: Integer;
begin
  Result := FLevel;
end;

procedure TCeilingFan.High;
begin
  FLevel := SPEED_HIGH;
  Writeln(FLocation + 'Ceiling fan is on high.');
end;

procedure TCeilingFan.Low;
begin
  FLevel := SPEED_LOW;
  Writeln(FLocation + 'Ceiling fan is on low.');
end;

procedure TCeilingFan.Medium;
begin
  FLevel := SPEED_MEDIUM;
  Writeln(FLocation + 'Ceiling fan is on medium.');
end;

procedure TCeilingFan.Off;
begin
  FLevel := 0;
  Writeln(FLocation + 'Ceiling fan is on off.');
end;

{ TGarageDoor }

constructor TGarageDoor.Create(aLocation: String);
begin
  FLocation := aLocation;
end;

procedure TGarageDoor.Down;
begin
  Writeln(FLocation + 'Garage door is down.');
end;

procedure TGarageDoor.LightOff;
begin
  Writeln(FLocation + 'Garage light is off.');
end;

procedure TGarageDoor.LightOn;
begin
  Writeln(FLocation + 'Garage light is on.');
end;

procedure TGarageDoor.Stop;
begin
  Writeln(FLocation + 'Garage door is stopped.');
end;

procedure TGarageDoor.Up;
begin
  Writeln(FLocation + 'Garage door is up.');
end;

{ TStereo }

constructor TStereo.Create(aLocation: String);
begin
  FLocation := aLocation;
end;

procedure TStereo.Off;
begin
  Writeln(FLocation + 'Stereo is off.');
end;

procedure TStereo.Play;
begin
  Writeln(FLocation + 'Stereo is on.');
end;

procedure TStereo.SetCD;
begin
  Writeln(FLocation + 'Stereo is set for CD input.');
end;

procedure TStereo.SetDVD;
begin
  Writeln(FLocation + 'Stereo is set for DVD input.');
end;

procedure TStereo.SetRadio;
begin
  Writeln(FLocation + 'Stereo is set for radio.');
end;

procedure TStereo.SetVolume(aVolume: Integer);
begin
  Writeln(FLocation + 'Stereo volume set to ', aVolume);
end;

{ TTV }

constructor TTV.Create(aLocation: String);
begin
  FLocation := aLocation;
end;

procedure TTV.Off;
begin
  Writeln(FLocation + 'TV is off.');
end;

procedure TTV.Open;
begin
  Writeln(FLocation + 'TV is on.');
end;

procedure TTV.SetInputChannel;
begin
  FChannel := 3;
  Writeln('Channel is set for VCR.');
end;

{ THottub }

procedure THottub.BubblesOff;
begin
  if Off then
    Writeln('Hottub is not bubbling.');
end;

procedure THottub.BubblesOpen;
begin
  if Open then
    Writeln('Hottub is bubbling.');
end;

procedure THottub.Cool;
begin
  FTemp := 98;
  Writeln('Hottub is cooling to 98 degrees.');
end;

function THottub.GetTemp: Integer;
begin
  Result := FTemp;
end;

procedure THottub.Heat;
begin
  FTemp := 105;
  Writeln('Hottub is heating to a steaming 105 degrees.');
end;

procedure THottub.JetsOff;
begin
  if Off then
    Writeln('Hottub jets are off.');
end;

procedure THottub.JetsOpen;
begin
  if Open then
    Writeln('Hottub jets are open.');
end;

function THottub.Off:  Boolean;
begin
  FOpen  := False;
  Result := FOpen;
end;

function THottub.Open: Boolean;
begin
  FOpen  := True;
  Result := FOpen;
end;

procedure THottub.SetTemp(const Value: Integer);
begin
  FTemp := Value;
end;

end.

 

 

  1
  2{《HeadFirst设计模式》之命令模式     }
  3{ 将命令接收者中的动作包装成命令对象 }
  4{ 编译工具 ：Delphi7.0               }
  5{ 联系方式 ：guzh-0417@163.com       }
  6
  7unit uCommandObject;
  8
  9interface
 10
 11uses
 12  uReceiveObject;
 13
 14type
 15  TCommand = class(TObject)
 16  public
 17    procedure Execute; virtual; abstract;
 18  end;
 19
 20  TNoCommand = class(TCommand)
 21  public
 22    procedure Execute; override;
 23  end;
 24
 25  TLightOnCommand = class(TCommand)
 26  private
 27    FLight: TLight;
 28  public
 29    constructor Create(aLight: TLight);
 30    procedure Execute; override;
 31  end;
 32
 33  TLightOffCommand = class(TCommand)
 34  protected
 35    FLight: TLight;
 36  public
 37    constructor Create(aLight: TLight);
 38    procedure Execute; override;
 39  end;
 40
 41  TLivingRoomLightOnCommand = class(TLightOnCommand)
 42  end;
 43
 44  TLivingRoomLightOffCommand = class(TLightOffCommand)
 45  end;
 46
 47  TKitchenLightOnCommand = class(TLightOnCommand)
 48  end;
 49
 50  TKitchenLightOffCommand = class(TLightOffCommand)
 51  end;
 52
 53  TCeilingFanOnCommand = class(TCommand)
 54  private
 55    FCeilingFan: TCeilingFan;
 56  public
 57    constructor Create(aCeilingFan: TCeilingFan);
 58    procedure Execute; override;
 59  end;
 60
 61  TCeilingFanOffCommand = class(TCommand)
 62  private
 63    FCeilingFan: TCeilingFan;
 64  public
 65    constructor Create(aCeilingFan: TCeilingFan);
 66    procedure Execute; override;
 67  end;
 68
 69  TGarageDoorUpCommand = class(TCommand)
 70  private
 71    FGarageDoor: TGarageDoor;
 72  public
 73    constructor Create(aGarageDoor: TGarageDoor);
 74    procedure Execute; override;
 75  end;
 76
 77  TGarageDoorDownCommand = class(TCommand)
 78  private
 79    FGarageDoor: TGarageDoor;
 80  public
 81    constructor Create(aGarageDoor: TGarageDoor);
 82    procedure Execute; override;
 83  end;
 84
 85  TStereoOnWithCDCommand = class(TCommand)
 86  private
 87    FStereo: TStereo;
 88  public
 89    constructor Create(aStereo: TStereo);
 90    procedure Execute; override;
 91  end;
 92
 93  TStereoOffCommand = class(TCommand)
 94  private
 95    FStereo: TStereo;
 96  public
 97    constructor Create(aStereo: TStereo);
 98    procedure Execute; override;
 99  end;

  THottubOnCommand = class(TCommand)
  private
    FHottub: THottub;
  public
    constructor Create(aHottub: THottub);
    procedure Execute; override;
  end;

  THottubOffCommand = class(TCommand)
  private
    FHottub: THottub;
  public
    constructor Create(aHottub: THottub);
    procedure Execute; override;
  end;

implementation

{ TNoCommand }

procedure TNoCommand.Execute;
begin
end;

{ TLightOnCommand }

constructor TLightOnCommand.Create(aLight: TLight);
begin
  FLight := aLight;
end;

procedure TLightOnCommand.Execute;
begin
  FLight.Open;
end;

{ TLightOffCommand }

constructor TLightOffCommand.Create(aLight: TLight);
begin
  FLight := aLight;
end;

procedure TLightOffCommand.Execute;
begin
  FLight.Off;
end;



{ TLivingRoomLightOnCommand }

{ TLivingRoomLightOffCommand }

{ TKitchenLightOnCommand }

{ TKitchenLightOffCommand }



{ TCeilingFanOnCommand }

constructor TCeilingFanOnCommand.Create(aCeilingFan: TCeilingFan);
begin
  FCeilingFan := aCeilingFan;
end;

procedure TCeilingFanOnCommand.Execute;
begin
  FCeilingFan.High;
end;

{ TCeilingFanOffCommand }

constructor TCeilingFanOffCommand.Create(aCeilingFan: TCeilingFan);
begin
  FCeilingFan := aCeilingFan;
end;

procedure TCeilingFanOffCommand.Execute;
begin
  FCeilingFan.Off;
end;

{ TGarageDoorUpCommand }

constructor TGarageDoorUpCommand.Create(aGarageDoor: TGarageDoor);
begin
  FGarageDoor := aGarageDoor;
end;

procedure TGarageDoorUpCommand.Execute;
begin
  FGarageDoor.Up;
  FGarageDoor.LightOn;
end;

{ TGarageDoorDownCommand }

constructor TGarageDoorDownCommand.Create(aGarageDoor: TGarageDoor);
begin
  FGarageDoor := aGarageDoor;
end;

procedure TGarageDoorDownCommand.Execute;
begin
  FGarageDoor.Down;
  FGarageDoor.LightOff;
end;

{ TStereoOnWithCDCommand }

constructor TStereoOnWithCDCommand.Create(aStereo: TStereo);
begin
  FStereo := aStereo;
end;

procedure TStereoOnWithCDCommand.Execute;
begin
  FStereo.Play;
  FStereo.SetCD;
  FStereo.SetVolume(11);
end;

{ TStereoOffCommand }

constructor TStereoOffCommand.Create(aStereo: TStereo);
begin
  FStereo := aStereo;
end;

procedure TStereoOffCommand.Execute;
begin
  FStereo.Off;
end;

{ THottubOnCommand }

constructor THottubOnCommand.Create(aHottub: Thottub);
begin
  FHottub := aHottub;
end;

procedure THottubOnCommand.Execute;
begin
  FHottub.Open;
  FHottub.Heat;
  FHottub.BubblesOpen;
  FHottub.JetsOpen;
end;

{ THottubOffCommand }

constructor THottubOffCommand.Create(aHottub: THottub);
begin
  FHottub := aHottub;
end;

procedure THottubOffCommand.Execute;
begin
  FHottub.Cool;
  FHottub.Off;
end;

end.

 

 

 1
 2{《HeadFirst设计模式》之命令模式                  }
 3{ 本单元中的类为命令的请求者，向命令对象发出请求，}
 4{ 命令对象通过委托，执行命令接收者中的动作。      }
 5{ 编译工具 ：Delphi7.0                            }
 6{ 联系方式 ：guzh-0417@163.com                    }
 7
 8unit uInvoker;
 9
interface

uses
  uCommandObject;

type
  TRemoteControl = class(TObject)
  private
    FOnCommands : array of TCommand;
    FOffCommands: array of TCommand;
    FNoCommand  : TCommand;
  public
    constructor Create;
    destructor  Destroy; override;
    procedure SetCommand(aSlot: Integer; aOnCommand, aOffCommand: TCommand);
    procedure OnButtonWasPressed(aSlot: Integer);
    procedure OffButtonWasPressed(aSlot: Integer);
  end;

implementation

{ TRemoteControl }

constructor TRemoteControl.Create;
var
  i: Integer;
begin
  SetLength(FOnCommands,  7);
  SetLength(FOffCommands, 7);

  FNoCommand := TNoCommand.Create;
  for i := 0 to 6 do
  begin
    FOnCommands [i] := FNoCommand;
    FOffCommands[i] := FNoCommand;
  end;
end;

destructor TRemoteControl.Destroy;
begin
  FNoCommand.Free;
  inherited;
end;

procedure TRemoteControl.OffButtonWasPressed(aSlot: Integer);
begin
  FOffCommands[aSlot].Execute;
end;

procedure TRemoteControl.OnButtonWasPressed(aSlot: Integer);
begin
  FOnCommands [aSlot].Execute;
end;

procedure TRemoteControl.SetCommand(aSlot: Integer; aOnCommand, aOffCommand: TCommand);
begin
  FOnCommands [aSlot] := aOnCommand;
  FOffCommands[aSlot] := aOffCommand;
end;

end.

 

 

 1
 2{《HeadFirst设计模式》之命令模式 }
 3{ 客户端负责创建具体的命令对象   }
 4{ 编译工具 ：Delphi7.0           }
 5{ 联系方式 ：guzh-0417@163.com   }
 6
 7program pRemoteControlTest;
 8
 9{$APPTYPE CONSOLE}

uses
  uReceiveObject in 'uReceiveObject.pas',
  uCommandObject in 'uCommandObject.pas',
  uInvoker in 'uInvoker.pas';

var
  RemoteControl  : TRemoteControl;

  LivingRoomLight: TLight;
  KitchenLight   : TLight;
  CeilingFan     : TCeilingFan;
  GarageDoor     : TGarageDoor;
  Stereo         : TStereo;

  LivingRoomLightOnCommand : TLightOnCommand;
  LivingRoomLightOffCommand: TLightOffCommand;
  KitchenLightOnCommand    : TLightOnCommand;
  KitchenLightOffCommand   : TLightOffCommand;

  CeilingFanOnCommand      : TCeilingFanOnCommand;
  CeilingFanOffCommand     : TCeilingFanOffCommand;

  GarageDoorUpCommand      : TGarageDoorUpCommand;
  GarageDoorDownCommand    : TGarageDoorDownCommand;

  StereoOnWithCDCommand    : TStereoOnWithCDCommand;
  StereoOffCommand         : TStereoOffCommand;

begin
  RemoteControl   := TRemoteControl.Create;

  LivingRoomLight := TLight.Create('Living Room');
  KitchenLight    := TLight.Create('Kitchen');
  CeilingFan      := TCeilingFan.Create('Living Room ');
  GarageDoor      := TGarageDoor.Create('');;
  Stereo          := TStereo.Create('Living Room');

  LivingRoomLightOnCommand  := TLightOnCommand.Create(LivingRoomLight);
  LivingRoomLightOffCommand := TLightOffCommand.Create(LivingRoomLight);
  KitchenLightOnCommand     := TLightOnCommand.Create(KitchenLight);
  KitchenLightOffCommand    := TLightOffCommand.Create(KitchenLight);

  CeilingFanOnCommand       := TCeilingFanOnCommand.Create(CeilingFan);
  CeilingFanOffCommand      := TCeilingFanOffCommand.Create(CeilingFan);

  GarageDoorUpCommand       := TGarageDoorUpCommand.Create(GarageDoor);
  GarageDoorDownCommand     := TGarageDoorDownCommand.Create(GarageDoor);

  StereoOnWithCDCommand     := TStereoOnWithCDCommand.Create(Stereo);
  StereoOffCommand          := TStereoOffCommand.Create(Stereo);

  RemoteControl.SetCommand(0, LivingRoomLightOnCommand, LivingRoomLightOffCommand);
  RemoteControl.SetCommand(1, KitchenLightOnCommand, KitchenLightOffCommand);
  RemoteControl.SetCommand(2, CeilingFanOnCommand, CeilingFanOffCommand);
  RemoteControl.SetCommand(3, StereoOnWithCDCommand, StereoOffCommand);
  RemoteControl.SetCommand(4, GarageDoorUpCommand, GarageDoorDownCommand);

  RemoteControl.OnButtonWasPressed (0);
  RemoteControl.OffButtonWasPressed(0);
  RemoteControl.OnButtonWasPressed (1);
  RemoteControl.OffButtonWasPressed(1);
  RemoteControl.OnButtonWasPressed (2);
  RemoteControl.OffButtonWasPressed(2);
  RemoteControl.OnButtonWasPressed (3);
  RemoteControl.OffButtonWasPressed(3);
  RemoteControl.OnButtonWasPressed (4);
  RemoteControl.OffButtonWasPressed(4);

  RemoteControl.Free;
  LivingRoomLight.Free;
  KitchenLight.Free;
  CeilingFan.Free;
  GarageDoor.Free;
  Stereo.Free;
  LivingRoomLightOnCommand.Free;
  LivingRoomLightOffCommand.Free;
  KitchenLightOnCommand.Free;
  KitchenLightOffCommand.Free;
  CeilingFanOnCommand.Free;
  CeilingFanOffCommand.Free;
  GarageDoorUpCommand.Free;
  GarageDoorDownCommand.Free;
  StereoOnWithCDCommand.Free;
  StereoOffCommand.Free;

  Readln;
end.

 

运行结果：