适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构方面来看，装饰模式中的装饰者既继承又组合被装饰者。类适配器同时继承现有类和目标类，对象适配器继承目标类组合现有类。

 1
 2{《HeadFirst设计模式》之适配器模式 }
 3{ 现有类                         }
 4{ 编译工具：Delphi7.0             }
 5{ E-Mail ：guzh-0417@163.com     } 
 6
 7unit uAdaptee;
 8
 9interface
10
11type
12  TTurkey = class(TObject)
13  public
14    procedure Gobble; virtual; abstract;
15    procedure Fly;    virtual; abstract;
16  end;
17
18  TWildTurkey = class(TTurkey)
19  public
20    procedure Gobble; override;
21    procedure Fly;    override;
22  end;
23
24implementation
25
26{ TWildTurkey }
27
28procedure TWildTurkey.Fly;
29begin
30  Writeln(‘I‘‘m flying a short distance.‘);
31end;
32
33procedure TWildTurkey.Gobble;
34begin
35  Writeln(‘Gobble gobble.‘);
36end;
37
38end.

 1
 2{《HeadFirst设计模式》之适配器模式 }
 3{ 目标类                         }
 4{ 编译工具：Delphi7.0             }
 5{ E-Mail ：guzh-0417@163.com     }
 6
 7unit uTarget;
 8
 9interface
10
11type
12  TDuck = class(TObject)
13  public
14    procedure Quack; virtual; abstract;
15    procedure Fly;   virtual; abstract;
16  end;
17
18  TMallarDuck = class(TDuck)
19  public
20    procedure Quack; override;
21    procedure Fly;   override;
22  end;
23
24implementation
25
26{ TMallarDuck }
27
28procedure TMallarDuck.Fly;
29begin
30  Writeln(‘I‘‘m flying.‘);
31end;
32
33procedure TMallarDuck.Quack;
34begin
35  Writeln(‘Quack.‘);
36end;
37
38end.

 1
 2{《HeadFirst设计模式》之适配器模式 }
 3{ 适配器，转换现有类的接口         }
 4{ 编译工具：Delphi7.0            }
 5{ E-Mail ：guzh-0417@163.com    }
 6
 7unit uAdapter;
 8
 9interface
10
11uses
12  uTarget, uAdaptee;
13
14type
15  TTurkeyAdapter = class(TDuck)
16  private
17    FTurkey: TTurkey;
18  public
19    constructor Create(aTurkey: TTurkey);
20    procedure Quack; override;
21    procedure Fly;   override;
22  end;
23
24implementation
25
26{ TTurkeyAdapter }
27
28constructor TTurkeyAdapter.Create(aTurkey: TTurkey);
29begin
30  FTurkey := aTurkey;
31end;
32
33procedure TTurkeyAdapter.Fly;
34var
35  i: Integer;
36begin
37  for i := 0 to 4 do
38  begin
39    FTurkey.Fly;
40  end;
41end;
42
43procedure TTurkeyAdapter.Quack;
44begin
45  FTurkey.Gobble;
46end;
47
48end.

 1
 2{《HeadFirst设计模式》之适配器模式 }
 3{ 客户端                         }
 4{ 编译工具：Delphi7.0             }
 5{ E-Mail ：guzh-0417@163.com     }
 6
 7program pDuckTestDrive;
 8
 9{$APPTYPE CONSOLE}
10
11uses
12  SysUtils,
13  uAdaptee in ‘uAdaptee.pas‘,
14  uAdapter in ‘uAdapter.pas‘,
15  uTarget in ‘uTarget.pas‘;
16  
17var
18  Duck  : TMallarDuck;
19  Turkey: TWildTurkey;
20  TurkeyAdapter: TTurkeyAdapter;
21
22procedure TestDuck(aDuck: TDuck);
23begin
24  aDuck.Quack;
25  aDuck.Fly;
26end;
27
28begin
29  Duck   := TMallarDuck.Create;
30  Turkey := TWildTurkey.Create;
31  TurkeyAdapter := TTurkeyAdapter.Create(Turkey);
32
33  Writeln(‘The turkey says:‘);
34  Turkey.Gobble;
35  Turkey.Fly;
36
37  Writeln;
38
39  Writeln(‘The duck says:‘);
40  TestDuck(Duck);
41
42  Writeln;
43
44  Writeln(‘The turkeyAdapter says:‘);
45  TestDuck(TurkeyAdapter);
46
47  FreeAndNil(Duck);
48  FreeAndNil(Turkey);
49  FreeAndNil(TurkeyAdapter);
50
51  Readln;
52end.

运行结果：

Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---适配器模式之TurkeyAdapter[转]