Delphi 设计模式：《HeadFirst设计模式》Delphi代码

1. 抽象工厂的产品
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂的产品 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }

unit uPizzaIngredient;

interface

type
TDough = class(TObject)
end;

TThinCrustDough = class(TDough)
end;

TThickCrustDough = class(TDough)
end;

////////////////////////////////

TSauce = class(TObject)
end;

TMarinaraSauce = class(TSauce)
end;

TPlumTomatoSauce = class(TSauce)
end;

////////////////////////////////

TCheese = class(TObject)
end;

TReggianoCheese = class(TCheese)
end;

TMozzarellaCheese = class(TCheese)
end;

//////////////////////////////////

TPepperoni = class(TObject)
end;

TSlicedPepperoni = class(TPepperoni)
end;

////////////////////////////////////

TClams = class(TObject)
end;

TFreshClams = class(TClams)
end;

TFrozenClams = class(TClams)
end;

implementation

end.

2. 抽象工厂
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }

unit uPizzaIngredientFactory;

interface

uses
uPizzaIngredient;

type
TPizzaIngredientFactory = class(TObject)
public
function CreateDough: TDough; virtual; abstract;
function CreateSauce: TSauce; virtual; abstract;
function CreateCheese: TCheese; virtual; abstract;
function CreatePepperoni: TPepperoni; virtual; abstract;
function CreateClams: TClams; virtual; abstract;
end;

TNYPizzaIngredientFactory = class(TPizzaIngredientFactory)
public
function CreateDough: TDough; override;
function CreateSauce: TSauce; override;
function CreateCheese: TCheese; override;
function CreatePepperoni: TPepperoni; override;
function CreateClams: TC