抽象工厂(Abstract Factory)模式也叫工具箱,它提供一个用于构建一群相关或相互依赖的对象,而无需指定他们的具体类。
unit NewPas;
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(THar......
阅读全文