《GOF设计模式》—适配器（ADAPTER）—Delphi源码示例：使用双向适配器提供透明操作

示例：使用双向适配器提供透明操作

说明：

使用适配器的一个潜在问题是，它们不对所有的客户都透明。被适配的对象不再兼容Adaptee的接口，因此并不是所有Adaptee对象可以被使用的方它都可以被使用。双向适配器提供了这样的透明性。在两个不同的客户需要用不同的方式查看同一个对象时，双向适配器尤其有用。

实现：

考虑一个双向适配器，它将图形编辑框架Unidraw与约束求解工具箱QOCA集成起来。这两个系统都有一些类，这些类显式地表示变量：Unidraw含有类StateVariable，QOCA中含有类ConstraintVariable，如下图所示。

为了使Unidraw与QOCA协同工作，必须首先使类ConstraintVariable与类StateVariable相匹配；而为了将QOCA的求解结果传递给Unidraw，必须使StateVariable与ConstraintVariable相匹配。

这一方案中包含了一个双向适配器ConstraintStateVariable，它是类ConstraintVariable与类StateVariable共同的子类，ConstraintStateVariable使得两个接口互相匹配。在该例中多重继承是一个可行的解决方案，因为被适配类的接口差异较大。双向适配器与这两个被匹配的类都兼容，在这两个系统中它都可以工作。

 

代码：

 

unit uAdapter1;

 

interface

 

uses

    Dialogs;

 

type

    IStateVariable = interface

        ['{BACF300B-1E14-42A0-8EBC-DD9AA1878E44}']

        procedure Show;

    end;

    IConstraintVariable = interface

        ['{54997F39-8BF1-47E0-9461-7AEFA8984B1A}']

        procedure Display;

    end;

 

    TStateVariable = class(TInterfacedObject,IStateVariable)

        procedure Show;

    end;

    TConstraintVariable = class(TInterfacedObject,IConstraintVariable)

        procedure Display;

    end;

    TConstraintStateVariable = class(TInterfacedObject,IStateVariable,IConstraintVariable)

        procedure Show;

        procedure Display;

    end;

 

implementation

 

procedure TStateVariable.Show;

begin

    ShowMessage('StateVariable');

end;

 

procedure TConstraintVariable.Display;

begin

    ShowMessage('ConstraintVariable');

end;

 

procedure TConstraintStateVariable.Display;

begin

    ShowMessage('ConstraintVariable');

end;

 

procedure TConstraintStateVariable.Show;

begin

    ShowMessage('StateVariable');

end;

 

end.

 

procedure TForm1.Button1Click(Sender: TObject);

var

    AVariable: TConstraintStateVariable;

    AStateVariable:IStateVariable;

    AConstraintVariable: IConstraintVariable;

begin

    AVariable := TConstraintStateVariable.Create;

    //---

    AStateVariable := AVariable;

    AStateVariable.Show;

    //---

    AConstraintVariable := AVariable;

    AConstraintVariable.Display;

end;