《GOF设计模式》—命令(COMMAND)—Delphi源码示例:命令接口

原创 2011年01月08日 09:43:00

示例:命令接口 
说明: 
(1)、定义 
将一个请求封装为一个对象,从而使你可用不同的请求对客户进行参数化;对请求排队或记录请求日志,以及支持可撤消的操作。 

(2)、结构 
  clip_image002[15]
命令: 
Command:命令对象。声明执行操作的接口。 
ConcreteCommand:具体命令对象。将一个接收者对象绑定于一个动作;调用接收者相应的操作,以实现Execute。 
Invoker:发送者对象。要求该命令执行这个请求。 
Receiver:接收者对象。知道如何实施与执行一个请求相关的操作。任何类都可能作为一个接收者。 
客户: 
Client:客户端。创建一个具体命令对象并设定它的接收者。 

代码: 
unit uCommand; 

interface 

uses 
    SysUtils,Dialogs,Contnrs; 

type 
    TReceiver = class; 

    TCommand = class 
    public 
        procedure Execute(); virtual; abstract; 
    end; 

    TConcreteCommand = class(TCommand) 
    private 
        FReceiver: TReceiver; 
        FState: Integer; 
    public 
        constructor Create(AReceiver: TReceiver); 
        //--- 
        procedure Execute; override; 
    end; 

    TReceiver = class 
    private 
        FState: Integer; 
    public 
        constructor Create; 
        //--- 
        procedure Action(); 
        //--- 
        property State: Integer read FState write FState; 
    end; 

    TInvoker = class 
    private 
        FCommands: TObjectList; 
    public 
        constructor Create; 
        destructor Destroy; override; 
        //--- 
        procedure StoreCommand(ACommand: TCommand); 
        procedure Execute(); 
    end; 

implementation 

constructor TConcreteCommand.Create(AReceiver: TReceiver); 
begin 
    inherited Create; 
    //--- 
    FReceiver := AReceiver; 
end; 

procedure TConcreteCommand.Execute; 
begin 
    FState := FReceiver.State; 
    FReceiver.Action; 
end; 

procedure TReceiver.Action; 
begin 
    ShowMessage(IntToStr(FState)); 
    FState := FState + 1; 
end; 

constructor TInvoker.Create; 
begin 
    FCommands := TObjectList.Create; 
end; 

destructor TInvoker.Destroy; 
begin 
    FCommands.Free; 
    //--- 
    inherited; 
end; 

procedure TInvoker.StoreCommand(ACommand: TCommand); 
begin 
    FCommands.Add(ACommand); 
end; 

procedure TInvoker.Execute(); 
var 
    ACommand: TCommand; 
begin 
    while FCommands.Count > 0 do 
    begin 
        ACommand := TCommand(FCommands.First); 
        ACommand.Execute; 
        //--- 
        FCommands.Delete(0); 
    end; 
end; 

constructor TReceiver.Create; 
begin 
    FState := 1; 
end; 

end. 

procedure TForm2.Button1Click(Sender: TObject); 
var 
    AReceiver: TReceiver; 
    AInvoker: TInvoker; 
    ACommand: TCommand; 
begin 
    AInvoker := TInvoker.Create; 
    AReceiver := TReceiver.Create; 
    try 
        with AInvoker do 
        begin 
            ACommand := TConcreteCommand.Create(AReceiver); 
            StoreCommand(ACommand); 
            //--- 
            ACommand := TConcreteCommand.Create(AReceiver); 
            StoreCommand(ACommand); 
            //--- 
            Execute; 
        end; 
    finally 
        AReceiver.Free; 
        AInvoker.Free; 
    end; 
end; 


《GOF设计模式》—命令(COMMAND)—Delphi源码示例:支持修改日志

示例:支持修改日志 说明: ? 支持修改日志,这样当系统崩溃时,这些修改可以被重做一遍。在Command接口中添加装载操作和存储操作,可以用来保持变动的一个一致的修改日志。从崩溃中恢...
  • starsky2006
  • starsky2006
  • 2011年01月13日 10:20
  • 354

《GOF设计模式》—命令(COMMAND)—Delphi源码示例:参数化机制(回调函数)

示例:回调函数 说明:        你可用过程语言中的回调(callback)函数表达这种参数化机制。所谓回调函数是指函数先在某处注册,而它将在稍后某个需要的时候被调用。 ...
  • starsky2006
  • starsky2006
  • 2011年01月13日 09:41
  • 240

《GOF设计模式》—命令(COMMAND)—Delphi源码示例:文档编辑

示例:文档编辑 说明: 界面:   object Form1: TForm1   Left = 420   To...
  • starsky2006
  • starsky2006
  • 2011年01月08日 10:02
  • 317

《GOF设计模式》—状态(STATE)—Delphi源码示例:状态映射表

示例:状态映射表 说明: 在C++ Programming Style中,Cargil描述了另一种将结构加载在状态驱动的代码上的方法:他使用表(如哈希表)将输入映射到状态转换。对每一...
  • starsky2006
  • starsky2006
  • 2011年03月12日 09:27
  • 443

四巨头GoF的《设计模式》中23种设计模式的UML图 - 2 of 4

INTENTS AND DIAGRAMS OF 23 DESIGN PATTERNS 1: DOTV 2: PAMIB 3: SFC *Decorator: A DECORATOR att...
  • wubinben28
  • wubinben28
  • 2013年01月25日 20:38
  • 2795

GoF设计模式之行为型模式

GoF设计模式中,行为模式有: 1. 责任链模式 Chain of Responsibility Pattern 意图:减少发送着和接收者之间的耦合,将请求在接收者链上传递,直到该请求被处理。 ...
  • code886
  • code886
  • 2017年04月02日 15:09
  • 248

GOF23种设计模式精解

创建型 1. Factory Method(工厂方法) 2. Abstract Factory(抽象工厂) 3. Builder(建造者) 4. Prototype(原型) 5. Singleton(...
  • zhangcanyan
  • zhangcanyan
  • 2016年06月28日 21:14
  • 7728

Java:GOF的23种设计模式(上)

此次学习主要是参考liang
  • leelit
  • leelit
  • 2014年10月20日 14:27
  • 2051

GoF的23个经典设计模式

以文本和思维导图的方式简明扼要的介绍了GoF的23个经典设计模式,可当成学习设计模式的一个小手册,偶尔看一下,说不定会对大师的思想精髓有新的领悟。GoF(“四人帮”,又称Gang of Four,即E...
  • jiangfei009003
  • jiangfei009003
  • 2014年01月05日 15:13
  • 2869

Java:GOF的23种设计模式(下)

三:构造型模式 (1)建造者模式也叫生成器模式(Builder) 1.建造者模式的意图是把构造对象实例的代码逻辑移到要实例化的类的外部 2.生成器模式将一个复杂对象的构建与它的表示分离,使得同样的构建...
  • leelit
  • leelit
  • 2014年10月20日 20:44
  • 1179
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:《GOF设计模式》—命令(COMMAND)—Delphi源码示例:命令接口
举报原因:
原因补充:

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