《GOF设计模式》—命令（COMMAND）—Delphi源码示例：参数化机制（使用命令模式）

示例：使用命令模式
说明：
Command模式是回调机制的一个面向对象的替代品。
代码：
unit uCommand1;

interface

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

    TShowCommand = class(TCommand)
    public
        procedure Execute; override;
    end;

var
    FShowCommand: TCommand;

implementation

uses
    Dialogs;

procedure TShowCommand.Execute;
    //---
    procedure Show1();
    begin
        ShowMessage('123');
    end;
begin
    Show1();
end;

initialization
    FShowCommand := TShowCommand.Create;

finalization
    FShowCommand.Free;

end.

procedure TForm2.Button1Click(Sender: TObject);
begin
    FShowCommand.Execute;
end;