首页 相关文章 Command模式

Command模式

  最近学习模式入迷, 所以就想写一篇关于模式的文章,这篇文章是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;

   TStop...[ 查看全文 ]

2016-02-19 标签:

Command模式的相关文章

手机页面
收藏网站 回到头部