设计模式、用Delphi描述-->Visitor模式[6]

  public

    procedure acceptmembervisitor(visitor: tmembervisitor); override;

  end;

  tproperty = class (tmember)

  public

    procedure acceptmembervisitor(visitor: tmembervisitor); override;

  end;

  tmembervisitor = class (tobject)

  public

    procedure visitfield(instance: tfield); virtual;

    procedure visitmember(instance: tmember); virtual;

    procedure visitmethod(instance: tmethod); virtual;

    procedure visitproperty(instance: tproperty); virtual;

  end;

implementation

{ tmember }

begin

  visitor.visitmember(self);

end;