Delphi 设计模式：《HeadFirst设计模式》Delphi代码---工厂模式之抽象工厂[转]
1
2 {《HeadFirst设计模式》工厂模式之抽象工厂 }
3 { 抽象工厂的产品 }
4 { 编译工具：Delphi7.0 }
5 { E-Mail ：guzh-0417@163.com }
6
7unit uPizzaIngredient;
8
9interface
10
11type
12 TDough = class(TObject)
13 end;
14
15 TThinCrustDough = class(TDough)
16 end;
17
18 TThickCrustDough = class(TDough)
19 end;
20
21 ////////////////////////////////
22
23 TSauce = class(TObject)
24 end;
25
26 TMarinaraSauce = class(TSauce)
27 end;
28
29 TPlumTomatoSauce = class(TSauce)
30 end;
31
32 ////////////////////////////////
33
34 TCheese = class(TObject)
35 end;
36
37 TReggianoCheese = class(TCheese)
38 end;
39
40 TMozzarellaCheese = class(TCheese)
41 end;
42
43 //////////////////////////////////
44
45 TPepperoni = class(TObject)
46 end;
47
48 TSlicedPepperoni = class(TPepperoni)
49 end;
50
51 ////////////////////////////////////
52
53 TClams = class(TObject)
54 end;
55
56 TFreshClams = class(TClams)
57 end;
58
59 TFrozenClams = class(TClams)
60 end;
61
62implementation
63
64end.
1
2 {《HeadFirst设计模式》工厂模式之抽象工厂 }
3 { 抽象工厂 }
4 { 编译工具：Delphi7.0 }
5 { E-Mail ：guzh-0417@163.com }
6
7unit uPizzaIngredientFactory;
8
9interface
10
11uses
12 uPizzaIngredient;
13
14type
15 TPizzaIngredientFactory = class(TObject)
16 public
17 function CreateDough: TDough; virtual; abstract;
18 function CreateSauce: TSauce; virtual; abstract;
19 function CreateCheese: TCheese; virtual; abstract;
20 function CreatePepperoni: TPepperoni; virtual; abstract;
21 function CreateClams: TClams; virtual; abstract;
22 end;
23
24 TNYPizzaIngredientFactory = class(TPizzaIngredientFactory)
25 public
26 function CreateDough: TDough; override;
27 function CreateSauce: TSauce; override;
28 function CreateCheese: TCheese; override;
29 function CreatePepperoni: TPepperoni; override;
30 function CreateClams: TClams; override;
31 end;
32
33 TChicagoPizzaIngredientFactory = class(TPizzaIngredientFactory)
34 public
35 function CreateDough: TDough; override;
36 function CreateSauce: TSauce; override;
37 function CreateCheese: TCheese; override;
38 function CreatePepperoni: TPepperoni; override;
39 function CreateClams: TClams; override;
40 end;
41
42implementation
43
44{ TNYPizzaIngredientFactory }
45
46function TNYPizzaIngredientFactory.CreateCheese: TCheese;
47begin
48 Result := TReggianoCheese.Create;
49end;
50
51function TNYPizzaIngredientFactory.CreateClams: TClams;
52begin
53 Result := TFreshClams.Create;
54end;
55
56function TNYPizzaIngredientFactory.CreateDough: TDough;
57begin
58 Result := TThinCrustDough.Create;
59end;
60
61function TNYPizzaIngredientFactory.CreatePepperoni: TPepperoni;
62begin
63 Result := TSlicedPepperoni.Create;
64end;
65
66function TNYPizzaIngredientFactory.CreateSauce: TSauce;
67begin
68 Result := TMarinaraSauce.Create;
69end;
70
71{ TChicagoPizzaIngredientFactory }
72
73function TChicagoPizzaIngredientFactory.CreateCheese: TCheese;
74begin
75 Result := TMozzarellaCheese.Create;
76end;
77
78function TChicagoPizzaIngredientFactory.CreateClams: TClams;
79begin
80 Result := TFrozenClams.Create;
81end;
82
83function TChicagoPizzaIngredientFactory.CreateDough: TDough;
84begin
85 Result := TThickCrustDough.Create;
86end;
87
88function TChicagoPizzaIngredientFactory.CreatePepperoni: TPepperoni;
89begin
90 Result := TSlicedPepperoni.Create;
91end;
92
93function TChicagoPizzaIngredientFactory.CreateSauce: TSauce;
94begin
95 Result := TPlumTomatoSauce.Create;
96end;
97
98end.
1
2 {《HeadFirst设计模式》工厂模式之抽象工厂 }
3 { 抽象工厂的用户 }
4 { 编译工具：Delphi7.0 }
5 { E-Mail ：guzh-0417@163.com }
6
7unit uPizza;
8
9interface
10
11uses
12 uPizzaIngredient, uPizzaIngredientFactory;
13
14type
15 TPizza = class(TObject)
16 private
17 procedure SetName(const Value: string);
18 protected
19 FName: string;
20 FDough: TDough;
21 FSauce: TSauce;
22 FCheese: TCheese;
23 FPepperoni: TPepperoni;
24 FClams: TClams;
25 FIngredientFactory: TPizzaIngredientFactory;
26 public
27 constructor Create(aIngredientFactory: TPizzaIngredientFactory);
28 procedure Prepare; virtual; abstract;
29 procedure Bake;
30 procedure Cut;
31 procedure Box;
32 property Name: string read FName write SetName;
33 end;
34
35 TCheesePizza = class(TPizza)
36 public
37 destructor Destroy; override;
38 procedure Prepare; override;
39 end;
40
41 TClamsPizza = class(TPizza)
42 public
43 destructor Destroy; override;
44 procedure Prepare; override;
45 end;
46
47implementation
48
49{ TPizza }
50
51procedure TPizza.Bake;
52begin
53 Writeln('Bake for 25 minutes at 350');
54end;
55
56procedure TPizza.Box;
57begin
58 Writeln('Place pizza in official PizzaStore box');
59end;
60
61constructor TPizza.Create(aIngredientFactory: TPizzaIngredientFactory);
62begin
63 Self.FIngredientFactory := aIngredientFactory;
64end;
65
66procedure TPizza.Cut;
67begin
68 Writeln('Cutting the pizza into diagonal slices');
69end;
70
71procedure TPizza.SetName(const Value: string);
72begin
73 FName := Value;
74end;
75
76{ TCheesePizza }
77
78destructor TCheesePizza.Destroy;
79begin
80 FDough.Free;
81 FSauce.Free;
82 FCheese.Free;
83 inherited;
84end;
85
86procedure TCheesePizza.Prepare;
87begin
88 Writeln('Preparing ' + Name);
89 FDough := FIngredientFactory.CreateDough;
90 FSauce := FIngredientFactory.CreateSauce;
91 FCheese := FIngredientFactory.CreateCheese;
92end;
93
94{ TClamsPizza }
95
96destructor TClamsPizza.Destroy;
97begin
98 FDough.Free;
99 FSauce.Free;
100 FCheese.Free;
101 FClams.Free;
102 inherited;
103end;
104
105procedure TClamsPizza.Prepare;
106begin
107 Writeln('Preparing ' + Name);
108 FDough := FIngredientFactory.CreateDough;
109 FSauce := FIngredientFactory.CreateSauce;
110 FCheese := FIngredientFactory.CreateCheese;
111 FClams := FIngredientFactory.CreateClams;
112end;
113
114end.
1
2 {《HeadFirst设计模式》工厂模式之抽象工厂 }
3 { Pizza的用户 }
4 { 编译工具：Delphi7.0 }
5 { E-Mail ：guzh-0417@163.com }
6
7unit uPizzaStore;
8
9interface
10
11uses
12 uPizza, uPizzaIngredientFactory;
13
14type
15 TPizzaStore = class(TObject)
16 protected
17 FPizza: TPizza;
18 FIngredientFactory: TPizzaIngredientFactory;
19 public
20 destructor Destroy; override;
21 function OrderPizza(Category: Integer): TPizza;
22 function CreatePizza(Style: Integer): TPizza; virtual; abstract;
23 end;
24
25 TNYPizzaStore = class(TPizzaStore)
26 public
27 function CreatePizza(Style: Integer): TPizza; override;
28 end;
29
30 TChicagoPizzaStore = class(TPizzaStore)
31 public
32 function CreatePizza(Style: Integer): TPizza; override;
33 end;
34
35implementation
36
37{ TPizzaStore }
38
39destructor TPizzaStore.Destroy;
40begin
41 FPizza.Free;
42 FIngredientFactory.Free;
43 inherited;
44end;
45
46function TPizzaStore.OrderPizza(Category: Integer): TPizza;
47begin
48 FPizza := CreatePizza(Category);
49 FPizza.Prepare;
50 FPizza.Bake;
51 FPizza.Cut;
52 FPizza.Box;
53
54 Result := FPizza;
55end;
56
57{ TNYPizzaStore }
58
59function TNYPizzaStore.CreatePizza(Style: Integer): TPizza;
60begin
61 FIngredientFactory := TNYPizzaIngredientFactory.Create;
62 FPizza := nil;
63 case Style of
64 0: begin
65 FPizza := TCheesePizza.Create(FIngredientFactory);
66 FPizza.Name := 'New York Style Cheese Pizza';
67 end;
68 1: begin
69 FPizza := TClamsPizza.Create(FIngredientFactory);
70 FPizza.Name := 'New York Style Clams Pizza';
71 end;
72 //2: 其它风味的 New York Pizza
73 //
74 end;
75 Result := FPizza;
76end;
77
78{ TChicagoPizzaStore }
79
80function TChicagoPizzaStore.CreatePizza(Style: Integer): TPizza;
81begin
82 FIngredientFactory := TChicagoPizzaIngredientFactory.Create;
83 case Style of
84 0: begin
85 Result := TCheesePizza.Create(FIngredientFactory);
86 Result.Name := 'Chicago Style Cheese Pizza';
87 end;
88 1: begin
89 Result := TClamsPizza.Create(FIngredientFactory);
90 Result.Name := 'Chicago Style Clams Pizza';
91 end;
92 //2: 其它风味的 Chicago Pizza
93 //
94 else
95 Result := nil;
96 end;
97end;
98
99end.
1
2 {《HeadFirst设计模式》工厂模式之抽象工厂 }
3 { 客户端 }
4 { 编译工具：Delphi7.0 }
5 { E-Mail ：guzh-0417@163.com }
6
7program pPizzaStore;
8
9{$APPTYPE CONSOLE}
10
11uses
12 uPizzaIngredient in 'uPizzaIngredient.pas',
13 uPizzaIngredientFactory in 'uPizzaIngredientFactory.pas',
14 uPizza in 'uPizza.pas',
15 uPizzaStore in 'uPizzaStore.pas';
16
17var
18 PizzaStore: TPizzaStore;
19 Pizza: TPizza;
20
21begin
22 PizzaStore := TNYPizzaStore.Create;
23 Pizza := PizzaStore.OrderPizza(0);
24 Writeln('Ethan ordered a ' + Pizza.Name);
25 Writeln;
26 Pizza := PizzaStore.OrderPizza(1);
27 Writeln('Ethan ordered a ' + Pizza.Name);
28 PizzaStore.Free;
29
30 Writeln;
31 Writeln(' ********************************** ');
32 Writeln;
33
34 PizzaStore := TChicagoPizzaStore.Create;
35 Pizza := PizzaStore.OrderPizza(0);
36 Writeln('Joel ordered a ' + Pizza.Name);
37 Writeln;
38 Pizza := PizzaStore.OrderPizza(1);
39 Writeln('Joel ordered a ' + Pizza.Name);
40 PizzaStore.Free;
41
42 Readln;
43end.
运行结果：
Delphi 设计模式：《HeadFirst设计模式》Delphi代码---工厂模式之抽象工厂[转]的更多相关文章
- Java设计模式（3）——创建型模式之抽象工厂模式（Abstract Factory）
一.概述 抽象工厂模式是指当有多个抽象角色时,使用的一种工厂模式.抽象工厂模式可以向客户端提供一个接口,使客户端在不必指定产品的具体情况下,创建多个产品族中的产品对象. UML图: 其他的过多概念不再 ...
- C# 设计模式（1）——简单工厂模式、工厂模式、抽象工厂模式
1.前言 上一篇写了设计模式原则有助于我们开发程序的时候能写出高质量的代码(牵一发而不动全身),这个系列还是做个笔记温习一下各种设计模式,下面就看看简单工厂模式.工厂模式.抽象工厂模式. 2.简单工厂 ...
- JAVA设计模式 3【创建型】理解工厂模式与抽象工厂模式
上一节我们已经学习了原型模式,稍微复习一下:通过重写Object 类的clone() 方法实现浅克隆,浅克隆也要实现Cloneable 标记接口.而深克隆则是将对象通过序列化和反序列化 的方式进行创建 ...
- C#设计模式--工厂模式和抽象工厂模式
话说有三大潮牌公司一直相互PK,有一天举办了一个活动让这三大公司来一个PK,我们来看看哪家公司的上衣做出来好看穿得舒服 现在我们有一个上衣的抽象产品让三大公司来做 //抽象产品 public inte ...
- c#工厂模式与抽象工厂模式
一. 工厂方法(Factory Method)模式 工厂方法(FactoryMethod)模式是类的创建模式,其用意是定义一个创建产品对象的工厂接口,将实际创建工作推迟到子类中. 工厂方法模式是简单工 ...
- 设计模式之工厂模式VS抽象工厂
一.工厂模式主要是为创建对象提供过渡接口,以便将创建对象的具体过程屏蔽隔离起来,达到提高灵活性的目的. 工厂模式在<Java与模式>中分为三类:1)简单工厂模式(Simple Factor ...
- Objective-C 工厂模式(下) -- 抽象工厂模式
相比简单工厂模式, 只有一个工厂 能生产的手机也是固定的 抽象工厂模式类似于有很多家工厂, 当用户要买什么手机就创建对应的工厂去生产 比如用户要买iPhone就创建一个Apple工厂来生产手机, 要买 ...
- 工厂模式[3] 抽象工厂 Abstract Factory
简介 1.简单工厂,或静态工厂,产品接口 定义:专门定义一个类来负责创建其他类的实例,被创建的实例通常具有共同的父类或实现同一接口 优点:客户端可以直接消费产品,而不必关心具体产品的实现(不关心对象的 ...
- [19/04/23-星期二] GOF23_创建型模式(工厂模式、抽象工厂模式)
一.工厂模式(分为:简单工厂模式.工厂方法模式.抽象工厂模式) 实现了创建者和调用者的分离 核心本质:1.实例化对象,用工厂方法代替new操作:2.将选择实现类.创建对象统一管理和控制,从而将调用者跟 ...
随机推荐
- win7防火墙里开启端口的图文教程 + SNMP测试感触
转:http://www.cnblogs.com/vipsoft/archive/2012/05/02/2478847.html 开启端口:打开“控制面板”中的“Windows防火墙”,点击左侧的“高 ...
- C++ 中vector数组的使用
(1)头文件:#include<vector>.(2)创建vector对象: vector < 类型 > 名字; 例:vector<int> vec;(3) ...
- Error parsing XML: junk after document element这样的错误 - CSDN博客
很多开发者可能在编写XML布局文件时提示Error parsing XML: junk after document element这样的错误,这里Android123提示大家一般合法的XML文件只有 ...
- YARN 原理简介
YARN 组件 参考:Spark on Yarn | Spark,从入门到精通 YARN 采用 Master/Slave结构 ,包含ResourceManager 和 NodeManager Reso ...
- joda 获取每个月第一天第一秒和最后一天最后一秒
/** * 获取每个月第一天的第一秒 * @return */ public static final Date getMouthOfFirst(){ DateTimeFormatter format ...
- 面试系列19 redis的雪崩和穿透
缓存雪崩发生的现象 缓存雪崩的事前事中事后的解决方案 事前:redis高可用,主从+哨兵,redis cluster,避免全盘崩溃 事中:本地ehcache缓存 + hystrix限流&降级, ...
- 180608发现的一个有趣的Douyin-Bot项目
今日发现的github 项目 Douyin-Bot 抖音机器人发现漂亮小姐姐 :sweat_smile: 在开发者模式下,找到指针位置,开启之后,当点击屏幕时,可以获取点击屏幕处的xy坐标了 我使用的 ...
- Ubuntu安装Windows软件
https://www.cnblogs.com/chendeqiang/p/10177530.html Windows系列软件 安装Deepin封装好的框架 git clone https://git ...
- 最新MySQL5.7.3.0版本安装（图文版本）
转自:http://www.myexception.cn/mysql/1609536.html 可以从http://dev.mysql.com/downloads/下载MySQL服务器安装软件包,我下 ...
- 笔试中sizeof求字节数的问题
1. ]) { cout<<sizeof(ch)<<endl; //或者sizeof(ch)=?; } 这种情况,数组名作为形参,退化成指针,所以sizeof结果是4(32位编 ...