cflyweight.pas

delphi深度探索第二版随书光盘所附内容

unit CFlyweight;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TRoom=class(TObject)
    BedCount:Integer;
    HasComputer:Boolean;
    HasRented:Boolean;
    RoomNumber:Integer;
    SubRoomCount:Integer;
  end;

  //房间的外部状态
  TRoomState=class(TObject)
    BedCount:Integer;
    HasComputer:Boolean;
    SubRoomCount:Integer;
  end;

  //具有外部状态的房间类
  TNewRoom=class(TObject)
    HasRented:Boolean;
    RoomNumber:Integer;
    State:TRoomState;
  end;

  //维护房间号和外部状态映射关系的类
  TStateNumber=class(TObject)
    FromNumber:Integer;//起始房间号
    ToNumber:Integer;//终止房间号
    State:TRoomState;//配置状态
  end;

  //占用更少内存的房间类
  TNewerRoom=class(TObject)
    HasRented:Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(TRoom.InstanceSize));
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  ShowMessage(IntToStr(TRoomState.InstanceSize));
  ShowMessage(IntToStr(TNewRoom.InstanceSize));
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  ShowMessage(IntToStr(TNewerRoom.InstanceSize));
  ShowMessage(IntToStr(TStateNumber.InstanceSize));
end;

end.