顾名思义,抽象工厂就是定义一个抽象工厂类。这样可以根据不同的需求实现特定的工厂类。
首先定义一个抽象工厂类TAbstractButtonFactory,它定义了两个虚方法CreateBigBtn()和CreateSmallBtn(),然后针对不同的单位需求,定义了两个派生类TButtonFactoryForA和TButtonFactoryForB,并且分别使用不同尺寸创建按钮。这样针对不同的需要,只要使用不同的工厂类就可以实现按钮风格的变换。下面是示意性代码:
TAbstractButtonFactory=class(TObject)
public
class function CreateBigBtn():TButton;virtual;abstract;
class function CreateSmallBtn():TButton;virtual;abstract;
end;
TButtonFactoryForA=class(TAbstractButtonFactory)
public
class function CreateBigBtn():TButton;override;
class function CreateSmallBtn():TButton;override;
end;
TButtonFactoryForB=class(TAbstractButtonFactory)
public
class function CreateBigBtn():TButton;override;
class function CreateSmallBtn():TButton;override;
end;
{ TButtonFactoryForA }
class function TButtonFactoryForA.CreateBigBtn: TButton;
begin
Result:=TButton.Create(nil);
Result.Height:=40;
Result.Width:=40;
end;
class function TButtonFactoryForA.CreateSmallBtn: TButton;
begin
Result:=TButton.Create(nil);
Result.Height:=20;
Result.Width:=20;
end;
{ TButtonFactoryForB }
class function TButtonFactoryForB.CreateBigBtn: TButton;
begin
Result:=TButton.Create(nil);
Result.Height:=36;
Result.Width:=36;
end;
class function TButtonFactoryForB.CreateSmallBtn: TButton;
begin
Result:=TButton.Create(nil);
Result.Height:=16;
Result.Width:=16;
end;