Цепочка обязанностей на Delphi

Паттерны проектирования / Поведенческие паттерны

type
  //handlers pass the request along
  //the chain
  THandler = class
  private
    FNext: THandler;
    FLimit: Integer;
    FName: string;
  public
    constructor Create(const AName: string;
      ALimit: Integer);
    function SetNext(
      Next: THandler): THandler;
    procedure Handle(Amount: Integer);
  end;

constructor THandler.Create(
  const AName: string; ALimit: Integer);
begin
FName := AName;
FLimit := ALimit;
end;

function THandler.SetNext(
Next: THandler): THandler;
begin
FNext := Next;
Result := Next;
end;

procedure THandler.Handle(Amount: Integer);
begin
  if Amount <= FLimit then
    WriteLn(FName, ' approved ', Amount)
  else if FNext <> nil then
    FNext.Handle(Amount)
  else
    WriteLn('nobody approved ', Amount);
end;

var
Manager, Director: THandler;
begin
Manager := THandler.Create('manager', 100);
Director := THandler.Create(
    'director', 1000);
Manager.SetNext(Director);

Manager.Handle(50);
  //manager approved 50
Manager.Handle(500);
  //director approved 500
Manager.Handle(5000);
  //nobody approved 5000
end.

Можно избежать жесткой зависимости отправителя запроса от его получателя, при этом запросом начинает обрабатываться один из нескольких объектов. Объекты-получатели связываются в цепочку, и запрос передается по цепочке, пока какой-то объект его не обработает.

Задача. В службу поддержки приходят запросы разного масштаба. Мелкий идёт к помощнику, покрупнее - к менеджеру, совсем крупный - к директору. Если бы код, который отправляет запрос, сам выбирал получателя, ему пришлось бы знать каждого получателя и каждое правило. Каждый новый получатель требовал бы правки в отправителе.

Идея. Получатели, их называют обработчиками, выстроены в заданном порядке: это и есть цепочка. Отправитель отдаёт запрос только первому обработчику. Каждый обработчик проверяет, его ли это запрос. Если его, обработчик делает работу, и дальше запрос не идёт. Если нет, обработчик передаёт запрос следующему. Отправитель не знает, какой обработчик ответит и ответит ли кто-нибудь вообще.

Как читать пример. Несколько обработчиков соединены в цепочку. Каждый по своему правилу решает, его ли это запрос. Клиентский код отправляет несколько запросов, всегда в начало цепочки. Каждый запрос движется по цепочке, пока какой-нибудь обработчик его не примет. В большинстве языков каждый обработчик хранит ссылку на следующий; в некоторых цепочка - простой список, который проверяют по порядку. Некоторые примеры отправляют ещё и запрос, который не принимает ни один обработчик, и вывод об этом сообщает.

Когда применять. Цепочка нужна, когда запрос могут обработать несколько объектов, а их набор или порядок может меняться. Если получатель всегда один и тот же, она ни к чему: прямой вызов проще и понятнее.

Частая ошибка. Забыть о конце цепочки. Тогда запрос, который не принял ни один обработчик, пропадает без единого сообщения. Нужно решить, что происходит в конце: ошибка, обработчик по умолчанию или внятное сообщение.