说明：
（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.
最新评论