chainofresponsibilityunit1.pas

设计模式delphi版给想学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.