تسمية وحدة النموذج والبيانات 1. معايير التسمية لأنواع النماذج: يجب أن يعبر اسم نوع النموذج عن الغرض من النموذج، ويجب أن يكون مسبوقًا بحرف T، متبوعًا باسم وصفي، وأخيرًا Form. على سبيل المثال: اسم نوع نموذج الطالب هو: TStudentForm= class (TForm) اسم نوع نموذج تسجيل دخول المستخدم هو: TUserEntryForm= class (TForm) 2. معيار التسمية لمثيلات النموذج: اسم مثيل النموذج هو نفس اسم النوع المقابل ولكن بدون البادئة T. على سبيل المثال: نموذج varStudent: TStudentFormUserEntryForm: TUserEntryForm3. النموذج الذي تم إنشاؤه تلقائيًا: ما لم تكن هناك أسباب خاصة، يتم إنشاء النموذج الرئيسي فقط تلقائيًا. يجب إزالة كافة النماذج الأخرى من القائمة التي تم إنشاؤها تلقائيًا في مربع الحوار خيارات PROject. 4. وظيفة إنشاء نموذج مشروط: يجب أن تحتوي جميع وحدات النموذج على وظائف إنشاء نموذج لإنشاء النموذج وإعداده وعرضه وإصداره. ستقوم هذه الوظيفة بإرجاع نتيجة الوضع التي تم إرجاعها بواسطة النموذج. تتبع المعلمات التي تم تمريرها إلى هذه الوظيفة قواعد تمرير المعلمات. سبب التغليف مثل هذا هو تسهيل إعادة استخدام الكود وصيانته. يجب إزالة متغيرات النموذج من الوحدة وتعريفها كمتغيرات محلية في وظيفة إنشاء مثيل النموذج (لاحظ أن هذا يتطلب إزالة النموذج من القائمة التي تم إنشاؤها تلقائيًا في مربع حوار ProjectOptions. يرجى الاطلاع على المحتوى السابق). على سبيل المثال، يوضح ملف الوحدة التالي وظيفة إنشاء مثيل GetStudent. Unit StudentFrm;InterfaceUsesWindows، الرسائل، SysUtils، Classes، Graphics، Controls، Forms، Dialogs، StdCtrls؛Type TStudentForm= class(TForm)editID: TEdit;editName: TEdit;private{Private notifications}public{Public communication}end;function GetStudent (فار aStudentName: سلسلة؛ فار aStudentID: عدد صحيح): Word;implementation{$R*.DFM} وظيفة GetStudent (var aStudentName: String; var aStudentID: Integer): Word;varStudentForm: TStudentForm;beginStudentForm: = TStudentForm.Create (application);TryStudentForm.Caption:='Getting Student'; Result: = StudentForm.ShowModal;If Result=mrOK إذن beginaStudentName: = StudentForm.editName.Text;aStudentID: = StrToInt (StudentForm.editID.Text);end;finallyStudentForm.Free;end;end;end.5 معايير التسمية لوحدات البيانات: يجب أن يعبر اسم نوع وحدة البيانات عن الغرض منه، ويجب أن تكون مسبوقة بـ T، متبوعة باسم وصفي، وأخيرًا DataModule. على سبيل المثال: اسم نوع وحدة بيانات الطالب هو TStudentDM= class(TDataModule)6 معيار التسمية لمثيلات وحدة البيانات: يجب أن يكون اسم مثيل وحدة البيانات هو نفس اسم النوع المقابل، ولكن بدون البادئة T. على سبيل المثال: varStudentDM: TStudentDM;