《GOF设计模式》—职责链(CHAIN OF RESPONSIBILITY)—Delphi源码示例：表示请求(使用处理函数)

示例：处理函数

说明：

另一选择是使用一个处理函数，这个函数以一个请求码(如一个整型常数或一个字符串)为参数。这种方法支持请求数目不限。唯一的要求是发送方和接受方在请求如何编码问题上应达成一致。

这种方法更为灵活，但它需要用条件语句来区分请求代码以分派请求。另外，无法用类型安全的方法来传递请求参数（或参数组，如“a-1,b-2”），因此它们必须被手工打包和解包。显然，相对于直接调用一个操作来说它不太安全。

 

代码：

unit uChainOfResponsibility1;

 

interface

 

uses

    Dialogs;

 

type

    THandler = class

    private

        FSuccessor: THandler;

    public

        constructor Create(const ASuccessor: THandler = nil);

        //---

        procedure HandleRequest(const ACode: string); virtual;

    end;

    TConcreteHandler1 = class(THandler)

    public

        procedure HandleRequest(const ACode: string); override;

    end;

    TConcreteHandler2 = class(THandler)

    public

        procedure HandleRequest(const ACode: string); override;

    end;

 

implementation

 

constructor THandler.Create(const ASuccessor: THandler = nil);

begin

    FSuccessor := ASuccessor;

end;

 

procedure THandler.HandleRequest(const ACode: string);

begin

    case ACode[1] of

        'A':

            begin

                if Length(ACode) > 1 then

                begin

                    case ACode[2] of

                        '1'..'9': ShowMessage('An');

                    else

                        ShowMessage('Ax');

                    end;

                end

                else

                    ShowMessage('Ax');

            end;

        'B':

            begin

                ShowMessage('Bx');

            end;

    else

        if assigned(FSuccessor) then

            FSuccessor.HandleRequest(ACode);

    end;

end;

 

procedure TConcreteHandler1.HandleRequest(const ACode: string);

begin

    case ACode[1] of

        'C': ShowMessage('Cx');

    else

        inherited;

    end;

end;

 

procedure TConcreteHandler2.HandleRequest;

begin

    case ACode[1] of

        'D': ShowMessage('Dx');

    else

        inherited;

    end;

end;

 

end.

 

procedure TForm1.Button1Click(Sender: TObject);

var

    AHandler1: TConcreteHandler1;

    AHandler2: TConcreteHandler2;

begin

    AHandler2 := TConcreteHandler2.Create;

    AHandler1 := TConcreteHandler1.Create(AHandler2);

    try

        AHandler1.HandleRequest('A1');

    finally

        AHandler1.Free;

        AHandler2.Free;

    end;

end;