لا يزال مثالاً في Java و Pattern ، (بواسطة Java و Pattern Yan Hong) فيما يلي الرمز الذي تم تحويله إلى Delphi ، وهذه المرة أضفت تعليقًا :)
وحدة builderpattern.
واجهة
يكتب
tproduct = فئة ؛
// واجهة مواصفات المنشئ التجريدي
tbuilder = فئة (TOBJECT)
عام
الإجراءات builderpart1 () ؛
الإجراءات builderpart2 () ؛
وظيفة ReturnProduct ()
نهاية؛
// قم بإنشاء فئة ومكونات منشئ محددة معًا ، بحيث لا يحتاج العميل إلى معرفة تفاصيل البناء المحددة
tconcreteBuilder = فئة (tbuilder)
خاص
المنتج: Tproduct ؛
عام
الإجراء BUILDERPART1 () ؛
الإجراءات builderpart2 () ؛
وظيفة ReturnProduct (): Tproduct.
نهاية؛
//منتجات
tproduct = فئة (tooject)
//
نهاية؛
// يتم استخدام دور المخرج مباشرة من قبل العميل
tdirector = فئة (TOBJECT)
خاص
باني: tbuilder ؛
عام
الإجراء تهيئة () ؛
نهاية؛
تطبيق
{tdirector}
الإجراء tdirector.initialize ؛
يبدأ
Builder: = tconcreteBuilder.create ؛
builder.builderpart1 () ؛
builder.builderpart2 () ؛
Builder.ReturnProduct ؛
نهاية؛
{tconcreteBuilder}
الإجراء tconcreteBuilder.builderpart1 ؛
يبدأ
// الكود الخاص بك
نهاية؛
الإجراء tconcreteBuilder.builderpart2 ؛
يبدأ
// الكود الخاص بك
نهاية؛
وظيفة tconcreteBuilder.ReturnProduct: tproduct ؛
يبدأ
النتائج: = المنتج ؛
نهاية؛
نهاية.