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

1. 产品类
{《HeadFirst设计模式》工厂模式之简单工厂 }
{ 产品类 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }

unit uProducts;

interface

type
TPizza = class(TObject)
public
procedure Prepare; virtual; abstract;
procedure Bake; virtual; abstract;
procedure Cut; virtual; abstract;
procedure Box; virtual; abstract;
end;

TCheesePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TVeggiePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TClamPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TPepperoniPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

implementation

{ TCheesePizza }

procedure TCheesePizza.Bake;
begin
Writeln('烘烤奶油比萨');
end;

procedure TCheesePizza.Box;
begin
Writeln('将奶油比萨装盒');
end;

procedure TCheesePizza.Cut;
begin
Writeln('将奶油比萨切成片');
end;

procedure TCheesePizza.Prepare;
begin
Writeln('准备奶油比萨');
end;

{ TVeggiePizza }

procedure TVeggiePizza.Bake;
begin
Writeln('烘烤素比萨');
end;

procedure TVeggiePizza.Box;
begin
Writeln('将素比萨装盒');
end;

procedure TVeggiePizza.Cut;
begin
Writeln('将素比萨切成片');
end;

procedure TVeggiePizza.Prepare;
begin
Writeln('准备素比萨');
end;

{ TClamPizza }

procedure TClamPizza.Bake;
begin
Writeln('烘烤蛤蛎比萨');
end;

procedure TClamPiz