Ini masih merupakan contoh dalam java dan pola, (oleh java dan pola yan hong) berikut ini adalah kode yang dikonversi ke delphi, dan kali ini saya menambahkan komentar :)
unit builderpattern;
antarmuka
jenis
Tproduct = kelas;
// Antarmuka spesifikasi pembangun abstrak
Tbuilder = class (Tobject)
publik
Prosedur BuilderPart1 ();
Prosedur BuilderPart2 ();
Fungsi ReturnProduct (): TProduct;
akhir;
// Buat kelas dan komponen pencipta spesifik bersama -sama, sehingga klien tidak perlu mengetahui detail konstruksi spesifik
TconcreteBuilder = class (tbuilder)
Pribadi
Produk: TProduct;
publik
Prosedur BuilderPart1 ();
Prosedur BuilderPart2 ();
Fungsi ReturnProduct (): TProduct;
akhir;
// Produk
Tproduct = class (Tobject)
//
akhir;
// Peran Direktur secara langsung digunakan oleh klien
Tdirector = class (Tobject)
Pribadi
Pembangun: tbuilder;
publik
Prosedur menginisialisasi ();
akhir;
Pelaksanaan
{Tdirector}
prosedur tdirector.initialize;
Mulai
Builder: = tconcreteBuilder.create;
Builder.builderpart1 ();
Builder.builderpart2 ();
Builder.Return Product;
akhir;
{Tconcreetebuilder}
Prosedur tconcreetebuilder.builderpart1;
Mulai
// Kode Anda
akhir;
Prosedur tconcreetebuilder.builderpart2;
Mulai
// Kode Anda
akhir;
fungsi tconcreetebuilder.Return -produk: tproduct;
Mulai
Hasil: = Produk;
akhir;
akhir.