《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源码示例:支持取消和重做(多次取消1)

示例:多次取消1 说明:        若要支持多级的取消和重做,就需要有一个已被执行命令的历史列表 (historylist),该列表的最大长度决定了取消和重做的级数。历史列表存储...

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

示例:文档编辑 说明: 界面:   object Form1: TForm1   Left = 420   To...

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

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

《GOF设计模式》—命令(COMMAND)—Delphi源码示例:支持取消和重做(一次取消)

示例:一次取消 说明: 若应用只支持一次取消操作,那么只需存储最近一次被执行的命令。 界面:   object Form2: TForm2  ...

《GOF设计模式》—命令(COMMAND)—Delphi源码示例:支持取消和重做(多次取消2)

示例:多次取消2 说明: 有时可能不得不将一个可撤消的命令在它可以被放入历史列表中之前先拷贝下来。这是因为执行原来的请求的命令对象将在稍后执行其他的请求。如果命令的状态在各次调用之间...

《GOF设计模式》—命令(COMMAND)—Delphi源码示例:在不同的时刻指定、排列和执行请求

示例:在不同的时刻指定、排列和执行请求 说明: 一个Command对象可以有一个与初始请求无关的生存期。如果一个请求的接收者可用一种与地址空间无关的方式表达,那么就可将负责该请求...

《GOF设计模式》—观察者(OBSERVER)—Delphi源码示例:观察者接口

示例:观察者接口 说明: (1)、定义 定义对象间的一种一对多的依赖关系,当一个对象的状态发生改变时,所有依赖于它的对象都得到通知并被自动更新。 (2...

《GOF设计模式》—组合(COMPOSITE)—Delphi源码示例:组合接口

 示例:组合接口 说明: (1)、定义 将对象组合成树形结构以表示“部分-整体”的层次结构。Composite使得用户对单个对象和组合对象的使用具有一致性。 (2)、结构   ...

《GOF设计模式》—解释器 (INTERPRETER)—Delphi源码示例:解释器接口

示例:解释器接口 说明: (1)、定义     给定一个语言,定义它的文法的一种表示,并定义一个解释器,这个解释器使用该表示来解释语言中的句子。 语言...

《GOF设计模式》—状态(STATE)—Delphi源码示例:状态接口

示例:状态接口 说明: (1)、定义 允许一个对象在其内部状态改变时改变它的行为。 别名:状态对象(Objects for States) 说明:状态模...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:《GOF设计模式》—命令(COMMAND)—Delphi源码示例:命令接口
举报原因:
原因补充:

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