chainofresponsibilityproject1.dpr

来自「设计模式delphi版给想学delphi的朋友一个很有价值的参考」· DPR 代码 · 共 35 行

program ChainOfResponsibilityProject1;

uses
//  Forms,
  ChainOfResponsibilityUnit1 in 'ChainOfResponsibilityUnit1.pas',
  ChainOfResponsibilityUnit2 in 'ChainOfResponsibilityUnit2.pas',
  ChainOfResponsibilityUnit3 in 'ChainOfResponsibilityUnit3.pas';

{$R *.RES}
const
  NO_HELP_TOPIC: TTopic = -1;
  PRINT_TOPIC: TTopic = 1;
  PAPER_ORIENTATION_TOPIC: TTopic = 2;
  APPLICATION_TOPIC: TTopic = 3;

var
  anApplicationHelpHandler: TApplicationHelpHandler;
  aDialogHelpHandler: TDialogHelpHandler;
  aButtonHelpHandler: TButtonHelpHandler;

begin
  anApplicationHelpHandler := TApplicationHelpHandler.Create(APPLICATION_TOPIC);
  aDialogHelpHandler := TDialogHelpHandler.Create(anApplicationHelpHandler, PRINT_TOPIC);
  aButtonHelpHandler := TButtonHelpHandler.Create(aDialogHelpHandler, PAPER_ORIENTATION_TOPIC);
  try
  //....do something
  aButtonHelpHandler.HandleHelp();
  finally
    anApplicationHelpHandler.Free;
    aDialogHelpHandler.Free;
    aButtonHelpHandler.Free;
  end;
end.