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.将选择实现类.创建对象统一管理和控制,从而将调用者跟 ...
随机推荐
- python模块typing的作用
一.介绍 Python是一门弱类型的语言,很多时候我们可能不清楚函数参数类型或者返回值类型,很有可能导致一些类型没有指定方法,在写完代码一段时间后回过头看代码,很可能忘记了自己写的函数需要传什么参数, ...
- （转）Android中px与dip，sp与dip等的转换工具类
功能 通常在代码中设置组件或文字大小只能用px,通过这个工具类我们可以把dip(dp)或sp为单位的值转换为以px为单位的值而保证大小不变.方法中的参数请参考http://www.cnblogs.co ...
- （转）JNI入门教程之HelloWorld篇 .
转: http://blog.csdn.net/mingjava/article/details/180946 本文讲述如何使用JNI技术实现HelloWorld,目的是让读者熟悉JNI的机制并编写第 ...
- Windbg Step 2 分析程序堆栈实战
#include "stdafx.h" #include <tchar.h> #ifdef _UNICODE #define _ttol _wtol #else #de ...
- Astyle 快速入门，常用指令
--style=java -n -p -c !E astyle是一个命令行工具,命令语法很简单: astyle [options] < original > Beauti ...
- python+appium真机运行登录例子
一.手机USB连接电脑(手机打开调试模式) 验证:cmd -> 输入adb devices,查看手机的UDID.显示如下表示 连接成功 二.启动Appium服务 1. 启动Appium,点击 右 ...
- <数据可视化>样例+数据+画图
1 样例 1.1样例1 子图系列 from pylab import * def f(x): return np.exp(-x) * np.cos(2*np.pi*x) x1 = np.arange( ...
- Python全栈开发：Mysql(二)
视图 视图是一个虚拟表(非真实存在),其本质是[根据SQL语句获取动态的数据集,并为其命名],用户使用时只需使用[名称]即可获取结果集,并可以将其当作表来使用. SELECT *FROM (SELEC ...
- Spring Boot 整合 ActiveMQ
依赖 <dependency> <groupId>org.springframework.boot</groupId> <artifactId>spri ...
- KNN算法和实现
KNN要用到欧氏距离 KNN下面的缺点很容易使分类出错(比如下面黑色的点) 下面是KNN算法的三个例子demo, 第一个例子是根据算法原理实现 import matplotlib.pyplot as ...