prototypeunit1.pas

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

unit PrototypeUnit1;

interface
type
  TDirection = (North, South, East, West);
  TMapsite = class
  public
    constructor Create; virtual;
    procedure Enter(); virtual;
    function clone(): TMapsite; virtual; abstract; //狡籹ㄧ计
  end;

  TRoom = class(TMapsite)
  private
    F_sides: array[0..3] of ^TMapsite;
    F_roomnumber: Integer;
  public
    constructor Create; overload;
    constructor Create(RoomNo: integer); overload;
    function GetSide(Direction: TDirection): TMapsite;
    procedure SetSide(Direction: TDirection; Mapsite: TMapsite);
    procedure Enter; override;
    procedure Initialize(RoomNo: integer);
    function clone(): TMapsite; override; //狡籹ㄧ计
  end;
//Τ