《GOF设计模式》—模板方法(TEMPLATE METHOD)—Delphi源码示例：模板方法接口

示例：模板方法接口
说明：
（1）、定义
定义一个操作中的算法的骨架，而将一些步骤延迟到子类中。TemplateMethod使得子类可以不改变一个算法的结构即可重定义该算法的某些特定步骤。

（2）、结构

AbstractClass（抽象类）：定义抽象的原语操作（primitive operation），具体的子类将重定义它们以实现一个算法的各步骤；实现一个模板方法,定义一个算法的骨架。该模板方法不仅调用原语操作，也调用定义在AbstractClass或其他对象中的操作。
ConcreteClass（具体类）：实现原语操作以完成算法中与特定子类相关的步骤。

代码：
unit uTemplateMethod;

interface

uses
    
    Dialogs;

type
    TAbstractClass = class
    protected
        procedure PrimitiveOperation1; virtual;
        procedure PrimitiveOperation2; virtual;
    public
        procedure TemplateMethod;
    end;
    TConcreteClass = class(TAbstractClass)
    protected
        procedure PrimitiveOperation1; override;
        procedure PrimitiveOperation2; override;
    end;
    
procedure Test;

implementation

procedure Test;
var
    AObject: TAbstractClass;
begin
    AObject := TConcreteClass.Create;
    AObject.TemplateMethod;
    AObject.Free;
end;

procedure TAbstractClass.PrimitiveOperation1;
begin

end;

procedure TAbstractClass.PrimitiveOperation2;
begin

end;

procedure TAbstractClass.TemplateMethod;
begin
    PrimitiveOperation1;
    PrimitiveOperation2;
end;

procedure TConcreteClass.PrimitiveOperation1;
begin
    ShowMessage('1');
end;

procedure TConcreteClass.PrimitiveOperation2;
begin
    ShowMessage('2');
end;

end.