Delphi实现抽象工厂模式

     顾名思义，抽象工厂就是定义一个抽象工厂类。这样可以根据不同的需求实现特定的工厂类。

     首先定义一个抽象工厂类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;