Command模式

原创 2004年05月28日 14:59:00

最近学习模式入迷, 所以就想写一篇关于模式的文章,这篇文章是<<Java 与模式>> (阎宏 著)里的一个例子, 我把它改成Delphi的.第一次写东西, 有不足之处希望大家可以谅解.

这个例子还是比较好理解的, 所以只给出代码.

unit pattern;

interface

uses Dialogs;

type
  TAudioPlayer = class;

  TCommand = class
  public
    procedure execute; virtual; abstract;
  end;

  TPlayCommand = class(TCommand)
  private
    AudioPlayer: TAudioPlayer;
  public
    procedure execute; override;
    procedure Playcommand(AP: TAudioPlayer);
  end;

  TStopCommand = class(TCommand)
  private
    AudioPlayer: TAudioPlayer;
  public
    procedure execute; override;
    procedure StopComman(AP: TAudioPlayer);
  end;

  TRewindCommand = class(TCommand)
  private
    AudioPlayer: TAudioPlayer;
  public
    procedure execute; override;
    procedure RewindCommand(AP: TAudioPlayer);
  end;

  TKeyPad = class
  private
    PlayCommand: TCommand;
    StopCommand: TCommand;
    RewindCommand: TCommand;
  public
    constructor Create(PlayC, StopC, RewindC: TCommand); virtual;
    procedure play();
    procedure stop();
    procedure rewind();
  end;

  TAudioPlayer = class
  public
    procedure play();
    procedure stop();
    procedure rewind();
  end;

  TClient = class
  private
    KeyPad: TKeyPad;
    AudioPlayer: TAudioPlayer;
  public
    constructor Create();
    procedure test();
  end;

implementation

{ TKeyPad }

constructor TKeyPad.Create(PlayC, StopC, RewindC: TCommand);
begin
  PlayCommand := PlayC;
  StopCommand := StopC;
  RewindCommand := RewindC;
end;

procedure TKeyPad.play;
begin
  PlayCommand.execute;
end;

procedure TKeyPad.rewind;
begin
  RewindCommand.execute;
end;

procedure TKeyPad.stop;
begin
  StopCommand.execute;
end;

{ TAudioPlayer }

procedure TAudioPlayer.play;
begin
  ShowMessage('play');
end;

procedure TAudioPlayer.rewind;
begin
  ShowMessage('rewind');
end;

procedure TAudioPlayer.stop;
begin
  ShowMessage('stop');
end;

{ TPlayCommand }

procedure TPlayCommand.execute;
begin
  inherited;
  AudioPlayer.play();
end;

procedure TPlayCommand.Playcommand(AP: TAudioPlayer);
begin
  self.AudioPlayer := AP;
end;

{ TRewindCommand }

procedure TRewindCommand.execute;
begin
  inherited;
  AudioPlayer.Rewind;
end;

procedure TRewindCommand.RewindCommand(AP: TAudioPlayer);
begin
  AudioPlayer := ap;
end;

{ TStopCommand }

procedure TStopCommand.execute;
begin
  inherited;
  AudioPlayer.Stop;
end;

procedure TStopCommand.StopComman(AP: TAudioPlayer);
begin
  AudioPlayer := ap;
end;

{ TClient }

constructor TClient.Create;
begin
  AudioPlayer := TAudioPlayer.Create();
end;

procedure TClient.test;
var
  PlayCommand: TCommand;
  StopCommand: TCommand;
  RewindCommand: TCommand;
begin
  PlayCommand := TPlayCommand.Create;
  StopCommand := TStopCommand.Create;
  RewindCommand := TRewindCommand.Create;
  KeyPad := TKeyPad.Create(PlayCommand, StopCommand, RewindCommand);
  KeyPad.stop;
  KeyPad.play;
  KeyPad.rewind;
  KeyPad.Stop;
end;

end.
 

命令模式Command

  • 2014年12月16日 16:13
  • 4KB
  • 下载

Command模式undo

  • 2007年08月22日 23:37
  • 21KB
  • 下载

Command模式实现撤销重做(Undo/Redo)

这是在实际项目中遇到的需求,项目中使用了Java Swing画界面,开始时没有实现撤销重做,后期要求加入撤销重做功能。在网上查找到资料说这种撤销重做的操作一般通过Command模式来实现,在实现过程中...
  • sjepy
  • sjepy
  • 2012年06月05日 23:30
  • 5564

命令模式_Command

  • 2017年08月10日 16:48
  • 50KB
  • 下载

Command命令模式介绍.docx

  • 2016年06月27日 10:54
  • 61KB
  • 下载

命令模式(Command)

命令模式也是开发中常见的一个模式,也不是太难,比较简单,下面来详细的写一下命令模式。     命令模式(Command) 1  场景问题 1.1  如何开机    ...

设计模式-COMMAND

  • 2008年09月13日 15:38
  • 28KB
  • 下载

命令模式(Command Pattern)

命令模式(Command Pattern) 将一个请求封装为一个对象,从而使你可用不同的请求对客户进许参数化;对请求排队或记录请求日志, 以及支持撤销的操作。   ///     //...

命令模式_Command 游戏设计

  • 2017年08月10日 16:50
  • 45KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Command模式
举报原因:
原因补充:

(最多只允许输入30个字)