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