《GOF设计模式》—职责链(CHAIN OF RESPONSIBILITY)—Delphi源码示例：职责链接口

示例：职责链接口
说明：
（1）、定义
使多个对象都有机会处理请求，从而避免请求的发送者和接收者之间的耦合关系。将这些对象连成一条链，并沿着这条链传递该请求，直到有一个对象处理它为止。
（2）、结构



对象：

* Handler：处理对象。定义一个处理请求的接口。（可选）实现后继链。
* ConcreteHandler：具体处理对象。处理它所负责的请求。可访问它的后继者。如果可处理该请求，就处理之；否则将该请求转发给它的后继者。
客户端：
Client：向链上的具体处理者(ConcreteHandler)对象提交请求。

代码：
unit uChainOfResponsibility;

interface

uses
Dialogs;

type
THandler = class
private
FSuccessor: THandler;
public
constructor Create(const ASuccessor: THandler = nil);
//---
procedure HandleRequest; virtual;
end;
TConcreteHandler1 = class(THandler)
public
procedure HandleRequest; override;
end;
TConcreteHandler2 = class(THandler)
public
procedure HandleRequest; override;
end;

implementation

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

procedure THandler.HandleRequest;
begin
if assigned(FSuccessor) then
FSuccessor.HandleRequest
end;

procedure TConcreteHandler1.HandleRequest;
begin
ShowMessage('ConcreteHandler1');
//---
inherited;
end;

procedure TConcreteHandler2.HandleRequest;
begin
ShowMessage('ConcreteHandler2');
//---
inherited;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
AHandler1: TConcreteHandler1;
AHandler2: TConcreteHandler2;
begin
AHandler2 := TConcreteHandler2.Create;
AHandler1 := TConcreteHandler1.Create(AHandler2);
try
AHandler1.HandleRequest;
finally
AHandler1.Free;
AHandler2.Free;
end;
end;