Delphi 设计模式：《HeadFirst设计模式》Delphi7代码
适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构方面来看，装饰模式中的装饰者既继承又组合被装饰者。类适配器同时继承现有类和目标类，对象适配器继承目标类组合现有类。
1.现有类，被转换接口者
{《HeadFirst设计模式》之适配器模式 }
{ 现有类 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }
unit uAdaptee;
interface
type
TTurkey = class(TObject)
public
procedure Gobble; virtual; abstract;
procedure Fly; virtual; abstract;
end;
TWildTurkey = class(TTurkey)
public
procedure Gobble; override;
procedure Fly; override;
end;
implementation
{ TWildTurkey }
procedure TWildTurkey.Fly;
begin
Writeln('I''m flying a short distance.');
end;
procedure TWildTurkey.Gobble;
begin
Writeln('Gobble gobble.');
end;
end.
2.目标类
{《HeadFirst设计模式》之适配器模式 }
{ 目标类 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }
unit uTarget;
interface
type
TDuck = class(TObject)
public
procedure Quack; virtual; abstract;
procedure Fly; virtual; abstract;
end;
TMallarDuck = class(TDuck)
public
procedure Quack; override;
procedure Fly; override;
end;
implementation
{ TMallarDuck }
procedure TMallarDuck.Fly;
begin
Writeln('I''m flying.');
end;
procedure TMallarDuck.Quack;
begin
Writeln('Quack.');
end;
end.
3.适配器
{《HeadFirst设计模式》之适配器模式 }
{ 适配器，转换现有类的接口 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }
unit uAdapter;
interface
uses
uTarget, uAdap
相关文档：
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是� ......
//定义MyClass
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
//取值
var
obj: TMyClass;
begin
obj := TMyClass.Create;
with Memo1.Lines do
begin
Add('对象大小:' + IntToStr(obj.InstanceSize));
Add('对象所在地址：'+ ......
1. 产品类
{《HeadFirst设计模式》工厂模式之简单工厂 }
{ 产品类 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }
unit uProducts;
interface
type
TPizza = class(TObject)
public
procedure Prepare; virt ......
继承是为了表现类与类之间“是一种”关系，是多态存在的基础，继承是面象对象必不可少的基础，只支持封装而不支持继承的语言只能称为“基于对象”（Object-Based）面非面向对象“Object-Oriented”;
Object Pascal只支持单继承，也就是一个派生类只能有一个基类
但可以实现多个接口 ......
