2010年08月_starsky2006

原创《GOF设计模式》—外观（FACADE）—Delphi源码示例：基于外观模式的编译子系统

示例：基于外观的编译子系统 实现： 让我们仔细观察一下如何在一个编译子系统中使用Facade。 编译子系统定义了一个BytecodeStream类，它实现了一个Bytecode对象流（stream）。Bytecode对象封装一个字节码，这个字节码可用于指定机器指令。该子系统中还定义了一个Token类，它封装了编程语言中的标识符。 Scanner类接收字符流并产生一个标识符流，一次产生一个标识符(token)。 Parser类获取Scanner生成的标识符，然

2010-08-27 18:42:00 608

原创《GOF设计模式》—创建型模式—Delphi源码示例：基于创建型模式的迷宫

示例：基于创建型模式的迷宫 实现： 考虑到MazeGame的成员函数CreatMaze所做的仅是创建一个有两个房间的迷宫，它是相当复杂的。显然有办法使它变得更简单。例如，Room的构造器可以提前用墙壁来初始化房间的每一面。但这仅仅是将代码移到了其他地方。这个成员函数真正的问题不在于它的大小而在于它不灵活。它对迷宫的布局进行硬编码。改变布局意味着改变这个成员函数，或是重定义它—这意味着重新实现整个过程—或是对它的部分进行改变—这容易产生错误并且不利于重用。 创建型模式显示如何使得

2010-08-27 18:37:00 535

原创《GOF设计模式》—创建型模式—Delphi源码示例：未基于模式的迷宫

示例：简单的迷宫 实现： 我们将举一个通用的例子—为一个电脑游戏创建一个迷宫—来说明它们的实现。这个迷宫和游戏将随着各种模式不同而略有区别。有时这个游戏将仅仅是找到一个迷宫的出口；在这种情况下，游戏者可能仅能见到该迷宫的局部。有时迷宫包括一些要解决的问题和要战胜的危险，并且这些游戏可能会提供已经被探索过的那部分迷宫地图。 我们将忽略许多迷宫中的细节以及一个迷宫游戏中有一个还是多个游戏者。我们仅关注迷宫是怎样被创建的。我们将一个迷宫定义为一系列房间，一个房间知道它的邻

2010-08-27 18:35:00 472

原创《GOF设计模式》—生成器(Builder)—Delphi源码示例：ClassBuilder

示例：ClassBuilder 实现： ClassBuilder是一个生成器，Class使用它为自己创建子类。在这个例子中，一个Class既是Director也是Product。 代码： unit uClassBuilder; interface uses SysUtils; type TClassBuilder = class;<b

2010-08-27 18:28:00 432

原创《GOF设计模式》—生成器(Builder)—Delphi源码示例：编译子系统中的Parser类

示例：编译子系统中的Parser类 实现： 编译子系统中的Parser类是一个Director，它以一个ProgramNodeBuilder对象作为参数。每当Parser对象识别出一个语法结构时，它就通知它的ProgramNodeBuilder对象。当这个语法分析器做完时，它向该生成器请求它生成的语法分析树并将语法分析树返回给客户。 代码： 参考“外观模式”中“基于外观模式的编译子系统”中Parser类的实现

2010-08-27 18:27:00 375

原创《GOF设计模式》—生成器(Builder)—Delphi源码示例：编译子系统中的ByteCodeStream

示例：编译子系统中的ByteCodeStream 实现： ByteCodeStream是一个生成器，它将一个被编译了的方法创建为字节数组。Bytecode对象封装一个字节码，这个字节码可用于指定机器指令。ByteCodeStream不是Builder模式的标准使用，因为它生成的复杂对象被编码为一个字节数组，而不是正常的Smalltalk对象。但ByteCodeStream的接口是一个典型的生成器，而且将很容易用一个将程序表示为复合对象的不同的类来替换ByteCodeStream。<br

2010-08-27 18:27:00 356

原创《GOF设计模式》—生成器(Builder)—Delphi源码示例：RTF阅读器

示例：RTF阅读器 特点： 通常情况下，由具体生成器生成的产品，它们的表示相差是如此之大以至于给不同的产品以公共父类没有太大意思。因为客户通常用合适的具体生成器来配置导向者，客户处于的位置使它知道Builder的哪一个具体子类被使用，以及能处理具体Builder生成的产品。 实现： 一个RTF（RichTextFormat）文档交换格式的阅读器应能将RTF转换为多种正文格式，如该阅读器可以将RTF文档转换成普通ASCII文本。但问题在于“格式转换”的数目可能是无限的。

2010-08-27 18:26:00 698

原创《GOF设计模式》—生成器(Builder)—Delphi源码示例：生成器接口

示例：生成器接口 说明： （1）、定义 将一个复杂对象的构建与它的表示分离，使得同样的构建过程可以创建不同的表示。 （2）、结构 生成器 Builder：抽象生成器，为创建一个Product对象的各个部件指定抽象接口。 ConcreteBuilder：具体生成器，实现Builder的接口以构造和装配该产品的各个部件。定义并明确它所创建的表示。提供一个检索产品的接口来取得Product（例如，GetASCIITex

2010-08-27 18:24:00 682 1

原创《GOF设计模式》—抽象工厂(Abstract Factory)—Delphi源码示例：参数化的工厂

示例：参数化的工厂 说明： AbstractFactory通常为每一种它可以生产的产品定义一个操作。产品的种类被编码在操作型构中。增加一种新的产品要求改变AbstractFactory的接口以及所有与它相关的类。一个更灵活但不太安全的设计是给创建对象的操作增加一个参数。该参数指定了将被创建的对象的种类。它可以是一个类标识符、一个整数、一个字符串，或其他任何可以标识这种产品的东西。 在Delphi这样的动态类型语言中。仅当所有对象都有相同的抽象基类，或者当产品对象可以被请求它们的

2010-08-27 18:13:00 360

原创《GOF设计模式》—抽象工厂(Abstract Factory)—Delphi源码示例：基于类的工厂

示例：基于类的工厂 说明： 在将类作为第一类对象的语言中，这个基于原型的方法可能有所变化。你可以将这些语言中的一个类看成是一个退化的工厂，它仅创建一种产品。你可以将类存储在一个具体工厂中，这个具体工厂在变量中创建多个具体的产品，这很像原型。 这些类代替具体工厂创建了新的实例。你可以通过使用产品的类而不是子类初始化一个具体工厂的实例，来定义一个新的工厂。这一方法利用了语言的特点，而纯基于原型的方法是与语言无关的。 实现： 像基于原型的工厂一样，基于类的版本将有

2010-08-27 18:12:00 373

原创《GOF设计模式》—抽象工厂(Abstract Factory)—Delphi源码示例：基于原型的工厂

示例：基于原型的工厂 说明： 如果有多个可能的产品系列，具体工厂也可以使用Prototype模式来实现。具体工厂使用产品系列中每一个产品的原型实例来初始化，且它通过复制它的原型来创建新的产品。在基于原型的方法中，使得不是每个新的产品系列都需要一个新的具体工厂类。 实现： 此处是Smalltalk中实现一个基于原型的工厂的方法。具体工厂在一个被称为partCatalog的字典中存储将被复制的原型，方法make检索该原型并复制它，方法addPart用来向该字典中增加部件原

2010-08-27 18:09:00 384

原创《GOF设计模式》—抽象工厂(Abstract Factory)—Delphi源码示例：用户界面工具包

示例：用户界面工具包 特点： 当你提供一个产品类库，而只想显示它们的接口而不是实现时。 实现： 考虑一个支持多种视感（look-and-feel）标准的用户界面工具包，例如Motif和PresentationManager。不同的视感风格为诸如滚动条、窗口和按钮等用户界面“窗口组件”定义不同的外观和行为。为保证视感风格标准间的可移植性，一个应用不应该为一个特定的视感外观硬编码它的窗口组件。在整个应用中实例化特定视感风格的窗口组件类将使得以后很难改变视感风格。<br /

2010-08-27 18:08:00 444

原创《GOF设计模式》—抽象工厂(Abstract Factory)—Delphi源码示例：抽象工厂接口

示例：抽象工厂接口 说明： （1）、定义 父类提供一个创建一系列相关或相互依赖对象的接口，而无需指定它们具体的类；子类决定创建一系列依赖的具体对象。 （2）、结构 工厂 AbstractFactory：抽象工厂，声明一个创建抽象产品对象的操作接口。 ConcreteFactory：具体工厂，实现创建具体产品对象的操作。 产品 AbstractProduct：抽象产品，为一类产品对象声明一个接口

2010-08-27 18:06:00 452

原创《GOF设计模式》—工厂方法(Factory Method)—Delphi源码示例：延迟初始化对象

示例：延迟初始化对象 说明： 在Creator的构造器中不要调用工厂方法—在ConcreteCreator中该工厂方法还不可用。构造器只是将产品初始化为0，而不是创建一个具体产品。访问者返回该产品。但首先它要检查确定该产品的存在，如果产品不存在，访问者就创建它。这种技术有时被称为lazy initialization。 代码： unit FactoryMethodUnit2; interface uses<

2010-08-27 17:41:00 429

原创《GOF设计模式》—工厂方法(Factory Method)—Delphi源码示例：参数化工厂方法

示例：参数化工厂方法 说明： 参数化工厂方法是指通过工厂方法创建多种产品，这个工厂方法采用一个参数来标识要被创建的对象的种类。所有这个工厂方法构建的对象将共享Product接口。 重定义一个参数化的工厂方法使你可以简单而有选择性的扩展或改变一个Creator生产的产品。你可以为新产品引入新的标识符，或可以将已有的标识符与不同的产品相关联。 实现： Creator的CreateProduct方法是一个参数化的工厂方法，其可以根据ProductID创建不同的Pr

2010-08-27 17:40:00 992

原创《GOF设计模式》—工厂方法(Factory Method)—Delphi源码示例：平行的类层级架构

示例：平行的类层级架构 说明： 当一个类将它的一些职责委托给一个独立的类的时候，就产生了平行类层次。 实现： 对于可以被交互操纵的图形；它们可以用鼠标进行伸展、移动，或者旋转。实现这样一些交互并不总是那么容易，它通常需要存储和更新在给定时刻记录操纵状态的信息，这个状态仅仅在操纵时需要。因此它不需要被保存在图形对象中。此外，当用户操纵图形时，不同的图形有不同的行为。例如，将直线图形拉长可能会产生一个端点被移动的效果，而伸展正文图形则可能会改变行距。 有了这些限

2010-08-27 17:38:00 565

原创《GOF设计模式》—工厂方法(Factory Method)—Delphi源码示例：为子类提供挂钩（hook）

示例：为子类提供挂钩（hook） 说明： 为子类提供挂钩（hook）：也叫预设工厂方法。父类的工厂方法实现默认对象，工厂方法给子类一个挂钩以提供对象的扩展版本。 钩子是一种被声明在父类中的方法，但只有空的或者默认的实现。钩子的存在可以让子类有能力对实现的进行修改或扩充。要不要挂钩，由子类决定。 特点： Creator是一个具体的类而且为工厂方法提供一个缺省的实现。 实现： Application类负责管理Document并根据

2010-08-27 17:35:00 893

starsky2006的专栏