Delphi Command模式

纵横无界 發表於 2008-3-15 18:15:04

这个例子还是比较好理解的， 所以只给出代码. 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.  

 <div class="art_xg">
 您可能感兴趣的文章:<ul><li>用Command对象和RecordSet对象向数据库增加记录哪一个更好</li><li>使用Jmail及Winwebmail发信时系统记录中的错误：502 Error: command ...</li><li>asp中command的在单条记录时,有些字段显示为空的问题</li><li>javascript document.execCommand() 常用解析</li><li>asp.net gridview的Rowcommand命令中获取行索引的方法总结</li><li>php设计模式Command(命令模式)</li><li>php设计模式 Command(命令模式)</li><li>获取Repeter的Item和ItemIndex/CommandArgument实现思路与代码</li><li>解决VS2012 Express的There was a problem sending the command to the program问题</li><li>bash scp command not found的解决方法</li><li>GridView中动态设置CommandField是否可用或可见的小例子</li><li>document.execCommand()的用法小结</li><li>pip 错误unused-command-line-argument-hard-error-in-future解决办法</li><li>在RowCommand事件中获取索引值示例代码</li><li>ON_COMMAND_RANGE多个按钮响应一个函数的解决方法</li><li>C#命令模式(Command Pattern)实例教程</li><li>ASP基础知识Command对象讲解</li></ul>
 </div>

 </div>

頁: [1]

琼殿技术论坛's Archiver

Delphi Command模式