简单工厂模式模板

刚刚开始学习模式编程，以前一直做Delphi开发的，而且C#也才刚学，不是太熟，所以就用Delphi做了个简单工厂模式的模板，发在这里，便于以后查看。

 

 

  1unit FactoryByParameter; 
  2
  3interface 
  4
  5uses 
  6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  7  Dialogs; 
  8
  9type 
 10  TProductID = (A,B,C); 
 11
 12  TProduct = class(TObject) 
 13  public 
 14    procedure Operation; virtual;abstract; 
 15  end; 
 16
 17  TConcreteProduceA = class(TProduct) 
 18  public 
 19    procedure Operation;override; 
 20  end; 
 21
 22  TConcreteProduceB = class(TProduct) 
 23  public 
 24    procedure Operation;override; 
 25  end; 
 26
 27  TConcreteProduceC = class(TProduct) 
 28  public 
 29    procedure Operation;override; 
 30  end; 
 31
 32  TFactory = class(TObject) 
 33  public 
 34    function CreateProduct(ProductID:TProductID):TProduct;virtual; 
 35  end; 
 36
 37  TFactoryExchanged = class(TFactory) 
 38  public 
 39    function CreateProduct(ProductID:TProductID):TProduct;override; 
 40  end; 
 41
 42implementation 
 43
 44{ TConcreteProduceA } 
 45
 46procedure TConcreteProduceA.Operation; 
 47begin 
 48  inherited; 
 49  ShowMessage('This is create product A'); 
 50end; 
 51
 52{ TConcreteProduceB } 
 53
 54procedure TConcreteProduceB.Operation; 
 55begin 
 56  inherited; 
 57  ShowMessage('This is create product B'); 
 58end; 
 59
 60{ TConcreteProduceC } 
 61
 62procedure TConcreteProduceC.Operation; 
 63begin 
 64  inherited; 
 65  ShowMessage('This is create product C'); 
 66end; 
 67
 68{ TFactory } 
 69
 70function TFactory.CreateProduct(ProductID: TProductID): TProduct; 
 71var 
 72  Product:TProduct; 
 73begin 
 74  case ProductID of 
 75    A:Product := TConcreteProduceA.Create; 
 76    B:Product := TConcreteProduceb.Create; 
 77    C:Product := TConcreteProduceC.Create; 
 78  end; 
 79  Result := Product; 
 80end; 
 81
 82{ TFactoryExchanged } 
 83
 84function TFactoryExchanged.CreateProduct(ProductID: TProductID): TProduct; 
 85var 
 86  Product:TProduct; 
 87begin 
 88  case ProductID of 
 89    A:Product := TConcreteProduceB.Create; 
 90    B:Product := TConcreteProduceC.Create; 
 91    C:Product := TConcreteProduceA.Create; 
 92  end; 
 93  Result := Product; 
 94
 95end; 
 96
 97end.
 98
 99 

Client Form 代码

unit ClientForm; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, FactoryByParameter, StdCtrls, ExtCtrls; 

type 
  TForm1 = class(TForm) 
    rgIndex: TRadioGroup; 
    cbChange: TCheckBox; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  ID : TProductID; 
  Product : TProduct; 
  Factory : TFactory; 
begin 
  try 
    if cbChange.Checked then 
      Factory := TFactoryExchanged.Create 
    else 
      Factory := TFactory.Create; 

    Product := Factory.CreateProduct(TProductID(rgIndex.ItemIndex)); 
    Product.Operation; 
  finally 
    Factory.Free; 
    Product.Free; 
  end; 
end; 

end.