chainofresponsibilityunit1.pas

DELPHI设计模式书籍

unit ChainOfResponsibilityUnit1;

interface
type

  THelpHandler = class
  private
    f_successor: THelpHandler;
  public
    constructor Create;
    procedure HandleHelp(); virtual;
  end;

implementation

constructor THelpHandler.Create;
begin
//.....
end;

procedure THelpHandler.HandleHelp();
begin
  if f_successor <> nil then
    f_successor.HandleHelp();
end;

end.