学步园

interface

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

type
  TCPU = class(TObject)
  end;

  TAMD3400 = class(TCPU)
  end;

  TIntelCPU = class(TCPU)
  end;

  TAMDDoubleCore = class(TCPU)
  end;

  TIntelDoubleCore = class(TCPU)
  end;

  THardDisk = class(TObject)
  end;

  TSATAHardDisk = class(THardDisk)
  end;

  TIDEHardDisk = class(THardDisk)
  end;

  TNotebookIDEHardDisk = class(THardDisk)
  end;

  TNotebookSATAHardDisk = class(THardDisk)
  end;

  IComputerFactory = interface(IInterface)
    ['{0FBF5ADD-F28E-45E5-AC22-D76FE9A2FFB3}']
    function CreateCPU: TCPU;
    function CreateHardDisk: THardDisk;
  end;

  TDellNotebookComputerFactory = class(TInterfacedObject, IComputerFactory)
  public
    function CreateCPU: TCPU;
    function CreateHardDisk: THardDisk;
  end;

  TLegendPCComputerFactory = class(TInterfacedObject, IComputerFactory)
  public
    function CreateCPU: TCPU;
    function CreateHardDisk: THardDisk;
  end;

  TComputer = class(TInterfacedObject)
  private
    FCPU: TCPU;
    FHardDisk: THardDisk;
  public
    constructor Create(ComputerFactory: IComputerFactory);
    property CPU: TCPU read FCPU write FCPU;
    property HardDisk: THardDisk read FHardDisk write FHardDisk;
  end;

implementation

{ TComputer }

constructor TComputer.Create(ComputerFactory: IComputerFactory);
begin
  FCPU := ComputerFactory.CreateCPU;
  FHardDisk := ComputerFactory.CreateHardDisk;
end;

{ TDellNotebookComputerFactory }

function TDellNotebookComputerFactory.CreateCPU: TCPU;
begin
  Result := TIntelDoubleCore.Create;
end;

function TDellNotebookComputerFactory.CreateHardDisk: THardDisk;
begin
  Result := TNotebookSATAHardDisk.Create;
end;

{ TLegendPCComputerFactory }

function TLegendPCComputerFactory.CreateCPU: TCPU;
begin
  Result := TAMD3400.Create;
end;

function TLegendPCComputerFactory.CreateHardDisk: THardDisk;
begin
  Result := TIDEHardDisk.Create;
end;

end.

CPU: TIntel(R)2.0G;

Memory: TDDR512;

...

end;