《GOF设计模式》—适配器（ADAPTER）—Delphi源码示例：适配器接口

示例：适配器接口

说明：

（1）、定义

将一个类的接口转换成客户希望的另外一个接口。Adapter模式使得原本由于接口不兼容而不能一起工作的那些类可以一起工作。

（2）、结构

对象匹配器依赖于对象组合，如下图所示。

目标Target：定义Client使用的与特定领域相关的接口。

适配器Adapter：对Adaptee的接口与Target接口进行适配。

被适配者Adaptee：定义一个已经存在的接口，这个接口需要适配。

客户端Client：与符合Target接口的对象协同。

协作：Client在Adapter实例上调用一些操作。接着适配器调用Adaptee的操作实现这个请求。

 

代码：

unit uAdapter;

 

interface

 

uses

    Dialogs;

 

type

    TTarget = class(TObject)

        procedure Request; virtual; abstract;

    end;

 

    TAdaptee = class

        procedure SpecificRequest;

    end;

 

    TAdapter = class(TTarget)

        procedure Request; override;

    private

        FAdaptee: TAdaptee;

    public

        constructor Create;

        destructor Destroy; override;

    end;

 

implementation

 

procedure TAdaptee.SpecificRequest;

begin

    ShowMessage('123');

end;

 

constructor TAdapter.Create;

begin

    FAdaptee := TAdaptee.Create;

end;

 

destructor TAdapter.Destroy;

begin

    FAdaptee.Free;

    //---

    inherited;

end;

 

procedure TAdapter.Request;

begin

    FAdaptee.SpecificRequest;

end;

 

end.

 

procedure TForm1.Button1Click(Sender: TObject);

var

    ATarget: TTarget;

begin

    ATarget := TAdapter.Create;

    ATarget.Request;

    ATarget.Free;

end;