📄 visitorunit1.pas

📁 设计模式delphi版给想学delphi的朋友一个很有价值的参考

💻 PAS

字号:

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;
    //

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -