الوصف النموذج الباني

لا يزال مثالاً في 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 ؛

يبدأ

النتائج: = المنتج ؛

نهاية؛

نهاية.