《GOF设计模式》—适配器（ADAPTER）—Delphi源码示例：可插入的Adapter(使用代理对象)

示例：可插入的Adapter(使用代理对象)

实现：

b)、使用代理对象

在这种方法中，TreeDisplay将访问树结构的请求转发到代理对象。TreeDisplay的客户进行一些选择，并将这些选择提供给代理对象，这样客户就可以对适配加以控制，如下图所示。

例如，有一个DirectoryBrowser，它像前面一样使用TreeDisplay。DirectoryBrowser可能为匹配TreeDisplay和层次目录结构构造出一个较好的代理。在Smalltalk或ObjectiveC这样的动态类型语言中，该方法只需要一个接口对适配器注册代理即可。然后TreeDisplay简单地将请求转发给代理对象。

在C++这样的静态类型语言中，需要一个代理的显式接口定义。我们将TreeDisplay需要的窄接口放入纯虚类TreeAccessorDelegate中，从而指定这样的一个接口。然后我们可以运用继承机制将这个接口融合到我们所选择的代理中—这里我们选择DirectoryBrowser。如果DirectoryBrowser没有父类我们将采用单继承，否则采用多继承。这种将类融合在一起的方法相对于引入一个新的TreeDisplay子类并单独实现它的操作的方法要容易一些。

 

代码：

 

 

unit uTreeDisplay1;

 

interface

 

uses

    Classes;

 

type

    PNodes = ^TNodes;

 

    TNode = record

        Text: string;

        Child: PNodes;

    end;

    TNodes = array of TNode;

 

    TFileDirs = array of string;

 

    TTreeAccessorDelegate = class;

    TFileSystemEntity = class;

 

    TTreeDisplay = class

    private

        FDelegate: TTreeAccessorDelegate;

        FList: TStringList;

        procedure SetDelegate(const Value: TTreeAccessorDelegate);

        procedure AddGraphiNode(const n: string);

    public

        constructor Create;

        destructor Destroy; override;

        //---

        function Display: string;

        procedure BuildTree(n: TNode);

        //---

        property Delegate: TTreeAccessorDelegate write SetDelegate;

    end;

 

    TTreeAccessorDelegate = class

    public

        procedure GetChildren(TreeDisplay: TTreeDisplay; var n: TNode); virtual; abstract;

        function CreateGraphiNode(TreeDisplay: TTreeDisplay; n: TNode): string; virtual; abstract;

    end;

 

    TDirectoryBrowser = class(TTreeAccessorDelegate)

    private

        FEntity: TFileSystemEntity;

    public

        constructor Create(AEntity: TFileSystemEntity);

        //---

        function CreateGraphiNode(TreeDisplay: TTreeDisplay; n: TNode): string; override;

        procedure GetChildren(TreeDisplay: TTreeDisplay; var n: TNode); override;

        procedure CreateFile;

        procedure DeleteFile;

    end;

 

    TFileSystemEntity = class

        function GetSubclasses(const ADir: string): TFileDirs;

    end;

 

implementation

 

constructor TTreeDisplay.Create;

begin

    FList := TStringList.Create;

end;

 

destructor TTreeDisplay.Destroy;

begin

    FList.Free;

    //---

    inherited;

end;

 

procedure TTreeDisplay.BuildTree(n: TNode);

var

    i: integer;

begin

    FDelegate.GetChildren(self,n);

    if n.Child <> nil then

    begin

        for i := low(n.Child^) to high(n.Child^) do

        begin

            AddGraphiNode(FDelegate.CreateGraphiNode(self,n.Child^[i]));

            BuildTree(n.Child^[i]);

        end;

        //---

        Dispose(n.Child);

        n.Child := nil;

    end;

end;

 

procedure TTreeDisplay.AddGraphiNode(const n: string);

begin

    FList.Add(n);

end;

 

function TTreeDisplay.Display: string;

begin

    result := FList.Text;

end;

 

procedure TTreeDisplay.SetDelegate(const Value: TTreeAccessorDelegate);

begin

    FDelegate := Value;

end;

 

function TFileSystemEntity.GetSubclasses(const ADir: string): TFileDirs;

begin

    if ADir = 'a' then

    begin

        SetLength(Result,2);

        //---

        Result[0] := '123';

        Result[1] := '456';

    end

    else

        SetLength(Result,0);

end;

 

constructor TDirectoryBrowser.Create(AEntity: TFileSystemEntity);

begin

    inherited Create;

    //---

    FEntity := AEntity;

end;

 

procedure TDirectoryBrowser.CreateFile;

begin

 

end;

 

function TDirectoryBrowser.CreateGraphiNode(TreeDisplay: TTreeDisplay; n: TNode): string;

begin

    Result := n.Text;

end;

 

procedure TDirectoryBrowser.DeleteFile;

begin

 

end;

 

procedure TDirectoryBrowser.GetChildren(TreeDisplay: TTreeDisplay; var n: TNode);

var

    ADirs: TFileDirs;

    i: integer;

begin

    if n.Child <> nil then

    begin

        Dispose(n.Child);

        n.Child := nil;

    end;

    //---

    ADirs := FEntity.GetSubclasses(n.Text);

    if length(ADirs) > 0 then

    begin

        new(n.Child);

        //---

        setlength(n.Child^,length(ADirs));

        for i := low(n.Child^) to high(n.Child^) do

            n.Child^[i].Text := ADirs[i];

    end;

end;

 

end.

 

procedure TForm1.Button1Click(Sender: TObject);

var

    AEntity: TFileSystemEntity;

    ADelegate:TTreeAccessorDelegate;

    ATree:TTreeDisplay;

    n: TNode;

begin

    AEntity:= TFileSystemEntity.Create;

    ADelegate := TDirectoryBrowser.Create(AEntity);

    ATree := TTreeDisplay.Create;

    try

        ATree.Delegate := ADelegate;

        //---

        n.Text := 'a';

        n.Child := nil;

        //---

        ATree.BuildTree(n);

        self.Memo1.Text := ATree.Display;

    finally

        ATree.Free;

        AEntity.Free;

        ADelegate.Free;

    end;

end;