Delphi中的Builder模式在基本Builder模式進行了擴展。更多Builder模式的資料請參閱[Gam+]
將一個複雜的物件的建構與它的表示分離,使得同樣的建構過程可以創造不同的表示
一個生成器(Builder)與抽角工廠(Abstract Factory)從概念上來看有點類似。但不同的是,生成器將單一複雜的類別的各個部件透過引用不同的建構器生成,然面抽象工廠則讓你創建整個具體的類別。比如說:一個建築工可以建造房子、別墅、辦公室。你可僱用不同的建築工來構造磚房、木房。雖然你可指定房子的形狀、大小。而其他肋手用來構造房子的部門、並非全部。例如建窗了,門,停車場。
下面的範例先引入了一個抽象類別TabstractFormBuilder和它的兩個具體子類別TredFormBuilder、TblueFormBuilder。 TabstractFormBuilder聲明了一些類別的建構器
type
TAbstractFormBuilder = class
PRivate
FForm: TForm;
procedure BuilderFormClose(Sender: TObject; var Action: TCloseAction);
protected
function GetForm: TForm; virtual;
public
procedure CreateForm(AOwner: TComponent); virtual;
procedure CreateSpeedButton; virtual; abstract;
procedure CreateEdit; virtual; abstract;
procedure CreateLabel; virtual; abstract;
property Form: TForm read GetForm;
end;
type
TRedFormBuilder = class(TAbstractFormBuilder)
private
FNextLeft, FNextTop: Integer;
public
procedure CreateForm(AOwner: TComponent); override;
procedure CreateSpeedButton; override;
procedure CreateEdit; override;
procedure CreateEdit; override;
end;
type
TBlueFormBuilder = class(TAbstractFormBuilder)
private
FNextLeft, FNextTop: Integer;
public
procedure CreateForm(AOwner: TComponent); override;
procedure CreateSpeedButton; override;
procedure CreateEdit; override;
procedure CreateLabel; override;
end;
有上面的接口中:
? 聲明了一個建立抽象產品物件的介面:TAbstractFormBuilder
¨ 類別TAbstractFormBuilder有三個抽象的工廠方法CreateForm、CreateSpeedButton、CreateEdit、CreateEdit
? TBlueFormBuilder、TRedFormBuilder用來實現創建具體產品物件的方法
運行的時候,客戶程式呼叫一個特定類別的公共建構器來建立它某一些部分,具體的建構器實例的呼叫方法如下:
procedure TForm1.Create3ComponentFormUsingBuilder(ABuilder: TAbstractFormBuilder);
var
NewForm: TForm;
begin
with ABuilder do begin
CreateForm(application);
CreateEdit;
CreateSpeedButton;
CreateLabel;
NewForm := Form;
if NewForm <> nil then NewForm.Show;
end;
end;