visitorunit2.pas

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

unit VisitorUnit2;

interface
uses classes;
type
  watt = real;

  TInventory = class;
  TFloppyDisk = class;
  TCard = class;
  TChassis = class;
  TBus = class;

  TEquipmentVisitor = class
  protected
    constructor Create();
  public
    destructor destory(); virtual;

    procedure VisitFloppyDisk(aFloppyDisk: TFloppyDisk); virtual;
    procedure VisitCard(aCard: TCard); virtual;
    procedure VisitChassis(aChassis: TChassis); virtual;
    procedure VisitBus(aBus: TBus); virtual;
//ㄤウ