Delphi实现抽象工厂模式

转载于 2012-05-26 12:01:00 发布 · 124 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/delphi323/archive/2012/05/26/2519141.html

本文详细解释了抽象工厂模式的概念及其在Delphi编程语言中的具体实现。通过定义一个抽象工厂类和其派生类，展示了如何根据不同需求创建特定的工厂类来生成不同风格的按钮实例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

转载于:https://www.cnblogs.com/delphi323/archive/2012/05/26/2519141.html