visitorunit1.pas

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

unit VisitorUnit1;

interface

uses classes;
type

  TElementA = class;
  TElementB = class;
  TCompositeElement = class;

  TVisitor = class
  protected
    constructor Create();
  public
    procedure VisitElementA(anElementA: TElementA); virtual;
    procedure VisitElementB(anElementA: TElementB); virtual;
    procedure VisitCompositeElement(anCompositeElement: TCompositeElement); virtual;
    //