لغة البرمجة دلفي Delphi

تم تحميل الملف من موقع 

البوصلة التقنية 

www.boosla.com

http://www.alshater.net 

لغة البرمجة دلفي 

بسم االله الرحمن الرحيم 


موقع الكِتاب على الإنترنت 


يسمح بالنشر الإلكتروني أو الاقتباس أو النقل 

على أن يتم الإشارة إلى المؤلف وموقع الكِتاب على الانترنت 

ولا يسمح بأي شكل من الأشكال النشر الورقي للكتاب 

إعداد 

محمد خالد ناصر آغا 

Support@alshater.net 

1



إلى 

أمي،‏ إلى أبي الذين لولا سهرهما وتعبهما لم أكن هنا لأكتب 

هذا الكتاب.‏ 

إلى أناس لا أعرفهم ولا يعرفونني ولكنهم قدموا لي الكثير وخاصة 

في مجال البرمجة كنت قد التقيت بهم على الانترنت في المنتديات 

وساحات الحوار وكان عطائهم من دون طلب حتى أنهم لم يطلبوا 

الشكر على المساعدة.‏ 

2



الفهرس 

الموضوع 

الصفحة 

5 

7 

10 

15 

16 

18 

20 

24 

27 

29 

35 

43 

48 

52 

55 

60 

69 

77 

86 

100 

111 

117 

118 

123 

131 

المقدمة ................................................................................ 

نبذه عن دلفي 

.......................................................................... 

البرنامج الأول ......................................................................... 

الوحدة 

.......................................................................... unit 

التعرف على العناصر ................................................................. 

التعامل مع الأحداث 

التعامل مع واجهة الدلفي 

التعرف على عنصر المذكرة 

إنشاء قوائم للنماذج 

أنواع المعطيات 

الإجراءات والتوابع 

بعض التوابع المعرفة في دلفي 

صناديق الحوار 

التعرف على العنصر 

التعامل مع السلاسل النصية 

معالجة الأخطاء في دلفي 

..................................................... ( Events ) 

............................................................... 

................................................. Memo 

.................................................................... 

........................................................ Data Type 

................................................................... 

......................................................... 

.............................................................. Dialog 

..................................................... MaskEdit 

........................................................... 

.............................................................. 

قواعد البيانات ........................................................................ 

بناء تطبيقات قواعد البيانات ............................................................ 

بناء قواعد البيانات 

.......................................... Database Desktop 

التعامل مع قاعدة البيانات من خلال دلفي ............................................... 

البحث في قواعد البيانات .............................................................. 

الحقول الحسابية ....................................................................... 

لغة الاستفسارات البنيوية : 

.................................................... SQL 

ربط الجداول ......................................................................... 

إنشاء الجداول ببرنامج 

...................................................... Access 

3


137 ................................................................................ ADO 

140 

الطباعة ............................................................................... 146 

147 

150 

154 

158 

167 

169 

182 

184 

183 

197 


برنامج دليل الهاتف ................................................................... 

لمسات برمجية ........................................................................ 

................................................ Windows Registry 

............................................. Windows API 

مسجل النظام 

توابع وثوابت الويندوز 

إضافة عناصر جديدة .................................................................. 

السحب والإفلات.......................................................................‏ 

الرسم في دلفي ........................................................................ 

برمجة الأوساط المتعددة ............................................................... 

التعامل مع الملفات .................................................................... 

........................................................................ 

............................................. Install Shelled Express 

برنامج المفكرة 

البرنامج 

4



المقدمة 

بسم االله والحمد الله والصلاة والسلام على رسول االله أما بعد:‏ 

هذه مجموعة من المحاضرات كنت قد اعددتها أثناء تدريسي للغة البرمجة دلفي سنة 2003 في مركز الشبيبة 

للعلوم والحاسوب،‏ ومن ذلك الوقت وأنا أفكر بنشر هذه المحاضرات على الإنترنت ولكن العمل أخذ كل وقتي منذ 

ذلك الحين ولم أجد الوقت الكافي لإتمام ذلك.‏ 

وكنت قد فكرت حينها أنه يجب تنقيح هذه المحاضرات لغويا ً وعلميا ً قبل نشرها الأمر الذي جعلني أجد من نشرها 

عملا ً شاقا ً ويأخذ الكثير من الجهد ولذلك قررت هذه العام 2006 أن أطرحها كما هي مع القليل القليل من التنقيح 

فلا اعتقد أني سأجد الوقت المناسب لنشر هذه المحاضرات في المستقبل.‏ 

لماذا دلفي؟ 

ظهر كثيرا ً من النزاع في مواقع الإنترنت حول أيهما أفضل فيجول بيسك أم دلفي ولا أريد هنا أن أدخل في هذه 

المناقشات ولكني اخترت الدلفي لسببين 

: 

1 

– يدرس كل طلاب الهندسة المعلوماتية في سورية لغة الباسكال والتي هي اللغة الأم للدلفي وبالتالي يكون 

الانتقال إلى دلفي سلس وسهل.‏ 

– 2 الموضة : 

قد يفاجئ البعض من هذا السبب ولكن وبكل صراحة اقتنيت حاسبا ً سنة 1997 وكنت في السنة 

الثانية في الكلية وكانت نسخة الدلفي 2 قد ظهرت لأول مرة وكان الكثير يدرس الدلفي في الكلية بالرغم من أنها 

غير مقررة في المنهاج الأمر الذي جعل الدلفي تنتشر كما تنتشر الموضة الجديدة بين النساء،‏ بالنسبة لمن يرون أن 

تعبير موضة ليس في محله أذكرهم أن الموضة في عام 

العام.‏ 

رحلتي مع دلفي:‏ 

2005 كانت 

#C ولا أعرف أين ستتجه الموضة هذا 

بدأت بدارسة الدلفي كما قلت في عام 1997 وبعدها أصبحت مدمنا ً للدلفي كنت ألعب الدلفي بينما كان أصدقائي 

يلعبون فيفا 98 أو رود رش 

. 

ولكن في عام 2004 بدأت حياتي تأخذ مسارا ً آخر فعملي أصبح يتطلب العمل على شبكات لينكس والتي تأخذ 

الكثير من الوقت بالإضافة أنني تعرفت على لغة برمجة جديدة وهي PHP والتي أصبحت تأخذ حياتي شيئا ً فشيئا ً،‏ 

الأمر الذي جعلني أبتعد عن الدلفي حتى أني توقفت السنة الماضية عن العمل بها أو تدريسها تمام ًا.‏ 

لمن هذا الكتاب ؟ 

بالرغم من أنني حاولت تبسيط الكتاب ما أمكن ولكنني توجهت في إعداد هذه المحاضرات إلى طلاب كلية الهندسة 

المعلوماتية و كلية الحاسبات الأمر الذي جعلني أفترض أن قارئ هذا الكتاب لديه إلمام ولو بسيط بلغات البرمجة.‏ 

5



لماذا أنشر هذا الكتاب 

: 

) 

اقتبس هذه الكلام من مقدمة كتاب احتراف Visual Basic.Net لمؤلفة محمد حمدي غانم):‏ 

أعرف ُ أن الكثيرين سيتساءلون:‏ ما هو الدافع الذي حداك لبذل هذا المجهود؟..‏ وإن ّي لأجدها فرصة ً مناسبة ً لأنقلَ‏ 

لكم فكرة ً تعلمتها من احتكاكي بأناسٍ‏ أكن لهم كل َّ الود والاحترام..‏ هذه الفكرة ُ تدور حولَ‏ كونِ‏ الإنسانِ‏ جزءا من 

مجتمعِه،‏ لهذا فمهما كانت أقدار هذا الإنسان،‏ فإن مصيره مرتبط بمصير هذا المجتمع،‏ يسعدانِ‏ معا ويشقيانِ‏ معا.‏ 

فما فائدة ُ أن تملِك في مجتمعٍ‏ معدم؟ 

وما جدوى أن تشعر في مجتمعٍ‏ متحجر؟ 

وما قيمة ُ أن تعرف َ في مجتمعٍ‏ يجهل؟ 

وما هدف ُ أن تفهم في مجتمعٍ‏ متبل ّد؟ 

وما مغزى أن ت ُبدع في مجتمعٍ‏ متدن ّي الذائقةِ‏ والثقافة؟ 

لن يكون لكل ِّ هذا قيمة ٌ إذا لم يتشارك معك فيه أناس آخرون،‏ بحيث تعم الفائدة على الجميع،‏ في إطارٍ‏ من التعاونِ‏ 

والو د.‏ 

إن الحاجة َ للإحساسِ‏ بالانتماءِ‏ هي حاجة ٌ من حاجاتِ‏ الإنسانِ‏ الحيويةِ‏ التي لا يستطيع العيش َ بدونِها،‏ تماما كالطعامِ‏ 

والشراب!..‏ ولكن..‏ هل يمكن ُك أن تنتمي إلا لأناسٍ‏ يرقون لمستوى خ ُلقكِ‏ ومبادئك وثقافتِك وإبداعك؟؟!!‏ 

إن هذه دعوة ٌ لكل ِّ من يقرأُ‏ هذه الكلماتِ‏ أن يحاولَ‏ أن يشارك الآخرين في معرفتِه وعلمِه،‏ على الأقل ِّ حت ّى يجد من 

يقدر هذه المعرفة َ ويحترم هذا العلم،‏ في مجتمعٍ‏ اختل ّت به كلّ‏ المقاييس!!،‏ وحت ّى ينطبق َ عليه قول الرسولِ‏ ‏(صل ّى 

االلهُ‏ عليه وسل ّم):‏ ‏"خير الناسِ‏ أنفعهم للناس".‏ 

وفي النهاية أرجوا من كل من يستفيد من هذا الكتاب أن يدعو لي بالهداية والتوفيق والنجاح وللأمة الإسلامية 

بالنصر والعزة والخروج مما هي فيه من محن..‏ 

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا إنك أنت الغفور الرحيم 


سورية - جامعة حلب 

الحرم الجامعي الرقمي الفرانكفوني 

Support@alshater.net 

6


الجلسة الأولى 

نبذه عن دلفي : 

من المعروف أن دلفي هي منتج بورلاند الأكثر مبيعا ً للتطوير 


السريع للتطبيقات RAD (Rapid Application 

‏(‏Developmentوالمستخدم لكتابة تطبيقات ويندوز ، ويمكن باستخدام الدلفي إنشاء تطبيقات ويندوز بسرعة 

أكبر وبسهولة أكثر من أي وقت مضى.‏ 

هذا يعني أنه نستطيع إنشاء واجهة المستخدم 

الرئيسي 

) 

(.. 

يقصد بواجهة المستخدم القوائم ومربعات الحوار والإطار 

للبرنامج مستخدمين تقنيات السحب والإفلات لمطور تطبيقات سريع ، ويمكن أيضا ً وضع تحكمات 

أكتيف إكس ) Active X 

العناصر المستخدمة في فيجول بيسك 

( 

على النماذج لإنشاء برامج متخصصة مثل برامج 

استعراض الويب في دقائق،‏ تقوم دلفي بعمل جيد وذلك بإخفاء بعض التفصيلات التي تشكل أحشاء برنامج الويندوز 

ولكن ليس بإمكانها كتابة البرامج بشكل كامل ، لذلك يجب في النهاية أن يكون المبرمج جيدا ً،‏ ويمكن لهذه العملية 

أن تكون طويلة ، والخبر الجيد أن دلفي تجعل الرحلة غير متعبة وحتى أنها تجعلها ممتعة.‏ 

نظرة سريعة على مكونات دلفي 

IDE 

سنتعرف في هذا القسم على بيئة التطوير المتكاملة للدلفي 

IDE (Delphi Integrated Development Environment). 

عندما تشغل برنامج الدلفي تظهر بيئة التطوير فيه والتي سنتعرف عليها كل على حده 

بيئة دلفي مكونة من ثلاثة أقسام 

1 

: 

الإطار العلوي:‏ 

يمكن اعتباره الإطار الرئيسي يحتوي على أشرطة الأدوات ولوحة المكونات توصل أشرطة أدوات دلفي إلى 

وظائف كالفتح والتخزين والبناء وتحتوي لوحة المكونات على كثير من مكونات دلفي التي يمكن وضعها في 

) البرنامج 

لافتة نصية ، علب تحرير ، مربعات سرد وأزرار وما شابه ذلك )، لتكون أكثر ملائمة فإن المكونات 

مقسمة إلى مجموعات ، حتى تضع مكون على برنامجك انقر على المكون ومن ثم انقر على المكان حيث تريد 

وضع المكون على النموذج.‏ 

7



( 

) 

2 محرر الخواص : 

سنتعرف عليه بالتفصيل في دروس قادمة 

والذي يتم 

بواسطته تعديل الخصائص والأحداث للعنصر وسوف 

نستخدمه بشكل دائم 

خلال عملنا مع دلفي 

والأحداث.‏Events 

وهناك صفحتين 

محرر الخواص هما الخصائص Properties 

مصطلح 

الخاصة Property يحتوي على خصائص لها قيم تحدد عمل العنصر 

يتضمن باب الأحداث Events 

قائمة أحداث العنصر،‏ تتشكل الأحداث نتيجة لتفاعل 

المستخدم مع المكون مثلا 

عند نقر المكون يتولد حدث يخبرك بأن المكون قد نقر 

بإمكانك كتابة أوامر تستجيب لهذه 

الأحداث.‏ 

مصطلح الحدث Event 

هو شيء ما يحصل كنتيجة لتفاعل 

العنصر مع المستخدم أو 

( 

مع ويندوز ) 

حدث ضغط على زر مثلا ً 

مصطلح معامل الحدث Event Handler 

هو مقطع 

من البرمجة ينفذ استجابة للحدث.‏ 

منطقة عمل : 

3 دلفي 

الجزء 

الثالث هو منطقة عمل 

دلفي وعادة ما يظهر مشروعا ً جديد ًا 

‏،في المقدمة 

مصمم النموذج وخلفه محرر 

الشيفرة الذي تدخل عبره البرمجة عند كتابة 

برامجك.‏ 

وكلا ً من 

محرر الخواص ومصمم النموذج ومحرر الشيفرة تتفاعل فيما 

بينها عند بناء التطبيقات لتولد البرنامج.‏ 

4 شجرة العناصر : 

تظهر هذه النافذة العناصر الموضوعة على النموذج على شكل شجرة من العناصر 

النافذة الرئيسية 

8 

:


: 


أ القوائم سنتعرف على القائمة 

File بالتفصيل لأنها أساس العمل مع البيئة ومن ثم باقي القوائم ستشرح في 

حينها : 

1 : File Menu وتحتوي على الأوامر التالية : 

 

: New وتظهر عنه قائمة فرعية 

. ( 

البدء بكتابة برنامج جديد 

) يعمل تحت نظام ويندوز 

: Application 

( 1 

) 

. ( 

البدء بكتابة برنامج جديد 

) يعمل تحت نظام لينكس وويندوز 

: CLX 

( 2 

) 

إنشاء وحدة جديدة 

‏(يتم الوصول لها من جميع نماذج 

المشروع).‏ 

:Data Model 

( 3 

) 

: Form إضافة نمودج جديد للمشروع . 

( 4 

) 

تصميم عنصر يحوي مجموعة من العناصر للاستخدام مع نماذج المشروع 

) سيتم 

: Frame 

( 5 

) 

شرحة فيما بعد بمثال . 

خاص 

: Others سيتم شرحها في حينها . 

( 6 

) 

. 

( *.dpr 

) 

( *.Pas 

) 

: Open 

لفتح ملف وحدة 

أو ملف مشروع 

موجودين مسبقا ً 

. 

: Open Project 

لفتح مشروع موجود مسبقا ً 

 

: Reopen يقدم لائحة بآخر عدة ملفات تم فتحها لسهولة إعادة فتحها من جديد.‏ 

. 

: Save 

تخزين آخر تعديل 

. 

: Save As 

تخزين الوحدة 

Unit الحالية باسم جديد 

. 

: Save Project As 

تخزين ملف البرنامج الرئيسي Main Program باسم جديد 

. 

: Save All 

إعادة تخزين جميع ملفات المشروع 

. 

: Close 

إغلاق النافذة الفعالة 

. 

: Close All 

إغلاق البرنامج بالكامل 

Use لاحقا ً ( . 

) Use 

: Use Unit 

لاستخدام وحدة أي وضع اسمها بعد تعليمة 

ستشرح تعليمة 

: print 

لطباعة النموذج الحالية أو لطباعة الوحدة الحالية.‏ 

9



الجلسة الثانية 

سنقوم الآن بكتابة برنامج يقوم بتغير لون النافذة:‏ 

أ مرحلة التصميم : 

1 إبدأ مشروعا جديدا عن طريق القائمة . File New Application 

2 لنعطي النموذج الجديد الخصائص التالية : 

أسم الخاصة 

القيمة 

شرح الخاصة 

bdRightToLeft تقوم هذه الخاصة بتحويل اتجاه النص والعناصر في النموذج من اليمين 

BiDiMode 

( 

إلى اليسار ) 

لموافقة البرامج العربية 

تحديد ارتفاع النموذج 

280 

Height 

تحديد عرض النموذج 

350 

Width 

تغير الألوان 

تحديد عنوان للنموذج يظهر في شريط العنوان 

Caption 

( 

تحديد مكان ظهور النموذج ) 

ستشرح قيمها فيما بعد 

poDesktopCenter 

Position 

2 نضع ثلاثة أزرار على النموذج Button) ( 

من صفحة العناصر 

Standard ونعطي لكل منهم الخصائص 

التالية : 

إعطاء اسم جديد للعنصر غير الاسم الافتراضي 

تحديد عنوان للزر 

RedButton 

أحمر 

تحديد بعد الزر عن أعلى النافذة 

تحديد بعد الزر عن يسار النافذة 

) 

) 

بكسل)‏ 

( بكسل 



160 

230 

GreenButton 

أخضر 



) 

) 

بكسل)‏ 

( بكسل 

190 

203 

CloseButton 

إغلاق 





) 

) 

بكسل)‏ 

( بكسل 

200 

24 

: Button1 

Name 

Caption 

Top 

Left 

Button2 

Name 

Caption 

Top 

Left 

Button3 

Name 

Caption 

Top 

Left 

10



ب كتابة التعليمات : 

form1.Color := clred ; 

Color القيمة clred وهي 

1 نضغط مرتين على الزر الأول فيظهر محرر الشيفرة نكتب فيه مايلي 

: 

تقوم هذه العملية بتغير لون النموذج إلى اللون الأحمر عن طريق إعطاء خاصة اللون 

قيمة محجوزة في الدلفي وتدل على اللون الأحمر.‏ 

form1.Color := clgreen; 

close; 

2 نضغط مرتين على الزر الثاني فيظهر محرر الشيفرة نكتب فيه مايلي 

3 نضغط مرتين على الزر الثالث فيظهر محرر الشيفرة نكتب فيه مايلي 

تقوم هذه التعليمة بإغلاق النافذة 

: 

: 

وبذلك نكون قد أنهينا كتابة البرنامج ولحفظه نختار الأمر 

File Save Project As 

لنعطي الوحدة الاسم NewCloors والمشروع الأسم 

ChangeCloros 

ولتنفيذه نضغط على F9 أو نختار الأمر Run من القائمة 

Run 

( Run Run ) 

سنقوم الآن بتغير بعض خواص العناصر للتعرف على 

خصائص جديدة : 

1 خصائص النموذج : 

: 

( Form1 

نختار النموذج بالنقر عليه أو باختيار اسمه ) 

من القائمة الموجودة في أعلى محرر الخواص 

أ 

تظهر أمام هذه القائمة إشارة + 

بالنقر عليها تظهر لها أربع خيارات تأخذ كل منها القيمة 

: BorderIcons 

صح أو خطأ وتتحكم هذه الخواص بأزرار شريط العنوان : 

. 

بإعطاء هذه الخاصة القيمة 

False تختفي الأزرار الثلاثة 

: Bisystemmenu 


False يختفي زر التصغير . 

: BiMinimize 

. يختفي زر False بإعطاء هذه الخاصة القيمة : BiMaximize 


True يظهر الزر ؟ 

) لا يظهر هذا الزر مع النوافذ العادية 

: BiHelp 

ستشرح مع الخاصة التالية . 

. 

ملاحظة 

: نتائج التعديل في هذه الخواص لا تظهر إلا في أثناء التنفيذ 

ب 

: Borderstyle تقوم هذه الخاصة بالتحكم بشكل النافذة وشريط العنوان وتأخذ إحدى القيم التالية 

. 

11



: bsDialog تقوم بإخفاء أزرار التكبير والتصغير بالإضافة إلى منع تغير حجم النموذج أثناء التنفيذ 

. Bihelp للخاصة True 

ويظهر فقط زر الإغلاق والزر ؟ في حال 

تم إعطاء القيمة 

: bsNone يظهر النموذج بدون شريط عنوان ولا يمكن تغير حجمه أثناء التنفيذ.‏ 

: bsSingle تظهر جميع أزرار شريط العنوان ولا يمكن تغير حجمه أثناء التنفيذ . 

وهي القيمة الافتراضية ويظهر النموذج 

بشكله الطبيعي مع إمكانية التكبير والتصغير والتحجيم.‏ 

: bsSizeable 

يظهر شريط عنوان صغير مع زر × 

فقط وتختلف الأولى عن الثانية 

: bsToolWindow و bsSizeToolWin 

بإمكانية تغير الحجم . 

. 

ملاحظة 

: نتائج التعديل في هذه الخواص لا تظهر إلا في أثناء التنفيذ 

: 

ج : Position 

لإظهار النموذج في مكان ما على الشاشة وأهم قيمها 

: poDesigned يظهر النموذج في المكان الذي حدد له أثناء التصميم . 

: poDesktopCenter يظهر النموذج في وسط الشاشة.‏ 

يظهر النموذج في وسط الشاشة ) 

في حال وجود شاشة واحدة لهذه 

: poScreenCenter 

الخاصة نفس نتيجة الخاصة السابقة ( . 

... 

د : Icon 

تتحكم هذه الخاصة بشكل أيقونة النافذة ، وعند تحديد هذه الخاصة يظهر زر عليه ثلاث نقاط 

بالنقر عليه يظهر صندوق حوار لاختيار أيقونة ) 

يتم عادة جلب الأيقونات من الانترنت أو يتم رسمها 

: 

( 

يدويا ً كما سنرى لاحقا ً يمكن اختيار أحدى الأيقونات من الدليل 

C:\Program Files\Common Files\Borland Shared\Images\Icons 

هذه هي الخواص الأساسية للنموذج وسنتعرف على باقي الخواص لاحقا ً . 

1 خصائص الزر : 

: 

( Top, Left, Width, Height, Caption 

بالإضافة للخصائص المعروفة ) 

هناك بعض الخصائص المهمة 

: BiDiMode تم شرح هذه الخاصة سابقا ً بالنسبة للنموذج ولكن من المهم أن نعلم أنه عند تغير هذه الخاصة 

في النموذج تتغير بشكل تلقائي في الزر . 

تتحكم هذه الخاصة بنوع خط عنوان الزر بالإضافة إلى لون العنوان وحجمه.‏ 

تظهر هذه الخاصة ملاحظة عند وقوف مؤشر الفأرة فوق الزر 

: Font 

: Hint 

. 

يجب أن تأخذ هذه الخاصة القيمة 

True حتى يتم تفعيل الخاصة السابقة 

: Showhint 

مثال : 

أختر الزر 

RedButton ثم اختر الخاصة 

Hint من محرر الخواص واكتب النص 

( 

التالي ) 

عند الضغط على هذا الزر سيتحول لون النافذة إلى اللون الأحمر 

ثم أعط الخاصة 

ShowHint القيمة True ونفذ البرنامج . 

. 

عند إعطاء القيمة 

False لهذه الخاصة لن يظهر الزر أثناء التنفيذ 

: Visible 

: Enable عند إعطاء القيمة False لهذه الخاصة سيظهر الزر بشكل باهت ولا يمكن الضغط عليه.‏ 

12



أثناء تنفيذ البرنامج وعند الضغط على الزر 

Tab في لوحة المفاتيح يظهر إطار مربع 

: TabOrder 

داخل الزر وينتقل هذا الإطار من زر إلى آخر بالنقر على الزر 

Tab وتقوم هذه الخاصة 

بتحديد ترتيب انتقال الإطار عند التنقل بين العناصر.‏ 

1 لنضيف الآن زر جديد إلى النموذج السابق ولنعطه الخصائص التالية 

: 

BtnAbout Name 

Caption 

Top 

Left 

Width 

حول 

0 

0 

40 





تحديد عرض الزر 

) 

) 

بكسل)‏ 

بكسل 

ثم نضيف نموذج جديد للمشروع عن طريق القائمة : File New Form 

وبذلك يظهر نموذج جديد لنعطه الخصائص التالية 

( 

: 

About Name 

bdRightToLeft BiDiMode 

إعطاء أسم جديد للنموذج 

تقوم هذه الخاصة بتحويل اتجاه النص والعناصر في النموذج من 

اليمين إلى اليسار 

) 

لموافقة البرامج العربية 

( 

تحديد ارتفاع النموذج 

تحديد عرض النموذج 

تحديد عنوان للنموذج يظهر في شريط العنوان 

تحديد مكان ظهور النموذج 

250 

300 

معلومات حول البرنامج 

poDesigned 

Height 

Width 

Caption 

Position 

الآن يمكن حفظ النموذج عن طريق الضغط على الزر 

Save من أزرار السرعة أو باختيار نفس الأمر من القائمة 

aboutunit 

File أو بالضغط على 

Ctrl + s من لوحة المفاتيح ، لنعط الوحدة أسم 

( Form1 

عند تنفيذ البرنامج لا يظهر إلا النموذج الأول ) 

والآن علينا كتابة الشيفر المناسبة لاستدعاء النموذج 

. من النموذج Form1 About 

لاستدعاء نموذج ثاني من نموذج أول يجب علينا أن نعلم النموذج الأول باسم الوحدة التابع لها النموذج الثاني ويتم 

: Uses 

ذلك بإضافة اسم وحدة النموذج الثاني في القسم 

implementation لوحدة النموذج الأول بعد عبارة 

implementation 

والآن أضف العبارة التالية كما يلي : 

الآن نضغط مرتين على الزر 

يقوم الأمر Show بإظهار النافذة 

لنكمل الآن تصميم النموذج 

BtnAbout الموجود على النموذج الأول ونكتب التعليمة التالية 

uses aboutunit ; 

: 

about.Show; 

.( 

) About 

: About 

أحفظ البرنامج واضغط على الزر حول لمشاهدة النتائج 

13


1 نضيف العنصر 


: 

) 

( لوح Panel 

AlTop 

Align 

من القائمة 

) 

Standard ولنعطه الخصائص التالية 

تجعل العنصر يتوضع في أعلى النافذة وعلى عرضها بشكل كامل 

سيتم شرح قيم هذه الخاصة قريب ًا 

( 

" " 

185 

bvLowered 

Caption 

Height 

BevelOuter 


تحديد ارتفاع 

اللوح 

تحديد طريقة عرض الحد الخارجي للوح 

حاول إعطاء قيمة ما لخاصة Width ستلاحظ أنها لا تتغير وذلك لأن الخاصة 

2 نضيف زر 

Button ونعطه الخواص التالية 

Align مفعلة 

: 

BtnClose 

Name 

Caption 

Top 

إغلاق 

192 




) 

112 

Left 


) 

بكسل)‏ 

بكسل 

3 نضيف عنصر الصورة Image من الصفحة Additional فوق العنصر 

( 

Panel 

picture 

أي صورة 

إعطاء صورة للعنصر يمكن أختيار أي صورة مرغوبة 

صورة من المجلد 

يمكن أخذ ) 

: 

C:\Program Files\Common Files\Borland Shared\Images 

\Splash\256Color 

True 

Stretch 

إظهار كامل الصورة داخل العنصر 

Image 

0 

Top 


) 

0 

Left 


3 نضيف عنصرين من النوع Label فوق العنصر 

) 

بكسل)‏ 

( بكسل 

Panel 

Label1 

Caption 

Top 

Left 

font 

تغير الألوان 

24 

168 

Label2 

Caption 

نغير الخط ونعطيه اللون الأزرق 

: إعداد وتنفيذ 

88 

212 

Top 

Left 

Font 

نعطي الخط اللون الأحمر 

ونعطي الخصائص التالية:‏ 

نضغط مرتين على الزر BtnClose ونكتب التعليمة Close في محرر شيفرة ، ثم نحفظ المشروع وننفذه 

. 

14



. 

أصبح الوقت ملائما ً الآن للتعرف على الوحدة 

الجلسة الثالثة 

Unit بشكل مفصل 

تتألف الوحدة سواء كانت مرتبطة بشكل أم لا من الأجزاء التالية 

: 

unit Unit Name ; 

interface 

uses 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 

Dialogs; 

type 

TForm1 = class(TForm) 

private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

var 

Form1: TForm1; 


end. 

1 يبدأ رأس الوحدة بالكلمة المحجوزة Unit يليها مباشرة أسم الوحدة ) NewColors ( . 

في مثالنا 

قسم الاتصال الخارجي : Interface 

الذي يحدد بداية منطقة الاتصال الخارجي ، أي المنطقة من الوحدة التي يمكن أن تراها وحدات أخرى من وحدات 

التطبيق وفيه : 

القسم أ 

: Uses توضع فيه جميع أسماء الوحدات التي تتعامل معها الوحدة سواء كانت الوحدات الخاصة 

بالدلفي أو الوحدات التي أنشأها المبرمج 

) عند إضافة عناصر جديدة على النموذج تقوم دلفي بإضافة الوحدة 

التابعة لهذا العنصر بشكل تلقائي ( . 

ب القسم 

تعرف الوحدة هنا صنفا ً جديدا ً موروثا ً من النوع ) TForm صنف النموذج 

، يضاف إلى 

( 

: Type 

Type للوحدة 

الصنف الجديد أسماء جميع العناصر والأحداث المضافة إلى الوحدة ) 

قارن بين القسم 

NewColors والوحدة ( AboutUnit ويتضمن القسم Type الجزأين : 

: Private وتوضع فيه المتحولات الخاصة بالوحدة نفسها.‏ 

( 

وتوضع فيه المتحولات العامة 

) من أجل أن تتبادل الوحدة المعلومات مع الوحدات الأخرى 

: Public 

وسيشرح هذين الجزأين بشكل مفصل فيما بعد ، ينتهي القسم Type بالتعليمة .end; 

TForm1 ويشير Form1 إلى 

( 

) 

ج القسم : Var 

يتم فيه تعريف عن هدف 

اسمه غرض 

Form1 من النوع 

النموذج الذي نضيف له العناصر أثناء التنفيذ 

. 

15



قسم التنفيذ 

: implementation 

يمكن أن يحتوي هذا القسم على تصريحات عن توابع وإجراءات ومتحولات خاصة بالوحدة نفسها بالإضافة إلى 

ملاحظة 

جميع التوابع والإجراءات المستخدمة داخل الوحدة 

. 

: 

قد يكون الجزء السابق صعبا ً بعض الشيء لكنه ضروري لمتابعة العمل مع دلفي كما أننا سنتعرف عليه 

بشكل أكبر كلما دعت الحاجة إلى ذلك 

. 

سنعمل الآن على كتابة تطبيقات بسيطة الهدف منها التعرف على عناصر جديدة وخصائصها 

1 التعرف على صندوق الاختيار checkbox من القائمة 

ابدأ مشروع جديدا ً وصغر حجم النموذج قليلا ً وأضف أليه عنصر 

الزر 

: 

: Standard 

: checkbox وعنصر Button 

اختر العنصر checkbox1 من محرر الخواص واعطه الخاصة 

: Caption ‏"أظهر الزر " 

ثم انتقل إلى الصفحة Event واختر منها الحدث 

محرر الشيفرة اكتب فيه السطر التالي 

OnClick فيظهر 

: 

if checkbox1.Checked then button1.Visible := true else button1.Visible := false ; 

الخاصة 

16 

Checked للعنصر 

والقيمة False في حال اختفاء الإشارة السابقة 

نفذ البرنامج وشاهد النتائج 

. 

. 

3 التعرف على عنصر صندوق اللائحة 

checkbox تعيد القيمة True في حال تم إظهار إشارة في صندوق الاختيار 

ListBox 

يظهر هذا الصندوق قائمة بنصوص تم إدخالها أثناء التصميم 

أو أثناء التنفيذ 


: Standard 

: 

قم بإنشاء مشروع جديد وأضف إليه صندوق نص 

وصندوق لائحة 

( Edit ) 

( ListBox ) 

( Button ) 

أ أثناء التصميم 

كما في الشكل المرفق 

وثلاثة أزرار 

: 

: 

باختيار الخاصة Items من محرر 

الخواص تظهر نافذ يمكن أن نكتب فيها سطور القائمة 

" مثلا ً أدخل 

الجلسة الثانية 

ب أثناء التنفيذ 

" الجلسة الأولى 

في السطر الأول و 

" 

" 

في السطر الثاني 

. 

: 

أضغط مرتين على الزر Button وأضف السطر التالي 

:


تقوم التعليمة السابقة بإضافة النص المكتوب في صندوق النص إلى صندوق اللائحة 

لحذف سطر واحد من عنصر اللائحة نضغط على الزر الثاني ونضيف السطر التالي 

تقوم هذه التعليمة بحذف السطر الذي تم اختياره من اللائحة . 

كذلك لحذف عناصر اللائحة أثناء التنفيذ اضغط على الزر الثالث مرتين واكتب السطر التالي 

تقوم هذه التعليمة بمسح صندوق اللائحة بالكامل.‏ 

4 التعرف على أزرار الراديو 


Listbox1.items.add (edit1.text); 

( 

) 


: 

listbox1.DeleteSelected ; 

: 

Listbox1.items.clear ; 

: ( RadioButtons 

) 

تعتبر أزرار الراديو مشابهة لعنصر صندوق الاختيار وتختلف عنه أنه 

لا يمكن اختيار زري راديو بنفس الوقت أي أنه أمام المستخدم اختيار 

زر واحد من بين الأزرار الظاهرة على النموذج.‏ 

كمثال على ذلك 

: 

أبدأ مشروعا ً جديدا ً وأضف إليه ثلاثة أزرار راديو كما في الشكل 

أعط الزر الثالث الخاصة 

: 

Checked القيمة 

اللون . ClCream 

أضغط مرتين على الزر الأول وأضف التعليمة التالية 

وأضف التعليمة التالية للزر الثاني 

وللزر الثالث التعليمة 

: 

True وأعط النموذج 

form1.Color := clred; 

form1.Color := clblue; 

form1.Color := clcream; 

: 

: 


. 

5 التعرف على صندوق المجموعة 

: GroupBox 

في المثال السابق لنفرض أننا نريد إضافة مجموعة جديدة من أزرار الراديو لتغير لون الخط في النموذج 

الأزرار السابقة تغير لون النموذج 

) 

( 

، فإذا أضفنا زرين آخرين على النموذج فلا يمكننا تغير الخط واللون معا ً 

لأنه لا يمكن اختيار زري راديو في نفس الوقت ، وهنا يأتي دور صندوق المجموعة حيث 

كانت 

يؤمن هذا الصندوق 

ربطا ً بين أزرار الراديو بداخله فقط دون التأثير على أزرار الراديو خارجه ، كما يوضح المثال التالي 

أضف صندوق مجموعة للمثال السابق وضع عليه زرين راديو كما في الشكل 

وأضف التعليمة التالية للزر الأول داخل الصندوق 

: 

form1.Font.Color := clgreen; 

form1.Font.Color := clyellow 

والتعليمة التالية للزر الآخر : 

17



التعامل مع الأحداث 

: ( Events ) 

يوجد لكل عنصر في دلفي مجموعة من الأحداث التي يمكن أن ينفذها ، تعرفنا مثلا ً على الحدث 

OnClick للزر 

) Button 

عند الضغط مرتين على الزر يتم تفعيل الحدث Onclick ويظهر معالج الشيفرة لكتابة التعليمات التي 

تبين كيفية تعامل البرنامج مع هذا الحدث ‏)،سنتعرف الآن على مجموعة جديدة من الأحداث.‏ 

1 الحدث 

: OnMouseMove 

يشرين على مكان وجود الفأرة حيث 

عنوان النافذة وكمثال على ذلك 

يعمل هذا الحدث عن مرور الفأرة فوق العنصر ويعيد احداثيات 

X = left أي بعد الفأرة عن اليسار،‏ و 

( x,y 

) 

: 

أنشاء مشروع جديد وضع على عنصر 

اليسار ‏،والآن حدد النموذج 

الخاصة 

( Form1 

) 

y = top أي بعد الفأرة عن شريط 

الذين 

Label الأول في الأعلى وفي أقصى اليمين والثاني في الأسفل وفي أقصى 

اختر محرر الخواص وانتقل إلى الصفحة 

ف ُيظهر محرر الشيفرة التابع 

Event واضغط مرتين على 

: 

OnMouseMove 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 

Y: Integer); 

: 

label1.Caption := inttostr(x); 

label2.Caption := inttostr(y); 

. 

لنكتب بين السطرين Begin وEnd التعليمات التالية 

نفذ البرنامج 

2 الحدث 

السابق ، كمثال عليه 

: OnMouseDown 

حدد النموذج : 

Event واضغط مرتين على الخاصة 

) 

يعمل هذا الحدث عن الضغط على زر الفأرة ويعيد الإحداثيات كما في الحدث 

( Form1 

من المثال السابق اختر محرر الخواص وانتقل إلى الصفحة 

OnMouseDown فيظهر محرر الشيفرة أكتب فيه التعليمات التالية 

: 

label1.Left := x; 

label1.Top := y -10; 

label2.Left := x+20; 

label2.Top := y-10; 

18


) 


تعمل هذه التعليمات على وضع عنصري العنوان 

Label في مكان الضغط على الفأرة ، 

تم إضافة وطرح الأرقام 

. ( 

من X و 

y فقط لإظهار النتائج بشكل أفضل 

: 

5 الحدث 

: OnMouseLeave يعمل هذا الحدث عند ابتعاد الفأرة عن العنصر 

أضف عنصر 

التالية:‏ 

Label جديد إلى الشكل السابق وحدد الحدث 

OnMouseMove لهذا العنصر واكتب التعليمة 

label3.font.color := clblue; 

ثم حدد الحدث OnMouseLeave واكتب التعليمة التالية : 

نفذ البرنامج ولاحظ أنه عند مرور الفأرة من فوق العنصر Label3 يتحول إلى اللون الأزرق ثم يعود إلى لونه 

الأسود عن مغادرة الفأرة له.‏ 

Label3.font.color := clblack; 

: 

4 الحدث : On DblClick 

يعمل هذا الحدث عند الضغط مرتين على العنصر 

Close; 

On DblClick واكتب التعليمة : 

حدد العنصر 

Label3 ثم أختر الحدث 

نفذ البرنامج واضغط مرتين على العنصر 

Label3 للخروج من البرنامج 

. 

19



الجلسة الرابعة 

التعامل مع واجهة الدلفي : 

1 إضافة عدة نسخ من العنصر نفسه : 

يمكن إضافة عدة نسخ من العنصر نفسه وذلك بالضغط على المفتاح 

Shift من لوحة المفاتيح وإبقاؤه مضغوطا ً 

حتى نختار العنصر المراد إضافته من لوحة العناصر،‏ عندئذٍ‏ يظهر مربع أزرق يحيط بأيقونة العنصر ضمن لوحة 

العناصر ، ننقر الآن فوق النموذج ليظهر العنصر وفي كل مرة ننقر على النموذج تظهر نسخة أخرى من العنصر 

نفسه ، لإيقاف العملية نضغط أيقونة المؤشر ضمن لوحة العناصر ليختفي الصندوق الأزرق حول العنصر ، كمثال 

على ذلك اضغط على العنصر 

Label بمؤشر الفأرة مع الضغط على المفتاح 

shift انقل الفأرة إلى النموذج 

واضغط عدة مرات . 

2 التحكم بمكان العنصر وحجمه على النموذج من لوحة المفاتيح : 

كما رأينا يمكن التحكم بهذه الخواص بدقة عن طريق محرر الخواص ولكن هناك طريقة أخرى ومفيدة للتحكم بهذه 

الخواص . 

أ تحريك العنصر : 

أختر العنصر المراد تحريكه اضغط على المفاتح 

+ Ctrl أزرار الأسهم فسيتم نقل العنصر باتجاه السهم المضغوط 

. 

، ولتحريك العنصر بسرعة أكبر أستخدم الأزرار + Ctrl + Shift 

أزرار الأسهم 

ب تغير حجم العنصر : 

اختر العنصر المراد تغير حجمه واضغط على المفتاح 

+ Shift أزرار الأسهم وسيتم التكبير أو التصغير حسب 

السهم المضغوط . 

3 اختيار أكثر من عنصر في نفس الوقت : 

يمكن أن نختار أكثر من عنصر على نموذج في نفس الوقت على عن طريق الضغط على العنصر الأول ومن ثم 

الضغط على العنصر الثاني مع مفتاح 

، وعند تنفيذ هذه العملية تظهر في محرر الخواص 

Shift وهكذا ... 

الخواص المشتركة للعناصر المختارة 

عند أختيار عنصرين الأول 

Label والثاني Edit ستظهر الخواص 

) 

( Caption, Text 

المشتركة مثل top, ... Width, Height, left, 

، وستختفي بعض الخواص مثل 

رصف العناصر : 

يمكننا رصف العناصر نسبيا ً وفق بعضها البعض ، أو نسبيا ً وفق الشكل وذلك من خلال اختيار العنصر المراد 

رصفه ومن ثم استخدام لوحة الرصف 

Alignment palette من القائمة View أو Alignment من القائمة 

: Edit 

أ لوحة الرصف : Alignment palette 

كل زر في هذه اللوحة له مهمة ما وسيتم شرح كل منها على حدة : 

ترصف جميع العناصر المختارة إلى الجهة اليسارية لأول عنصر تم اختياره 

20 

. 

نفس العمل السابق ولكن الرصف يتم للجهة اليمينية


) 


ترصف العناصر جميع العناصر المختارة إلى 

منتصف العنصر الأول الذي تم اختياره بشكل أفقي 

تجعل 

جميع العناصر على عمود واحد ( 

نفس عمل الزر السابق ولكن الرصف يتم بشكل عمودي،(تجعل جميع العناصر المختارة على صف واحد).‏ 

تنقل جميع العناصر المختارة إلى وسط النافذة الأب بشكل أفقي . 

تنقل جميع العناصر المختارة إلى وسط النافذة الأب بشكل عامودي . 

تجعل المسافة بين العناصر الأفقية متساوية 

) تثبت العنصر الأول والأخير وتحرك العناصر التي بينهما 

لتأخذ مسافات متساوية . 

نفس الخاصة السابقة للعناصر العامودية . 

. 

. 

تحريك العناصر إلى نفس الناحية السفلية لأول عنصر تم اختياره 

تحريك العناصر إلى نفس الناحية العلوية لأول عنصر تم اختياره 

: 

ب : Alignment 

أختر 

Align من القائمة 

Edit ستظهر النافذة التالية 

عمل هذه النافذة يشبه عمل النافذة السابقة ولكن تم 

الاستعاضة عن الأيقونات بأزرار راديو ليتم الاختيار 

منها.‏ 

تثبيت موقع العناصر : 

بعد أن نعطي العناصر مواقعها يمكننا تثبيت هذه المواقع لكي لا تتحرك العناصر بطريق الخطأ وذلك عن طريق 

اختيار العنصر ومن ثم استخدام الأمر 

Lock Controls من القائمة ، Edit عندها لن نستطيع تحريك هذه 

العناصر حتى نختار نفس الأمر مرة أخرى . 

قص ونسخ ولصق العناصر : 

يمكن قص أو نسخ العناصر ولصقها على نفس النموذج أو على نموذج آخر عن طريق اختيار العناصر وقصها او 

: 

نسخها عن طريق الأوامر Cut أو 

Copy في القائمة 

Edit ولصقها عن طريق الأمر 

Paste من نفس القائمة 

ملاحظة العنصر الملصق يأخذ جميع خصائص العنصر الأصل بالإضافة إلى جميع أحداثه . 

عنوان البرنامج : 

يمكن وضع عنوان للبرنامج 

عنوان البرنامج يظهر على شريط المهام بقرب أيقونة البرنامج 

( أختر الأمر 

) 

Application 

File Options وانتقل إلى الصفحة وانتقل إلى الصفحة 

Application ‏،واكتب في القسم 

النص الذي تريد،‏ نفذ البرنامج ولاحظ العنوان على شريط مهام ويندوز 

. 

Title قرب setting 

21



أيقونة برنامج : 

) 

( 

تعلمنا سابقا ً تغير أيقونة نافذة ) 

نموذج 

وسنتعلم الآن تغير أيقونة البرنامج 

أيقونة البرنامج هي نفس أيقونة الملف 

EXE الذي ينتج عند تنفيذ البرنامج وتظهر أيقونة البرنامج على شريط المهام وفي أي اختصار يوضع للبرنامج )، 

Load 

من نفس الصفحة السابقة Project Options انتقل إلى الصفحة 

Application ‏،اضغط على الزر 

Icon 

واختر أيقونة جديدة للبرنامج 

نفذ البرنامج ولاحظ النتائج 

) يمكن اختيار أيقونات من الفهرس 

C:\Program Files\Common Files\Borland Shared\Images\Icons 

. 

صناديق الرسائل : 

أ الصندوق : ShowMessage 

يستخدم الإجراء 

string) showmessage S) : لإظهار رسالة للمستخدم حيث تظهر نافذة صغيرة تحوي نص 

الرسالة وعلى الزر 

Ok فقط ويكون عنوان هذه النافذة هو أسم الملف التنفيذي للبرنامج 

كمثال على ذلك أنشأ مشروعا ً جديدا ً وأضف إليه 

Button وأضف التعليمة التالية عند حدث 

الضغط على الزر : 

نفذ البرنامج واضغط على الزر لتشاهد صندوق الرسالة 

‏;('أهلا ً بكم مع دلفي')‏showmessage 

ب الصندوق : MessageDlg 

هذا الصندوق يشبه الصندوق السابق ولكنه يتوقع من المستخدم أن يعيد قيمه للبرنامج من خلال الضغط على أزرار 

هذا الصندوق فرضا ً سيقوم البرنامج بتنفيذ تعليمات معينة إذا ضغط المستخدم على الزر 

Yes وتعليمات أخرى في 

حال الضغط على الزر ، NO يتم استدعاء هذا الصندوق عن طريق التابع التالي 

حيث 

: 

Function MessageDlg(const Msg: string ; DlgType: TMsgDlgType; Buttons: 

TMsgDlgButtons ; HelpCtx: Longint): Word 

. 

: Msg 

نص الرسالة المطلوب إظهارها 

: Dlgtype تحديد نوع لصندوق الرسالة ويأخذ أحدى القيم التالية : 

: mtWarning يظهر في صندوق الرسالة أيقونة على شكل مثلث أصفر له إشارة تعجب . 

. 

: mtError يظهر في صندوق الرسالة أيقونة على شكل دائرة حمراء داخلها إشارة × 

. 

يظهر في صندوق الرسالة أيقونة على شكل 

! داخلها إشارة تعجب 

: mtInformation 

داخلها إشارة ? . 

: mtConfirmation 

: mtCustom 

يظهر في صندوق الرسالة أيقونة على شكل 

لا يظهر في صندوق الرسالة أيقونة 

! 

. 

يعتمد نوع صندوق الرسالة على نوع الرسالة المراد إظهارها للمستخدم هل هي للتنبيه أو لإعلام المستخدم 

بحصول خطأ ما أو إعطاءه معلومة جديدة .... . 

: Buttons 

تحدد الأزرار التي ستظهر في صندوق الرسالة وتأخذ القيم التالية : 

22



mbYes,mbNo,mbOK,mbCancel,mbAbort,mbRetry,mbIgnore,mbAll,mbNoToAll,mbYesT 

oAll, mbHelp 

توضع الأزرار بين قوسين ] [ وتوضع بينهما فاصلة . 

:HelpCtx 

توضع فيه رقم السطر في ملف المساعدة المرتبط مع الزر 

يعيد التابع قيمة تتبع للزر الذي ضغط عليه المستخدم حسب الجدول 

التالي 

) 

سيشرح ملف المساعدة 

*.HLP لاحقا ً .( 

: 

أي أنه عند الضغط على الزر OK سيعيد التابع القيمة 

mrok 

. 

وهكذا 

مثال 

. 

: ( 1 ) 

أبدأ مشروعا ً جديدا ً وضع عليه الزر 

: 

Button واكتب التعليمة التالية 

عند حدث الضغط عليه 

if MessageDlg(' تريد إغلاق البرنامج mtConfirmation‏,'هل 

,[mbyes,mbno],0)= mryes then close; 

تظهر هذه التعليمة الصندوق التالي مع 

الزرين 

مثال 

Yes وNo وتغلق البرنامج في 

حال تم الضغط على زر 

. Yes 

: 2 

أضف زر جديد إلى المشروع السابق 

عليه:‏ 

واكتب التعليمة التالية عند حدث الضغط 

messagedlg( ' ‏(‏mterror,[mball,mbyestoall,mbNoToAll,mbIgnore],0‎‏,'تجربة ; 

3 الصندوق : InputBox 

يظهر هذا الصندوق على شكل نافذة فيها عنصر Edit مع الزرين 

حيث 

Cancel وله الشكل التالي 

: 

Ok و 

InputBox( const ACaption, APrompt, ADefault: string ): string ; 

. 

: ACaption 

: Aprompt 

نص الرسالة 

هو عنوان الصندوق 

. 

: ADefault 

قيمة افتراضية تظهر في الصندوق 

يعيد التابع النص المدخل في العنصر 

مثال 

mbOK 

mbCancel 

mbYes 

mbNo 

mbAbort 

mbRetry 

mbIgnore 

mbAll 

mrOk 

mrCancel 

mrYes 

mrNo 

mrAbort 

mrRetry 

mrIgnore 

mrAll 

mrNoToAll 

mbNoToAll 

mbYesToAll mrYesToAll 

: 

' 

. 

. Edit 

: 

أضف زر جديد إلى المشروع السابق واكتب التعليمة التالية 

‏;('جديد ',' أدخل أسما ً جديدا ً للنموذج ‏,'تغير عنوان النموذج')‏inputbox form1.Caption =: 

23



الجلسة الخامسة 

التعرف على عنصر المذكرة 

24 

: Memo 

يستخدم عنصر المذكرة لكتابة نص طويل 

أكثر من ) 

256 حرف ( 

كما يمكن فيه كتابة نص من عدة سطور 

. 

تتم الكتابة في المذكرة أثناء التصميم عن طريق الخاصة Lines في محرر الخواص ‏،كما لها بعض الخصائص 

: المهمة مثل 

: WordWrap 

: WantTabs 

في حال كانت قيمة هذه الخاصة True يقوم المؤشر بالإنتقال إلى السطر التالي عند الوصول 

إلى آخر السطر الحالي . 

في حال كانت قيمة هذه الخاصة True فإنه ستتم إضافة 6 فراغات عند الضغط على الزر 

أثناء التنفيذ 

Tab 

Enter 

. 

: Wantreturns 

في حال كانت قيمة هذه الخاصة 

وستتم الكتابة على سطر واحد في حال قيمتها 

True سيتم إضافة سطر جديد عند الضغط على الزر 

. False 

: ReadOnly 

: Alignment 

في حال كانت قيمة هذه الخاصة True لا يمكن الكتابة في العنصر أثناء التنفيذ . 

تظهر طريقة عرض النص في المذكرة وتأخذ إحدى القيم التالية 

: 

: taRightJustify 

يظهر النص في الجهة اليمينية(‏ في حال كانت الخاصة 

( bdRightToLeft تساوي BiDiMode 

: taLeftJustify 

مثال 

يظهر النص في الجهة اليسارية 

) 

( bdRightToLeft تساوي BiDiMode 

: taCenter 

يظهر النص في وسط العنصر 

. 

: 

أنشئ مشروعا ً جديدا ً وأضف إليه عنصر مذكرة 

في حال كانت الخاصة 

Memo وزرين 

Caption ‏"حفظ " 

واكتب التعليمة التالية بعد الضغط عليه 

تقوم هذه التعليمة بحفظ النص المكتوب داخل عنصر المذكرة 

Button ‏،أعط الزر الأول الخاصة 

: 

Memo1.Lines.SaveToFile( 'c:\a.txt') ; 

) 

( 

. ( a.txt 

أعط الزر الثاني الخاصة 

" Caption 

فتح 

تقوم هذه التعليمة بتحميل النص من الملف 

التعرف على عنصر الزر 

" 

) 

‏(أثناء التنفيذ 

واكتب التعليمة التالية بعد الضغط عليه 

المذكور اسمه بين القوسين 

إلى الملف المحدد بين القوسين 

هنا 

: 

Memo1.lines.LoadFromFile ('c:\a.txt') ; 

. ( 

: Bitbtn 

يشبه هذا العنصر عنصر الزر إلى حد بعيد ويختلف عنه في 

1 إمكانية تغير لون خط العنوان 

: 

. ( Caption ) 

2 إمكانية إضافة صورة لهذا الزر وذلك عن طريق 

أ الصور الافتراضية الموجودة في الخاصة 

: 

. Kind 

إلى المذكرة



ب الخاصة Glyph التي يمكن أن نختار منها صورة ما للزر يوجد بعض صور للأزرار في المجلد 

C:\Program Files\Common Files\Borland Shared\Images\Buttons 

يمكن تغير صورة الزر عند الضغط عليه باختيار الصورة Glyph عبارة عن ثلاث صور متجاورة بنفس الحجم 

) 

NumGlyph إلى 

كما في الصورة التالية : 

وتغير قيمة الخاصة 

، 3 حيث تكون الصورة الأولى للزر 

في الوضع الافتراضي والصورة الثانية في حالة كانت الخاصة Enabeled تساوي 

False والصورة الثالثة تظهر 

عند الضغط على الزر . 

: SpeedButton 

التعرف على 

الأزرار السريعة 

: 

هي عبارة عن أزرار تستخدم في أشرطة الأدوات ولها خصائص الزر 

BitBtn بالإضافة إلى الخصائص التالية 

1 : Flat تعطي مظهر مستوي للزر ويصبح المظهر ثلاثي البعد عند مرور الفأرة فوقه . 

 

GroupIndex ‏:عند إعطاء مجموعة من أزرار السرعة قيمة واحدة لهذه الخاصة أكبر من الصفر تعمل 

2 

هذه الأزرار كأزرار الراديو . 

مثال : 

Glyph 

أنشأ 

مشروعا ً جديدا ً وأضف أليه أربع أزرار 

Speedbutton أضف لكل زر صورة عن طريق الخاصة 

وأعط جميع الأزرار الخاصة GroupIndex القيمة 

1، نفذ البرنامج ولاحظ أنه لا يمكن لأكثر من زر من هذه 

المجموعة أن يكون مضغوطا ً في نفس الوقت . 

: ( MDI و SDI 

أنواع النماذج ) 

: 

تقسم 

كل واجهات التطبيقات التي نصممها إلى نوعين هما 

واجهة الوثيقة الواحدة 

SDI أي إظهار نافذة واحدة 

. 

للبرنامج ‏،وواجهة الوثائق المتعددة : MDI 

وتعتمد على عدد من النوافذ الأبناء تظهر ضمن النافذة الأب 

يمكن تحديد نوع التطبيق الذي نصممه من خلال الخاصة FormStyle والتي تأخذ إحدى القيم التالية 

: 

FormStyle 

fsNormal 

fsMDIForm 

تنشئ شكلا ً وحيدا ً من النوع 

ملاحظات 

عملها 

SDI 

تنشئ شكلا ً أبا ً ‏(شكل رئيسي للتطبيق)‏ يمكن لهذا الشكل أن يحتوي على 

أشكال أخرى أثناء التنفيذ 

. 

تنشئ شكلا ً ولدا ً ، أي شكل ثانوي 

متعلق بشكل آخر 

تنشئ شكلا ً وحيدا ً يبقى ظاهرا ً في 

الأمام مهما كانت التطبيقات المفتوحة 

هذا الشكل سوف يحتوي من قبل 

الشكل الأب أثناء التنفيذ.‏ 

fsMDIChild 

fsStayOnTop 

: 

وحتى نشرح كيف يستطيع الشكل الأب من النوع 

MDI أن يحتوي شكلا ً ولدا ً سنقوم بما يلي 

1 ننشئ مشروعا ً جديدا ً ونعطي الخاصة Formstyle للنموذج Form1 القيمة . fsMDIForm 

. fsMDIChild 

2 نضيف نموذج جديد للمشروع ونعطي الخاصة 

Formstyle له القيمة 

3 نفذ البرنامج ولاحظ أن النموذج الثاني يظهر ضمن حدود النموذج الأول ولا يمكن تحريكه خارجه 

. 

25


: fsStayOnTop 


المثال التالي يشرح الخاصة 

Formstyle للنموذج Form1 القيمة ، fsStayOnTop نفذ البرنامج 

ابدأ 

مشروعا ً جديدا ً وأعط الخاصة 

ولاحظ أن النافذة ستظهر على الشاشة ولا يمكن لأي نافذة أخرى الظهور فوقها 

) حاول مثلا ً فتح نافذة جهاز 

الكمبيوتر أو نافذة سلة المحذوفات ولاحظ أن هذه النوافذ ستظهر خلف نافذة البرنامج 

. ( 

26


: 


إنشاء قوائم للنماذج 

تعطي القوائم طريقة سهلة للمستخدم للوصول إلى عدد من الأوامر وهناك نوعين من القوائم 

. ( Popup Menu 

) 

( Main Menu 

القائمة الرئيسية ) 

والقائمة المنبثقة 

: 

القائمة الرئيسية Menu) ( Main : 

للقائمة الرئيسية الشكل التالي 

عناصر القوائم ضمن شريط القوائم 

أوامر القائمة 

أمر يفتح قائمة فرعية 

مفتاح تسريع 

اختصارات لوحة المفاتيح 

شريط فاصل 

مثال : 

Standered 

1 ابدأ مشروعا ً جديدا ً وأضف إلى النموذج عنصر 

MainMenu من القائمة 

: 

( Menu Desigenr 

2 افتح مصمم القوائم ) 

عن طريق 

الخاصة 

Items من محرر الخواص أو الضغط مرتين على عنصر القائمة أو الضغط على العنصر بالزر 

اليميني 

Menu Item ) 

واختر 

Menu Desigenr من القائمة عند ذلك سيظهر مصمم القوائم وفيه عنصر قائمة 

. 

فارغ مضاء وستضاء أيضا ً الخاصة 

Caption ضمن محرر الخواص 

( 

: ( 

3 أعط الخاصة Caption القيمة ) 

‏&ملف 

ستلاحظ ظهور عنصر القائمة ملف وظهور خط صغير تحت 

. Caption 

الحرف م في كلمة ملف وذلك لأننا وضعنا الرمز & 

قبل هذا الحرف في الخاصة 

. ( 

) 

4 أعط الخاصة 

Caption للزر الظاهر تحت عنصر القائمة ملف القيمة 

‏&جديد 

. ( 

5 وسيظهر عندها زر جديد تحت الزر السابق أعطه ) Caption 

‏&فتح 

. 

6 أعط ال Caption 

للزر الأخير القيمة 

– وذلك لإظهار خط فاصل بين أوامر القائمة 

27


7 أعط ال Caption لآخر زر ناتج القيمة 


. 

28 

إغلاق & 

8 أختر عنصر القائمة الموجود بجانب العنصر ملف وأعطه ال 

9 أعط الزر الذي تحته ال Caption القيمة نسخ،‏ والخاصة 

بتنفيذ عملية الضغط على عنصر القائمة عند طريق استخدام لوحة المفاتيح 

10 أعط الزر التالي ال 

11 أعط الزر التالي ال 

إنشاء قائمة فرعية لقائمة رئيسية 

Caption ‏&تحرير . 

Shortcut القيمة Ctrl + c وتقوم هذه الخاصة 

. 

. Ctrl + X القيمة Shortcut قص ، والخاصة Caption 

. Ctrl + V القيمة Shortcut لصق ، والخاصة Caption 

: 

12 أعط الزر الذي يلي الزر لصق ال Caption نمط الخط ، اضغط عليه بزر الفأرة اليميني 

واختر Create SubMenu ستظهر عندئذ قائمة فرعية أعط فيها الأوامر الثلاث التالية 

غامق ، مائل ، تحته خط 

العمل مع عناصر القائمة 

: 

. 

: 

1 لحذف عنصر قائمة نختار أي عنصر ونضغط على الزر Delete أو نضغط بزر الفأرة الأيمن ونختار 

Delete من القائمة 

. 

2 

القائمة 

لإضافة عنصر جديد بين عنصرين نختار العنصر السفلي ونضغط بزر الفأرة الأيمن ونختار 

Insert من 

. 

3 

لتغيير موقع عنصر قائمة أو لإعادة ترتيب قائمة نسحب العنصر الذي نريد نقله 

العنصر ونبقيه مضغوطا ً 

) 

( 

ثم نحرر زر الفأرة ليتوضع في المكان الجديد 

. 

4 لإظهار عناصر قائمة متجاورين أفقيا ً نغير الخاصة Break لأمر القائمة المطلوب إلى 

نضغط بزر الفأرة على 

mbBreak 

أو إلى 

mbBarBreakوحيث تظهر الثانية خط عمودي بين الأوامر ، ولإعادة القائمة إلى الحالة الافتراضية نختار 

. mbNone 

حدث الضغط على عنصر قائمة 

: 

5 

تستخدم القوائم لتنفيذ تعليمات معينة ولكتابة هذه التعليمات نضغط على الأمر في القائمة أو نختاره ونضغط 

على الحدث OnClick من الصفحة Event في محرر الخواص 

. 

6 

غالبا ً ما تستخدم القوائم مع البرامج متعددة الوثيقة MDI ويمكن دمج قوائم النافذة الأبن مع نوافذ النافذة الأب 

وسندرس ذلك لاحقا ً.‏ 

القائمة المنبثقة 

: ( Popup Menu ) 

هي عبارة عن قائمة تظهر عند الضغط على زر الفأرة اليميني ويمكن ربطها مع النموذج أو أي عنصر آخر 

وتصميهما مشابه لتصميم القائمة الرئيسية 

مثال 

. Main Menu 

: 

أضف عنصري قائمة منبثقة PopUpMenu إلى مشروع جديد وأضف عنصر 

أضف إلى عنصر القائمة الأولى الأوامر التالية 

Panel كذلك . 

: 

الأمر الأول ، الأمر الثاني ، الأمر الثالث 

أضف إلى عنصر القائمة الثانية الأوامر التالية الرابع ، الخامس 

‏'لقد ضغطت على الأمر الأول من القائمة'‏ ‏'الأولى 

. 

. 

:


اضغط على الأمر الأول واكتب التعليمة التالية:‏ 

اضغط على الأمر الثاني واكتب التعليمة التالية 


Showmessage ( "you click the first button" ); 

: 

Showmessage ( "you click over the second button " ); 

اضغط على الرابع واكتب التعليمة التالية : 

Showmessage ("you click over the third button") 

: 

Showmessage ("you click over the fifth button" ) 

. PopUpMenu1 

اضغط على الخامس واكتب التعليمة التالية 

اختر الخاصة PopUpMenu التابعة للنموذج وأعطها القيمة 

اختر الخاصة PopUpMenu التابعة لل Panel وأعطها القيمة 


واضغط بزر الفارة الأيمن على كل من النموذج وال 

.PopUpMenu2 

. Panel 

إضافة ملاحظات إلى البرنامج 

29 

: ( Comments) 

يستخدم المبرمج الملاحظات ليتذكر عمل مقطع برمجي محدد ، وليترك فكرة عما يريد أن يطوره مستقبلا ً في 

سطور برمجية معينه 

. 

يمكن إضافة ملاحظات إلى البرنامج 

: 

1 } 

أكتب أي نص تريده بين هذين القوسين ، ويمكن أن يكون على عدة أسطر 

. { 

2 

3 // 

(* أكتب أي نص تريده بين إشارتي القوس والنجمة ، ويمكن أن يكون على عدة اسطر 

أكتب أي نص تريده بعد هذين الإشارتين ، النص على سطر واحد فقط 

لكتابة الملاحظات في اللغة العربية 

. (* 

. 

: 

properties 

القيمة 

اضغط بمؤشر الفأرة الأيمن في وسط محرر الشيفرة واختر من القائمة 

فتظهر النافذة Property Editors أختر منها الصفحة Display وغير الخاصة 

Editor Font إلى 

... Ok اضغط على ، Courier New ( Arabic) 

أنواع المعطيات 

تملك لغة باسكال الهدفية 

:Data Types 

(Object Pascal) 

: 

عدد ًا من أنواع المعطيات مسبقة التعريف بحيث تمكننا من التصريح 

مباشرة عن متحولات تنتمي لهذه الأنواع.‏ والجدول التالي يعرض أنواع المعطيات مسبقة التعريف في هذه اللغة:‏ 

الأنواع الصحيحة 

نوع المعطيات وصفها 

Integer 

Shortint 

Smallint 

هي أعداد بدون فاصلة عشرية.‏ تقع هذه الأعداد ضمن المجال من 

) 

(2147483647) 

، وتتطلب أربع بايتات من الذاكرة لتخزينها 

) 

2 بايت ( 

‏-‏‎2147483648‎‏)وحتى 

كان حجمه في تربو باسكال 

لذلك ليس من الضروري ان تتطابق أنواع المعطيات بين دلفي و تربو باسكال)‏ . 

هي أعداد بدون فاصلة عشرية.‏ تقع في المجال بين 

من الذاكرة 

(128-) 

. 

وهي أعداد بدون فاصلة عشرية وتقع في المجال بين ‏(-‏‎32768‎‏)وحتى 

وحتى(‏‎127‎‏)‏ وتتطلب بايتا ً واحدا ً 

(32767) 

وتتطلب



بايتين من الذاكرة لتخزينها 

هي أعداد بدون فاصلة عشرية،‏ 

وتقع في المجال بين(‏‎2147483648‎‏-)وحتى 

Longint 

‏(‏‎2147483647‎‏)وتتطلب أربع بايتات من الذاكرة لتخزينها 

هي أعداد بدون فاصلة عشرية وبدون إشارة تقع في المجال بين (0) 

وحتى 

‏(‏‎225‎‏)وتتطلب 

Byte 

بايتا ً واحدا ً من الذاكرة 

. 

هي أعداد بدون فاصلة عشرية وبدون إشارة وتقع في المجال بين 

‏(‏‎0‎‏)وحتى(‏‎65535‎‏)وتحتاج 

Word 

بايتين من الذاكرة.‏ 

وهي أعداد بدون فاصلة عشرية وبدون إشارة وتقع في المجال بين(‏‎0‎‏)‏ 

وحتى 

Cardinal 

(2147483647) وتحتاج أربع بايتات لتخزينها.‏ 

2*10 63 -1 

) 

( -2*10 63 

وهي أعداد بدون فاصلة عشرية وتقع ضمن المجال ) 

وحتى المجال 

Int64 

( وتحتاج إلى ثمان بايتات من الذاكرة 

الأنواع الحقيقية 

هي أعداد تحتوي فاصلة عشرية وجزءا ً عشريا ً فيه 

من 

) 8 ( أو ) 7 ( 

1.5* 10 -45 وحتى 

10*3.4 38 وتحتاج إلى أربع بايتات من الذاكرة 


) 12 ( أو ) 11 ( 

2.9*10 -39 إلى 

باسكال القديمة وإلا فإن استخدام 

أرقام وتقع في المجال 

وتقع ضمن المجال 

10*1.7 38 وهي تحتاج إلى ست بايتات من الذاكرة وتستخدم للتوافق مع نسخ 

Extended أو Double أولى 


) 16 ( أو ) 15 ( 

5.0*10 -324 إلى 

10*1.7 308 وتحتاج إلى ثماني بايتات من الذاكرة 


. 

) 20 ( أو ) (19 

3.4*10 -4932 وحتى 

10*1.1 4932 وتحتاج إلى عشرة بايتات من الذاكرة 


رقم وتقع في المجال 

وهي أعداد حقيقية ذات فاصلة ثابتة بخلاف باقي الأنواع ذات الفاصلة العائمة ، وهي ملائمة 

Single 

Real 

Double 

Extended 

Currency 

20 رقم ( 

) 

( 19 

للحسابات المالية وتملك جزءا ً عشريا ً من ) 

أو 


922337203685477.5808- وحتى 922337203685477 ويتطلب تخزينها ثمان بايتات 

. 


أو ) (19 

) 20 ( رقم وتقع في المجال 

-9.2*10 18 وحتى 

10*9.2 18 وتحتاج إلى ثمان بايتات من الذاكرة 

. 

Comp 

30


True أو False ويحتاج 


الأنواع البوليانية 

: 

Boolean 

هو نوع منطقي يمكن أن تأخذ المتحولات المنتمية إليه إحدى قيمتين 

إلى بايت واحد من الذاكرة 

. 

ByteBool مثل نوع Boolean يستخدم للتوافق مع لغات أخرى مثل C ويحتاج إلى بايت واحد من 

الذاكرة 

مثل نوع 

مثل نوع 

الذاكرة 

Boolean يستخدم للتوافق مع لغات أخرى مثل C ويحتاج إلى بايتين من الذاكرة 

Boolean يستخدم للتوافق مع لغات أخرى مثل C ويحتاج إلى أربع بايتات من 

Wordbool 

Longbool 

الأنواع الرمزية : 

AnsiChar هو نوع رمزي يحتاج إلى بايت واحد من الذاكرة لتخزين شيفرة أسكي المقابلة لرمز معين 

) Unicode 

. Character 

WideChar هو نوع رمزي يحتاج إلى بايتين من الذاكرة لتخزين رمز بالشيفرة الموحدة 

الشيفرة الموحدة تم اعتمادها منذ فترة في أنظمة التشغيل Windows 2000,Xp وهي عبارة 

تمثيل يضم جميع لغات العالم 

) 

عدى لغات شرق آسيا 

( 

ويحتاج كل رمز فيها إلى 

هو نفس النوع AnsiChar تحت بيئة Windows 98,Me ولكنه قد يشير إلى 

16 بت . 

WideChar 

Char 

في بيئة . Windows 2000,Xp 

2 جيغا 

أنواع السلاسل الرمزية 

: 

AnsiString 

هو عبارة عن مصفوفة من الرموز غير محدودة الطول يبدأ حجمها 

بايت 

‎4‎بايت وينتهي ب 

وتبدأ رموزها من الحجرة الأولى 

) 1 

لا وجود للحجرة 

. ( 0 

هو عبارة عن مصفوفة من الرموز حدها الأقصى 256 رمز ويأخذ حجمها بين 

2 بايت و 

Sortstring 

( 0 

256 بايت ويخزن في الحجرة الأولى منها ) 

الحجرة رقم 

طول المصفوفة 

هو عبارة عن مصفوفة من الرموز بالشيفرة الموحدة Unicode يبدأ حجمها ‎4‎بايت وينتهي 

ب 2 جيغا بايت وتبدأ رموزها من الحجرة الأولى 

) 1 

لا وجود للحجرة 

بشكل افتراضي تعريف متحول من هذا النوع يكافئ تعريف متحول 

. ( 0 

AnsiString أو 

WideString 

String 

WideString حسب نظام التشغيل ، ويمكن أن يشير 

إلى 

Shortstring في حال أضفنا 

{$H-} 

التعليمة التالية في بداية القسم implementation 

31

؛)‏ 


السلاسل الرمزية المنتهية بلا شيء 


. ( Null ) 

PAnsiChar 

هو عبارة عن نوع معطيات مؤشر يؤشر إلى على سلاسل رمزية منتهية برمز 

ورموز هذه السلسة من النوع 

Null 

AnsiChar 

PWideChar 

هو عبارة عن نوع معطيات مؤشر يؤشر إلى على سلاسل رمزية منتهية برمز 

ورموز هذه السلسة من النوع 

Null 

WideChar 

Pchar 

المؤشر 

نفس النوعين السابقين ويؤشر على النوع 

Char 

Pointer 

النوع المتنوع 

وهو مؤشر غير محدد النوع أي يؤشر إلى أي نوع من المعطيات ‏،ويحتاج إلى أربع حجرات 

. من الذاكرة 

( المتغير ) 

Variant 

أمثلة 

نوع متغير متوافق مع جميع انواع المعطيات ويمكن أن يخزن قيما ً وفق أي نوع 

. 

: 

1 النوع 

: Boolean 

أنشأ مشروعا ً جديدا ً وأضف إليه زر 

Button وعنصري Edit وأكتب التعليمات التالية 

var a:Boolean; 

i,j:integer; 

begin 

i:=strtoint(edit1.text); 

j:= strtoint(edit2.text); 

a:= i>j; 

) ‏'العدد الثاني أكبر من ) else showmessage ‏'العدد اللأول أكبر من الثاني')‏ if a then showmessage 

2 النوع 

: Shortstring 

أضف زر وعنصري Label و عنصر Edit إلى مشروع جديد 

يقوم التابع 

Word بإعادة شيفرة الأسكي لرمز معين مثلا ً 

السلسة مخزن كرمز وليس كرقم 

الأول'‏ 

واكتب التعليمات التالية عند الضغط على الزر 

: 

: 

var a:shortstring; 

begin 

a:=edit1.text; 

form1.Caption := inttostr(word(a[0]); 

if word(a[0]) >= 4 then 

label1.Caption := a[3]+a[4]; 

Word('A') يساوي 

. 

65 واستخدم هذا التابع لأن طول 

32



الجلسة 

السادسة 

2 النوع : String 

للحصول على طول سلسلة رمزية نستخدم التابع Length('s') حيث 

S هو السلسة المطلوب حساب طولها 

مثال : 

أضف زر وعنصر 

Edit إلى مشروع جديد واكتب التعليمات التالية عند حدث الضغط على الزر 

: 

var a:string; 

begin 

a:=edit1.text; 

label1.Caption := inttostr(length(A); 

label2.Caption :=inttostr(length('asdfgh'); 

3 النوع 

label و 

: Pchar 

Var P:pchar; 

لنفرض أنه عرفنا متحول : Pchar 

P من النوع 

ثم كتبنا في القسم Begin التعليمة التالية 

p:= 

هذا يكافئ كتابة التعليمات التالية : 

'Hello 

;Form1.Caption := p 

s: string; 

begin 

s:= 'HELLO ALL......'#0 ; 

p:= @s[1]; 

form1.Caption := p; 

: 

All…….' 

حيث #0 هو رمز الأسكي ل Null ووضعه هنا ينهي السلسلة 

. Null ب s 

@ يعيد عنوان موقع الذاكرة المخزن فيه الحرف الأول من السلسلة . s 

: Variant 

( 

4 النوع المتغير ) 

المتنوع 

var v1,v2,v3 :variant; 

begin 

v1:= 5; 

v2:= 20; 

v3 := v1+v2 ; 

form1.Caption := v3; 

v1:= 5; 

v2:= 'asd'; 

v3 := v1+v2 ; 

اكتب التعليمات التالية في حدث الضغط على زر 

التعليمات التالية تعطي رسالة خطأ من النوع 

ولكن التعليمات التالية لا تعطي هذا الخطأ 

: EvariantError 

: 

: 

v1:= 5; 

v2:= '123'; 

v3 := v1+v2 ; 

33



لماذا لا نستخدم النوع 

34 

Variant دائما ً : 

هذا لاحظ أن 

المتحول ضد التوجه العام للغة باسكال و ضد أعراف 

البرمجة الجيدة،‏ هذا النوع يتم فحص نوعه و يتم حسابه في وقت التشغيل،‏ والمجمع compiler لن يحذرك من 

احتمالات الأخطاء،‏ و التي لن يستدلّ‏ عليها إلا بعد اجراء اختبارات مكثفة،‏ بصورة عامة،‏ يمكنك اعتبار أجزاء 

الترجمة التي تستخدم 

هذا النوع هي ترجمة فورية 

،interpreted لأنه،‏ مثل أي 

لغة تفسيرية،‏ العديد من 

العمليات لا يمكن التقرير بشأنها وحل ّها إلا في وقت التشغيل،‏ هذا يؤثر بصفة خاصة في سرعة التنفيذ.‏ 

المتحولات العامة والخاصة 

: 

يوجد في القسم Interface لكل وحدة قسم خاص بالمتحولات المستخدمة داخل الوحدة نفسها ويدعى 

private والمتحول المعرف في هذا القسم يمكن استخدامه في جميع إجراءات وتوابع هذه الوحدة لكن لا 

يمكن الوصول إليه من خارجها 

. 

وهناك قسم آخر يشبه القسم السابق ويختلف عنه بإمكانية الوصول إليه من وحدات خارجية مرتبطة مع الوحدة 

المعرف فيها هذا المستخدم ويدعى 

مثال 

. Public 

: 

أنشئ مشروعا ً جديدا ً وأضف إليه زرا ً وعرف في القسم Private المتحول التالي 

وعرف في القسم 

Public المتحول التالي 

private 

I :integer; 

public 

x:integer; 

: 

: 

أذهب إلى الحدث OnCreate الخاص بالنموذج واكتب فيه التعليمات التالية 

الحدث 

I := 4 ; X := 24; 

: 

) X,I 

OnCreate يتم تنفيذه عند يقوم ويندوز بإنشاء النافذة والتعليمات السابقة تعطي قيم ابتدائية للمتحولين 

لاحظ استخدام هذين المتحولين ضمن الإجراء 

يمكن استخدامها ضمن أي جزء من البرنامج 

الزر 

procedure TForm1.FormCreate أي 

. ( 

: 

أضف نموذجا ً جديدا ً وأضف إليه زرا ً الآن اذهب إلى النموذج الأول واكتب التعليمة التالية في حدث الضغط على 

نفذ البرنامج حتى يتم ربط الوحدة الثانية مع الأولى بشكل آلي 

form2.Show ; 

) 

في حدث الضغط على الزر الموجود في النموذج الثاني أكتب التعليمة التالية 

أو اكتب أسم الوحدة الأولى في القسم 

. ( Uses 

: 

Form2.Caption := inttostr ( Form1.X) ; 

نفذ البرنامج لربط الوحدات مع بعضها آليا ً ثم نفذ البرنامج،‏ الزر في النافذة الأولى سيقوم بإظهار النافذة الثانية،‏ 

والزر في النافذة الثانية سيأخذ القيمة X من الوحدة الأولى ويضعها في عنوان النافذة 

هناك طريقة أخرى لتعريف متحول خاص بالوحدة عن طريق تعريفه بالقسم 

ويتميز تعريف المتحول هنا بإمكانية إعطاء قيمة مبدئية له مباشرة 

Implementation 

. 

Var قبل 

.

: 


مثال عرف المتحولات التالية في القسم 

الثوابت 

قبل 


Implementation Var 

Y: string = 'abcd'; F : double = 55; 

: Const 

الثابت هو حجرة من الذاكرة تحمل قيمة معينة طوال فترة تنفيذ البرنامج 

يمكن تعريف الثوابت خارج القسم 

في القسم 

: 

Type قبل 

Implementation فتكون ثوابت عامة ، ويمكن تعريفها 

Implementation وتكون ثوابت خاصة بالوحدة ‏.ويكون تعريفها بالطريقة التالية 

ويمكن تعريفها بطريقة أخرى 

الإجراءات والتوابع 

: 

Const 

pi=3.14; 

pi2=22/7; 

programmer = 'Khaled'; 

Const 

Pi :Real = 3.14; 

pi2:single =22/7; 

programmer :string= 'Khaled'; 

: 

: 

مبدئيا هي سلسلة من التعليمات تحت اسم خاص،‏ و التي يمكن تنفيذها في كل مرة باستخدام اسمها،‏ بهذه الطريقة 

تتجنب معاودة كتابة التعليمات مرة بعد أخرى،‏ فتتحصل على مجموعة واحدة من التعليمات يمكنك استدعائها في 

كامل البرنامج.‏ 

في دلفي الإجرائية routine 

يمكن 

افتراضها بشكلين:‏ 

إجراء procedure 

و تابع 

function 

نظريا،‏ يستخدم الإجراء عندما نريد من الحاسب القيام بعمل ما دون أن يعيد قيمة معينة ‏،والتابع هو عبارة عن 

إجراء ينفذ مجموعة من التعليمات ليعيد قيمة معينة يطلبها المبرمج 

،result قيمة مسترجعة،‏ بينما الإجراء ليس كذلك،‏ كلا 

متحولاتparameters 

، من أنواع بيانات 

تعطى لها . 

عمليا ً،‏ الفرق عموما بين التوابع و الإجراءات محدود جدا:‏ يمكنك 

‏(التي قد تكون رمز خطأ اختياري أو 

. 

هذا الفرق يؤك ّده 

حقيقة أن التابع له نتيجة 

النوعين من الاجرائيات يكمن أن يكون لهما عدة 

استدعاء تابع لإنجاز عمل ما ثم تتخط ّى النتيجة 

ما شابه)‏ كما بامكانك استدعاء إجراء يمرر نتيجته ضمن متحولاته.‏ 

procedure Hello; 

begin 

35 

وهذا مثال لتعريف إجراء : 

وهذا مثال لتعريف تابع 

‏;('مرحبا ً بكم في دلفي')‏ ShowMessage 

end; 

function Double (Value: Integer) : Integer; 

begin 

Double := Value * 2; 

end; 

:


Implementation 


تكتب هذه الإجراءات أو التوابع في القسم 

التالية في حدث الضغط على الزر الأول 

ولاستدعائها،‏ أضف زرين واكتب التعليمة 

Hello 

: 

Form1.caption := inttostr( Double(6)); 

: 

والتعليمة التالية في حدث النقر على الزر الثاني 

المتحولات داخل إجراء أو تابع : 

1 الحالة العامة 

Procedure ProcedureName ( var1,var2,var3: anytype ; 

var4,var5:any type) ; 

Begin 

…. 

… 

end; 

Procedure Add( x,y : integer) ; 

Begin 

Y:= x+y ; 

End; 

: 

var i,j:integer; 

begin 

i:=1;j:=2; 

add(i,j); 

label1.Caption := inttostr(i); 

label2.Caption := inttostr(j); 

. 

x إلى 

مثال : 

أضف زر وعنصري Label واكتب فيه التعليمات التالية 

يقوم هذا البرنامج باستدعاء التابع Add الذي يقوم بإضافة 

2 المتحولات 

y ولكنه لا يعيد أي نتيجة 

: ( ) 

Procedure ProcedureName ( var1,var2,var3: anytype ;var 


Begin 

…. 

… 

end; 

مثال 

الوسطاء 

المتغيرة 

Add ليصبح كتالي ونفذ البرنامج 

procedure add(x:integer;var y:integer); 

begin 

y:= x+y; 

end; 

. j 

x إلى 

: 

عدل الإجراء 

يقوم البرنامج باستدعاء الإجراء 

Add الذي يقوم بإضافة 

y ولكنه يعيد قيمة y وبالتالي تتغير قيمة 

36




37 

: 

أ يمكن استدعاء الإجراء 

Add ( ولكن لا يمكن استدعائه بالشكل Add( (j,1 المعدل بالشكل Add 

(2,I أو بالشكل (1,2 Add( وذلك لأن الوسيط الثاني لهذا الإجراء يجب أن يكون متحول حتى تتم إعادة 

. النتيجة فيه 

ب قد يتبادر إلى الذهن هنا السؤال التالي بما أنني أريد من الإجراء أن يعيد قيمة ما فلماذا لا أستخدم تابع؟ 

والجواب هنا أنه بهذه الطريقة يمكن أن يعيد الإجراء أكثر من قيمة بينما يعيد التابع قيمة وحيدة،‏ على كل حال هذه 

الطريقة يمكن أن تستخدم مع الإجراءات والتوابع على حد سواء أي انه يمكن أن نعرف تابع يعيد قيمة ما عن 

طريق إسمه وقيم أخرى عن طريق متحولاته 

3 الوسطاء الثابتة 

( . وسطاءه ) 

: 

Procedure ProcedureName ( const var1,var2,var3: anytype ; 


Begin 

…. 

… 

end; 

عندما لا نكون بحاجة لتغير قيمة الوسيط ضمن التابع يمكن أن نعرفه من النوع الثابت 

في زيادة سرعة البرنامج 

. 

عدل التابع Add ليصبح بالشكل 

نفذ البرنامج ولن تلاحظ أي فرق في النتائج 

Const ولا يفيد ذلك إلا 

: 

procedure add(const x:integer;var y:integer); 

begin 

y:= x+y; 

end; 

أما إذا عدل البرنامج ليصبح بالشكل 

procedure add(const x:integer;const y:integer); 

begin 

y:= x+y; 

end; 

فسيعطي تنفيذ البرنامج رسالة الخطأ التالية 

Left side cannot be assigned to : 

. 

أنه لا يمكن إعطاء قيمة ل Y لأنها من النوع الثابت 

5 إجراءات القيمة الافتراضية 

. 

: 

يمكن إعطاء وسيط ما قيمة إفتراضية والاستغناء عن تمرير قيمه له عند الطلب 

وتعني 

: 

Procedure ProcedureName(var1,var2,var3: anytype ; var4: 

anytype = Value ; var5:anytype= value) ; 

Begin 

…. 

… 

end;



مثال : 

عدل الإجراء 

Add ليصبح بالشكل 

الآن يمكن أن نطلب الإجراء Add بأحد الشكلين التاليين 

procedure add(var x:integer;var y:integer=5); 

begin 

x:= x+y; 

end; 

Add ( I,j) or Add( I ) 

: 

في الحالة والثانية سيقوم الإجراء باستخدام القيمة الافتراضية المعطاه في تعريف الإجراء 

ملاحظة 

. 

: 

الوسطاء الافتراضية يجب أن تكون آخر الوسطاء المعرفة في التابع 

4 تعريف تابع فوق تابع أو إجراء فوق إجراء 

مثال 

: overload 

تمكننا هذه الطريقة من تعريف مجموعة توابع لها نفس الأسم ولكل منها وظيفة محددة 

. 

: أضف ثلاثة أزرار وعنصري Label إلى مشروع جديد واكتب الإجراءات التالية 

procedure change( i :integer; var s :string) ; overload; 

begin 

s:=inttostr(i); 

end; 

procedure change( i:tdatetime; var s :string) ; overload; 

begin 

s:= datetostr(i) 

end; 

procedure change( i:tdatetime; var s1,s2 :string) ; 

overload; 

begin 

S1:= datetostr(i); 

S2 := datetostr( i+1); 

end; 

Var a:string ; 

begin 

change ( 5,a) ; 

Label1.Caption := a ; end; 

Var B:String ; begin 

Change ( date,b); 

Label2.Caption := b; End; 

Var A,B:string; begin 

في حدث الضغط على الزر الاول أكتب التعليمة التالية 

: 

وفي حدث الضغط على الزر الثاني أكتب التعليمات التالية 

وفي حدث الضغط على الزر الثالث أكتب ما يلي 

: 

: 

38


6 متحول النتيجة 


Change ( date,a,b); 

Label1.Caption := A; Label2.Caption := B; end; 

: Result 

Result هو عبارة عن متحول افتراضي في بيئة دلفي توضع قيمة التابع 

يمكن كتابة التابع Add بأحد الشكلين 

Function add( x,y:integer) : 

integer; 

Begin 

Add := x+y; 

End; 

: 

: 

Function add( x,y:integer) : 

integer; 

Begin 

result := x+y; 

End; 

جعل الإجراء مرئي من قبل وحدات أخرى 

: 

نعلم أنه كي نستطيع استدعاء متحول أو تابع من وحدة إلى أخرى يجب أن تكون موجودة في القسم 

. Interface 

1 وضع أسم الإجراء في القسم 

ثم نكتب الإجراء مع جسمه 

Interface قبل Var مثلا ً : 


( Begin… end ) 

في القسم 

: Implementation 


Begin 

Y:= x+y ; 

End; 

بهذه الطريقة نستطيع طلب الإجراء من أي وحدة أخرى مرتبطة بالوحدة التي عرف في الإجراء عن طريق ذكر 

. اسمه فقط 

2 يمكن أن نضيف اسم الإجراء مع وسطائه إلى القسم 

مثال أضف السطر التالي في القسم 

. Type 

Private 


Type قبل 

: 

على أن نعرف الإجراء Add في القسم Implementation بالشكل التالي 

: 

Procedure Tform1.Add( x,y : integer) ; 

Begin 

Y:= x+y ; 

End; 

أضف وحدة أخرى إلى البرنامج وأطلب منها التابع Add العائد لل Form1 بالشكل التالي 

: 

Form1.add ( x,y ) ; 

39


التوابع ذات الوسطاء المتعددة 

الجلسة السابعة 


: 

Procedure procedureName ( var parameter1 : array of anytype 

; par2,par3:anytype ); 

Begin 

…………………… 

…… 

end; 

يعرف في هذه الإجراءات 

مثال 

40 

( التوابع ) 

: 

استخدمنا هنا التابع 

وسيط على أنه من نوع مصفوفة غير محدودة العناصر 

Function add( a:array of integer): string ; 

var h,i,s : integer; 

begin 

s:=0; 

h := high(a); 

for i:= 0 to h do s:= s + a[i]; 

result:= inttostr(s); 

end; 

High الذي يعيد رقم آخر عنصر في مصفوفة 

) 

إي إذا عرفنا مصفوفة ما بالشكل 

[3..0] سيعيد التابع القيمة 3 وإذا عرفنها بالشكل [3..2] سيعيد القيمة 3 وإذا عرفت بالشكل 

[22..88] سيعيد . 88 

في حدث الضغط على زر أكتب التعليمات التالية 

: 

form1.Caption := add([1,3,4,89]) 

سيقوم البرنامج بجمع الأعداد ووضع الناتج في عنوان النافذة 

ملاحظة 

) المستخدم 

: 

شريط العمل 

المصفوفات المتغيرة تبدأ دائما ً بالعنصر رقم صفر أي 

لذلك بدأت الحلقة المستخدمة في التابع 

Add من الصفر 

. 

: ProgressBar 

هو شريط يؤشر إلى كمية إنجاز العمل حتى لحظة معينة 

برنامج 

مثال 

أضف 

) 

[0]A وتنتهي بحسب العناصر التي أدخلها 

نفس الشريط الذي يظهر عند بدأ تنصيب 

Setup أي 

( 

كما يمكن استخدامه لإظهار قيمة معينة 

. 

Progress Bar من الصفحة 

: 

أعط الخاصة 

ل 

Win32 وTimer إلى مشروع جديد 

: 

Interval 

if progressbar1.Position < 100 then 

progressbar1.Position := progressbar1.Position+1; 

للمؤقت القيمة 100 واكتب في الحدث OnTimer التعليمات التالية 

: 

ProgressBar 

الخصائص المهمة التالية 

: 

1 : Position 

تعطي موقع الشريط الأزرق داخل 

ProgressBar 

وتأخذ قيمة بين 

Min و 

. Max


تحدد أصغر قيمة يمكن أن تأخذها الخاصة 


. Postion 

41 

2 : Min 

3 : Max 

تحدد أكبر قيمة يمكن أن تأخذها الخاصة 

. Postion 

4 : Step 

progressbar1.Position := progressbar1.Position+1; 

طول الخطوة وتحدد المسافة التي يقطعها الشريط الأزرق في كل مرة تنفذ فيها التعليمة 

: 

5 : Smooth 

عند إعطاء القيمة 

True لهذه الخاصة يظهر الشريط الأزرق بدون تقطيعات 

. 

6 

عمودي 

orientation ‏:عند إعطاء القيمة 

ProgressBar ال ، pbVertical 

) 

شريط القيمة 

لملاحظة ذلك أعط الخاصة 

ProgressBar ل Height 

قيمة كبيرة 

100 مثلا ً ( 

: TrackBar: 

يعمل بشكل 

يشبه هذا الشريط الشريط السابق ولكنه يختلف عنه بإمكانية تحريك مؤشره بواسطة الفأرة ومكان المؤشر سيعيد 

قيمة ليستخدمها البرنامج 

مثال : أضف إلى المشروع السابق TrackBar من الصفحة Win32 وأعط الخاصة 

والخاصة 

Max القيمة 1000 

Min القيمة 1 

واكتب في الحدث 

Onchange التعليمة التالية 

timer1.Interval := trackbar1.Position ; 

تقوم هذه التعليمة بتغير الخاصة 

عدل التعليمات الموجودة في 

Interval كلما تغير موقع مؤشر ال 

ontimer لتصبح بالشكل 

trackbar1 

: 

if progressbar1.Position < 100 then 

progressbar1.Position := progressbar1.Position+1 

else progressbar1.Position := 0; 

نفذ البرنامج وحرك المؤشر لتلاحظ كيف يمكن أن نتحكم بسرعة المؤقت أثناء التنفيذ.‏ 

التعامل مع الحلقات 

: 

لن أشرح هنا الحلقات ولكن سأتعرض لبعض الحلقات ومشاكلها 

حلقة التأخير الزمني 

: 

: 

حلقة التأخير الزمني يمكن تمثيلها بأي نوع من الحلقات 

عمل ما لفترة زمنية بسيطة مثال 

في حدث الضغط على الزر 

( For ,Repeat ,While 

) 

أضف زر و : 

progressbar 

: 

نلاحظ أن مؤشر الخط الأزرق قد تحرك بسرعة كبيرة 

التعليمات السابقة كما يلي:‏ 

والهدف منها تأخير 

إلى مشروع جديد واكتب التعليمات التالية 

var i :integer; 

begin 

for i := 0 to 100 do 

progressbar1.Position := i 

( غير ملحوظة ) 

لذلك نضيف حلقة للتأخير الزمني 

عدل ) 

var i,j :integer; 

begin 

for i := 0 to 100 do begin 

for j := 0 to 90000 do ;


نلاحظ أن الحلقة 

الوقت 


progressbar1.Position := i 

end; 

. 

; do for j =: 0 to 10000 لا تنفذ شيء لكنها تعيق تنفيذ التعليمة التالية بعض 

أضف الآن إلى البرنامج السابق زر جديد واكتب في حدث الضغط عليه التعليمة التالية 

حاول الضغط على الزر الثاني أثناء تنفيذ الحلقة 

عليه حتى ينتهي تنفيذ الحلقة 

: 

Form1.color := clred; 

) 

إضغط على الزر الأول ثم الثاني 

( 

. 

عندما نستخدم المؤقت لتحريك ال 

ولاحظ أنه لا يمكن الضغط 

progressbar لا يؤثر ثلك على بقية البرنامج ولكن عند استخدام 

الحلقات لا يمكن تنفيذ حدث جديد حتى الخروج من الحلقة ولحل هذه المشكلة أضافت دلفي التعليمة التالية في حلقة 

التأخير الزمني 

تقوم هذه الرسالة بإعطاء البرنامج فرصة لتنفيذ تعليمات أخرى خارج الحلقات 

الثاني وتنفيذ التعليمات المرتبطة به على الرغم من أن الحلقة تعمل 

For j := 0 to 90000000 do 

Application.ProcessMessages ; 

) 

. ( 

أي يمكنك الآن الضغط على الزر 

42


بعض التوابع المعرفة في دلفي 

أً‏ توابع التعامل مع الأعداد 

الجلسة الثامنة 


43 

: 

: 

معظم هذه التوابع موجودة في الوحدة Math لذلك يجب إضافتها إلى القسم Uses للوحدة التي تستدعي هذه 

. التوابع 

Abs(x) 

أسم التابع 

يعيد القيمة المطلقة لعدد معطى 

x 

Exp(x) 

يعيد التابع القيمة 

e X 

Floor(x) 

يعيد أقرب عدد طبيعي أقل أو يساوي 

عمله 

Floor (2.8) = 2; : مثال X 

Floor(-2.8) = -3 

Frac(x) 

يعيد الجزء العشري للعدد 

Frac(234.987)= 0.987: مثال X 

Int(x) 

تعيد القسم الطبيعي من عدد حقيقي 

Int(234.987)= 234 

X Y مثال 

intpower(2,3)=8;intpower(2,2)=4 

IntPower(X,y) 

Isinfinite(X) 

يعيد القيمة 


الأسفل 

True 

( 

X*2 Y LdExp(x,y) 

Ln(x) 

يعيد التابع القيم 

في حال كان 

يعيد اللوغاريتم الطبيعي للعدد 

X يسعى إلى اللانهاية .( لا حظ المثال في 

Len(e) = 1 : X 

Log10(X) 

يعيد اللوغاريتم العشري للعدد 

Log10(10) = 1 : X 

LogN(Y,X) 

يعيد لوغاريتم القيمة 

X بالنسبة للأساس 

Y 

Max(X,Y) 

يعيد قيمة الرقم الأكبر 

Max(3,6) = 6 

: 

Min ( X,Y) 

يعيد قيمة العدد الأصفر 

Min(3,6) = 3: 

Pi 


3.14159265358932358 

Poly ( x,y:array 

of double) 

يعيد قيمة السلسة 

المثال في الأسفل 


يعيد تدوير العدد الحقيقي 

Y[0]*X 0 +Y[1]*X 1 +…..+Y[n]*X n لاحظ 

X Y Power ( X,Y) 

Round ( 1.5) = : X 

Round ( X) 

2;Round(1.4)=1;Round(1.6) =2 

Sing(X) 


1 إذا كان 

X موجبا ً و 

1- إذا كان X سالبا ً و 0 إذا كان 

X=0 

Sqr(x) 

X 2 يعيد القيمة 

Sqrt(x) 


X 

Trunc(x) 

يعيد الجزء الطبيعي من العدد 

Trunc(5.022) = 

: X


مثال 


5;Trunc(5.999)=5 

1 Isinfinite(X) : 

: 

أضف زر واكتب في حدث الضغط عليه التعليمات التالية 

: 

var v: variant; 

x:double; 

begin 

x:=1/0; 

v:= isinfinite(x); 

if v then 

form1.Caption := 'true'; 

لاحظ أننا وضعنا في 

X القيمة 

1/0 والتي لن تقبل في حال كون X من النوع 

. Integer 

2 double) : Poly ( x,y:array of 

أضف زر واكتب في حدث الضغط عليه التعليمات التالية 

: 

var v: variant; 

begin 

v:= poly (4,[2,3,4,5]); 

form1.Caption := v; 

2ً توابع قلب وتحويل الأنواع : ترفض لغة دلفي إلحاق الأنواع المختلفة بعضها ببعض لذلك وجدت بعض 

التوابع والإجراءات التي تقوم بقلب بين الأنواع التي لها نفس الحجم ومن هذه التوابع 

: 

Integer ('A') = 65; Integer ('a') = 97; 

Char ( 97 ) = 'a'; Char (48) = '0'; char (65)= 'A'; 

Boolean(0) = false; Boolean ( 1 ) = true; 

كما يمكن التحويل بين الأنواع المختلفة في الحجم بواسطة توابع معرفة مسبقا ً 

الجدول التالي يوضح بعض توابع تحويل الأنواع 

أسم التابع 

: 

: 

Strtoint64 

يشبه التابع 

عمله 

Strtoint ولكنه يحول النص المعطى إلى النوع 

int64 

Floattostr(X) 

يحول العدد الحقيقي 

X إلى نص 

: 

Floattostr(5.5e3)='5500';Floattostr(5.5)='5.5' 

FloattostrF(x,,,,) 

يحول العدد الحقيقي 

X إلى نص ولكن بشكل محدد 

) 

أنظر الأمثلة في الأسفل 

. ( 

Strtofloat(s) 

يحول النص 

S إلى رقم ذو فاصلة عائمة 

Strtofloat(3.3)= 3.3; : 

Strtofloat( 3.3e4)=33000 

Strtocurr(S) 

يحول هذا التابع النص 

S إلى رقم من النوع عملة 

. 

Inttohex(X,y) 

يحول هذا التابع العدد الصحيح X إلى عدد ست عشري وتمثل y عدد أرقام النتيجة لا 

: حظ المثال 

44


أمثلة 

التابع 


function FloatToStrF(Value: Extended; Format: : 

TFloatFormat ; Precision, Digits: Integer):string ; 

1 

: 

يظهر هذا التابع العدد الحقيقي 

Format الذي يأخذ عدة قيم سيتم شرحها مع الأمثلة 

مثال 

: 

: ( 1 ) 

1 Format = FFGeneral 

Value بعدة طرق حسب الوسطاء المعطاه في التابع وخاصة الوسيط 

تقوم هذه التعليمة بتحويل العدد Value إلى أقرب عدد بالفاصلة الثابتة أو العائمة مع إزالة كافة الأصفار على 

يسار الفاصلة وتتأثر هذه الخاصة بالقيمة Precision التي تحدد العدد الأعظمي لأرقام النتيجة ‏.والقيمة 

Digits التي تحدد عدد أرقام الأس 

أضف إلى حدث الضغط على زر التعليمة التالية 

: 

form1.caption := floattostrf(55.2723e+3, ffgeneral,5,2); 

سيعيد هذا التابع القيمة 

الرقم 

بالشكل 

55272 متجاهلا ً القيم بعد الفاصلة لأنه الوسيط 

Precision يساوي ، 5 غير الآن 

5 إلى 

: 

7 ولاحظ تغير النتيجة إلى الشكل 

. 527e4 

2 Format = FFExponent 

، 55272.3 غير الرقم السابق إلى 

4 ولاحظ ظهور النتيجة 

ستقوم التعليمة بتحويل العدد الحقيقي إلى عدد ذي فاصلة عائمة من الشكل (ddd.edd) وتحدد الخاصة 

Precision هنا عدد أرقام النتيجة والقيمة 

Digits تتراواح بين 4..0 وتحدد عدد أرقام الأس 

. 

form1.caption := floattostrf(52.34, ffexponent,8,3); 

سيعيد التابع النتيجة 

001+5.2340000e في حال تغير الرقم 

8 إلى 4 والرقم 3 إلى 

2 تصبح النتيجة 

: 

5.234E+01 

3 Format = fffixed 

ستقوم التعليمة بتحويل العدد الحقيقي إلى عدد ذو فاصلة ثابتة حيث يحدد عدد الأرقام بعد الفاصلة بالقيمة 

: Digits 

form1.caption := floattostrf(100.36, fffixed,6,1); 

سيعيد التابع القيمة 

في حال كانت قيمة 

100.4 لأنه لإظهار رقم واحد بعد النتيجة قام التابع بتدوير النتيجة 

. 

Precision أصغر من عدد أرقام العدد سيعيد التابع النتيجة بالفاصلة العائمة 

. 

4 Format = ffNumber 

تشبه الحالة السابقة ولكن مع إظهار فواصل بين الآلاف مع تقريب النتيجة 

. 

form1.caption := floattostrf(195784430.36, ffnumber,10,5); 


. 195,784,430.4000 

45



5 : Format = ffcurrency 

سيعيد التابع نفس القيمة السابقة ولكن مع ذكر ل.س بجانب الناتج 

طريق اعدادات إقليمية الموجودة في لوحة التحكم 

ل.س 

) 

يعيد التابع اسم العملة المحددة في الجهاز عن 

. ( 

form1.caption := floattostrf(195784430.36, ffcurrency,10,5); 

195,784,430.4000 

التابع(‏Inttohex(X,Y : 

: مثال 

inttohex(2345,1); سيعيد القيمة 929 التي تكافئ العدد العشري 

2345 

لا حاجة لتحويل العدد الست عشري إلى عدد طبيعي في دلفي لأنه يمكن إلحاق الإعداد الست عشرية مباشرة في 

المتحولات الطبيعية Integer أو الحقيقية 

... ) $929 I:= تكافئ I:=2345 و J:=$F تكافئ 

( J=15 

هناك آلاف التوابع والإجراءات المعرفة في دلفي ولا يمكن شرحها كلها لذلك سنتعرف الآن على طرق البحث عن 

تابع ملفات في ملفات المساعدة الموجودة في دلفي 

الحالة الأولى 

: 

: 

التابع معروف ولكننا بحاجة إلى تذكر الوسطاء التابعة له 

: 

اكتب إسم التابع في أي مكان في محرر الشيفرة وإضغط F1 سيظهر شرح كامل للتابع باللغة الإنكليزية ، إذا كان 

لأحد الوسطاء عدة قيم 

) 

كما هي الحالة في الوسيط 

( Floattostrf للتابع Format 

الوسيط باللون الأخضر يمكننا بالضغط عليه الانتقال لصفحة تشرح هذه القيم 

الحالة الثانية 

. 

: 

التابع غير معروف ولكننا نتذكر تابع قريب أو مشابه له 

: 

سيظهر نوع هذا 

فرضا ً أريد أن أجد التابع الذي يحول النص إلى العدد الحقيقي من نوع عملة ، Currency نحن نعلم بوجود 

تابع يحول النص إلى عدد حقيقي وهو Strtofloat لذلك نكتب اسم هذا التابع في محرر الشيفرة ونضغط 

، F1 سيظهر الآن شرح للتابع ، Strtofloat ستلاحظ الآن وجود الكلمة 

See Also باللون الأخضر 

في أعلى الصفحة ، في حال الضغط عليها ستظهر هذه الوصلة قائمة بالتوابع المتعلقة بالتابع المذكور أو التوابع 

المشابهة له 

مثالنا 

) 

يمكن أن نختار منها )، Strtocurr كما يوجد أحيانا ً الوصلة بعد العنوان 

) Category 

( Floating point Conversion Routines 

المتصلة بموضوع التابع Strtofloat في مثالنا 

صيغة أخرى 

الحالة الثالثة 

) 

. ( 

: 

نريد أن نبحث عن تابع له صفة معينة 

: 

) 

فرضا ً نريد أن نبحث عن تابع رياضي 

لذلك يمكن أن نكتب 

( 

بالضغط عليها ستظهر كل التوابع 

ستظهر كل التوابع المتعلقة بتحويل العدد الحقيقي إلى 

من المعروف أن معظم التوابع الرياضية تنتمي إلى الوحدة 

Math 

) 

أي تابع ينتمي للوحدة 

Power مع ظهور أسم الوحدة في الأعلى 

) math التابع Power مثلا ً ( 

) 

.( math 

ملاحظة : معظم توابع التحويل 

) 

في 

ونضغط F1 سيظهر شرح التابع 

بالضغط عليه تظهر قائمة بجميع التوابع الموجودة في الوحدة 

..... Strtoint ‏)موجودة في الوحدة 

. Sysutil 

46


الحالة الرابعة 


: 

: 

لانعرف أي شيء من الحالات السابقة 

نريد أن نوجد تابع ما يقوم بعملية معينة 

) 

تابع الجيب جب 

( مثلا ً ( يه ) 

من قوائم الدلفي نختار 

Help 

Delphi help 

نختار بعدها الصفحة Find ‏(عند الضغط على الصفحة Find لأول مرة يظهر صندوق حوار لتحديد طرق 

البحث ‏(أختر الخيارات الأفتراضية)‏ 

يظهر بعدها صندوق حوار نكتب فيه اسم التابع في اللغة الإنكليزية 

الكلمات المكتوبة في ملفات المساعدة والتي تبدأ بالأحرف المكتوبة 

) 

Sin في مثالنا 

( 

( Sin ) 

فيظهر في الأسفل جميع 

ويظهر أسفل هذه القائمة قائمة أخرى 

بالعنوانين التي تحوي هذه الكلمة حاول أن تختار منها طلبك واضغط عليه مرتين فيظهر نص المساعدة المرتبط 

) بهذا العنوان 

في مثالنا Otherوللعودة Standard routine إلى القائمة أختر السابقة 

Help 

. ( topic 

: ملاحظات 

لمعرفة عمل أي عنصر في دلفي أختره وأضغط على 

. F1 

لمعرفة عمل أي خاصة تابعة لعنصر ما في دلفي أختر هذه الخاصة واضغط على 

.... F1 

47


صناديق الحوار 

الجلسة التاسعة 


: Dialog 

هي عبارة عن صناديق جاهزة موجودة في الصفحة 

وحفظ ملف ولتحديد لون ولفتح ملف صورة وللطباعة وللبحث 

صندوق 

الحوار فتح ملف 

Dialogs ومهمتها فتح نوافذ خاصة بنظام التشغيل 

) 

( .... 

وسندرس بعض هذه الصناديق بالتفصيل 

لفتح 

: 

: OpenDialog 

يستخدم لفتح ملف ما ‏،حيث يظهر النافذة المعروفة لفتح 

ملف الموجودة في الويندوز وحيث يمكننا من هذه 

النافذة اختيار الملف والضغط على فتح 

( Open ) 

وسيعيد العنصر أسم الملف المختار بالخاصة 

FileName 

سنبدأ بمثال بسيط وسنحاول التعرف على 

بشكل أفضل لاحقا ً 

مثال 

: 

: 

أضف عنصر مذكرة 

جديد بالإضافة إلى العنصر 

العنصر 

Memo وزر إلى مشروع 

Opendialog 

في حدث الضغط على الزر أكتب التعليمات التالية 

: 

IF Opendialog1.Execute then 

memo1.Lines.LoadFromFile(opendialog1.FileName ) ; 

نفذ البرنامج واضغط على الزر سيظهر صندوق الحوار أختر أي ملف نصي 

سيمكنك الآن مشاهدة محتويات الملف في المذكرة 

التعليمة 

( TXT ) 

واضغط على 

open 

. 

OpenDialog1.Execute تقوم بإظهار نافذة الحوار فتح ملف وتعيد القيمة 

اختار المستخدم أحد الملفات وضغط على الزر فتح 

opendialog1.FileName ستحتوي على 

اسم الملف،‏ وتعيد القيمة 

صندوق الحوار أو ضغط على الزر إلغاء الأمر(‏ 

opendialog1.FileName ستحتوي على فراغ.‏ 

الخاصة 

( Open ) 

True في حال 

وفي هذه الحالة 

False في حال أغلق المستخدم 

( Cancel 

: Filter 

محرر الخواص واضغط على النقاط الثلاث 

Name أكتب ملف نص ، والعمود 

تحدد هذه الخاصة نوع الملفات التي ستظهر في النافذة ، اختر الخاصة 

وفي هذه الحالة 

Filter من 

... 

فتظهر النافذة التي تحدد نوع الملفات في العمود 

Filter 

Filter أكتب 

الحوار لا يظهر إلا المجلدات والملفات من النوع النصي 

يشير إلى نوع الملفات 

للعمود 

جميع الملفات 

" Files Type 

ملف نص 

*.txt أغلق النافذة ونفذ البرنامج ستلاحظ أن صندوق 

، " 

" Filter Name 

ملف دفعي ‏"وفي العمود 

، Txt وستظهر في أسفل الصندوق في العنوان الذي 

عد إلى الخاصة Filter أدخل في السطر الثاني 

"*.Bat " Filter 

ثم في السطر التالي العمود الأول 

" 

وبجانبه " 

. " *.* " 

48



نفذ البرنامج الآن واضغط على الزر سيظهر صندوق فتح الملفات حيث يمكنك الآن اختيار نوع الملفات التي 

ستظهر عن طريق 

الخاصة 

49 

. Files Type 

: FilterIndex 

الفلتر الأول و‎2‎ إلى الثاني 

الخاصة 

.... 

تستخدم هذه الخاصة لتحديد نوع الملفات الافتراضي وتأخذ القيمة 

1 لتشير إلى 

: InitialDir تقوم هذه الخاصة بتحديد الفهرس الابتدائي الذي سيعمل فيه الصندوق أكتب في هذه 

الخاصة القيمة \:C وسيفتح عندها الصندوق في الفهرس 

الخاصة 

... C:\ 

: Title 

‏"أختر ملف ما ليقوم البرنامج بفتحه 

الخاصة 

." 

: Option 

معلومات عن عمل كل خاصة.‏ 

صندوق الحوار حفظ ملف 

تمكنك إظهار الخاصة من إظهار نص معين في شريط العنوان لنافذة فتح الملفات ادخل القيمة 

ينبثق عن هذه الخاصة العديد من الخواص حاول مراجعة تعليمات دلفي للحصول على 

: SaveDialog 

يقوم هذا الملف بفتح صندوق الحوار حفظ ملف وهو يشبه الصندوق السابق بطريقة الاستدعاء والخصائص لذلك لا 

داعي لإعادة شرح الخصائص 

مثال 

. 

: 

أضف زر و SaveDialog إلى البرنامج السابق وأعط الخاصة 

SaveDialog الخصائص التالية 

1 الخاصة 

2 الخاصة 

Caption 

" حفظ " للزر القيمة 

: 

: Filter 

ملف نص 

*.txt ........ 

ملف دفعي : 

*.bat ....... 

: Defaultext 

القيمة 

: .Txt 

في حدث الضغط على الزر اكتب التعليمات التالية 

هذه القيمة ضرورية لتحديد امتداد الملف الذي سيتم حفظه 

ثم أعط 

. 

: 

if savedialog1.Execute then 

memo1.Lines.SaveToFile(savedialog1.FileName ) 

نفذ البرنامج واضغط على الزر حفظ واكتب الاسم الذي تريد 

إحدى الخصائص المهمة لهذا العنصر والتابعة للخاصة 

.... 

Option هي الخاصة 

OfOverwritePrompt 

أعط هذه الخاصة القيمة Ture لكي يتم تنبيه المستخدم قبل أن يحفظ ملف فوق ملف من نفس الإسم 

صندوق الحوار 

مثال:‏ 

. 

: OpenPictureDialog 

صندوق الحوار هذا يشبه صندوق الحوار فتح ملف ويختلف عنه بظهور قسم يجانب الملفات لإظهار الصور قبل 

فتحها ، من الملاحظ أن الخاصة Filter لهذا العنصر مجهزة بأنواع الملفات التي يمكن للدلفي التعامل معها 

أضف زر وعنصر Image إلى مشروع جديد وأضف كذلك العنصر 

في حدث الضغط على الزر أكتب التعليمة التالية 

. 

. OpenPictureDialog 

: 

if OpenPictureDialog1.Execute then 

image1.Picture.LoadFromFile(OpenPictureDialog1.FileName )



نفذ البرنامج واضغط على الزر واختر أي صورة لتلاحظ ظهورها إلى يمين صندوق الحوار وبالضغط على الزر 

Open ستظهر الصورة في العنصر 

. Image 

ملاحظة : رغم وجود ملفان من النوع Jpg في الخاصة Filter لا تظهر الملفات *.jpg أثناء التنفيذ وإذا 

أردت إظهارها قم بإضافة اسم الوحدة Jpeg إلى القسم 

صندوق الحوار 

مثال 

. Uses 

: SavePictureDialog 

) .......................................................................................... 

............. 

نفس الكلام السابق 

( 

: 


الخاصة 

SavePictureDialog 

إلى البرنامج السابق و أعط 

.Bmp واكتب في حدث الضغط على الزر التعليمة التالية 

SavePictureDialog 

: 

DefaultExt القيمة 

if SavePictureDialog1.Execute then 

image1.Picture.SaveToFile(SavePictureDialog1.FileName) 

نفذ البرنامج ثم افتح صورة عن طريق الزر الأول واحفظها عن طريق الزر الثاني 

الصورة أي تغير نوعها عن طريق تغير الامتداد في أسفل صندوق الحوار 

صندوق الحوار الخطوط 

يقوم 

الخط 

) 

يمكنك أيضا ً تغير امتداد ملف 

. ( Save As Type 

: FontDialog 

. 

هذا العنصر بإظهار صندوق الحوار اختيار خط حيث يمكننا هذا الصندوق من تحديد نوع ونمط وحجم ولون 


: التعليمة التالية 

صندوق الحوار تحديد لون 

Label و عنصر 

FontDialog إلى برنامج جديد واكتب في حدث الضغط على الزر 

if Fontdialog1.Execute then 

label1.Font := fontdialog1.Font ; 

: ColorDialog 

يقوم هذا العنصر بإظهار صندوق حوار لاختيار لون حيث يمكن اختيار اللون من عدد كبير جدا ً من الألوان 


. 

ColorDialog إلى برنامج جديد واكتب في حدث الضغط على الزر التعليمات التالية 

صندوق الحوار ColorDialog يظهر فيه زر عنوانه 

: 

if colorDialog1.Execute then 

form1.Color := colordialog1.Color ; 

Define Custom colors بالضغط عليه 

يظهر لوح الألوان الذي يمكن من خلاله تحديد اللون أو يمكن كتابة RGB كتابة في حال معرفتها 

ملاحظة 

. 

: 

تتبع جميع صناديق الحوار 

فصندوق الحوار فتح ملف في ويندوز 

Dialog نظام التشغيل المستخدم،‏ أي أنها ستختلف حسب نظام التشغيل 

98 يختلف عنه في ويندوز 

Xp وبالتالي سيختلف شكل الصندوق من نظام 

تشغيل إلى آخر ولكنه سيؤدي نفس الوظيفة بنفس التعليمات ، كما تتأثر هذه الصناديق بلغة النظام أي أنها ستظهر 

50



باللغة العربية في حال كانت واجهات نظام التشغيل المستخدم بالعربية وباللغة الإنكليزية في حال كانت واجهات 

نظام التشغيل باللغة الإنكليزية 

. 

51


الجلسة العاشرة 

التعرف على العنصر 


) : MaskEdit 

الصفحة 

( Additional 

يشبه هذا العنصر عنصر التحرير Edit ويختلف عنه بإمكانية تحديد شكل النص المدخل وللتعرف على هذه اميزة 

اذهب إلى الخاصة Editmask من محرر الخواص وبالضغط على 

... 

ستظهر النافذة التالية 

: 

تحديد القناع 

أقنعة جاهزة 

الرمز الذي سيظهر 

مكان الفراغ 

( أمثلة ) 

لتجربة النص المدخل 

تحميل أقنعة جاهزة 

مثال 

..... 

52 

: 

1 

أضف عنصر MaskEdit من الصفحة 

محرر الخواص واختر من النافذة السابقة في القسم 

Additional 

إلى برنامج جديد واختر الخاصة 

Editmask من 

( Sample Masks ) 

Date واضغط على Ok عندها سيظهر 

العنصر بالشكل __/__/__ الآن نفذ البرنامج وحاول الإدخال إلى العنصر ولاحظ أنه لا يمكنك إدخال سوى 

الأرقام . 

: تحديد القناع 

نلاحظ أن القيم في الحقل تحديد القناع عبارة عن 

0 أو 9 أو L أو … 

فماذا تعني هذه الرموز 

: 

: 9 

يستطيع المستخدم إدخال رقم في مكان هذا الرمز ولا يمكن إدخال الأحرف مع إمكانية عدم إدخال أي رقم 

مثلا ً في حال كان القناع 99999 ‏،يستطيع المستخدم إدخال عدد مكون من خمس أرقام أو أربع أو ثلاث 

يستطيع إدخال الأحرف 

) 

.... 

( 

: 0 

يستطيع المستخدم إدخال رقم في مكان هذا الرمز ولا يمكن إدخال الأحرف 

فعلى المستخدم إدخال خمس أرقام حصرا ً ولا يمكن أربعة 

رسالة خطأ عن خروج المؤشر من العنصر 

) 

في حال كان القناع 

ولا 

، 00000 

(... 

. 

: L 

يستطيع المستخدم،‏ إدخال أحرف مكان هذا الرمز ولا يمكن إدخال الأرقام 

المستخدم إدخال أربع أحرف حصرا ً 

) 

وفي حال ادخل المستخدم أربعة سيصدر البرنامج 

في حال كان القناع 

LLLL فعلى 

.( 

: l 

إدخال أحرف فقط مع إمكانية عدم الإدخال


.... 


: a إدخال أحرف مع أرقام مع إمكانية عدم الإدخال 

. 

إدخال أحرف مع أرقام ... 

حصرا ً 

: A 

يوجد مجموعة أخرى من الرموز يمكن مراجعتها في ملفات المساعدة التابعة للدلفي ............ 

( Win32 

العنصر : MonthCalendar ) 

الصفحة 

يستخدم هذا العنصر لإظهار التاريخ،‏ ويستطيع المستخدم إدخال التاريخ عبره ... 

في حال أردنا من العنصر إظهار تاريخ اليوم في كل مرة نفتح البرنامج،‏ علينا إدخال التعليمة التالية في الحدث 

OnCreate للنافذة التي تحوي العنصر : 

MonthCalendar1.Date := date; 

للحصول على التاريخ المدخل من قبل المستخدم نكتب التعليمة التالية في حدث الضغط على زر أو حدث الضغط 

form1.Caption := datetostr(MonthCalendar1.Date); 

.. ( 

) 

على العنصر نفسه 

: 

عن إعطاء الخاصة Align لهذا العنصر القيمة 

alClient يظهر مفكرة بعدة أشهر 

حسب حجم النموذج 

. 

Sample العنصر 

ملاحظة : 

يوجد في الصفحة 

Calendar وهو يشبه العنصر السابق إلى حد ما 

( Win32 

العنصر : DateTimePicker ) 

الصفحة 

: 

( 

يستخدم هذا العنصر لإظهار ) 

إدخال 

التاريخ أو الوقت 

يظهر التاريخ في حال كانت الخاصة Kind تساوي 

dtkDate ويمكن تغير التاريخ عن طريق مفاتيح الأسهم 

1 

أو عن طريق الضغط على السهم المجاور للعنصر حيث يظهر عندها شكل مشابه للعنصر MonthCalendar 

الذي يمكن تحديد التاريخ من خلاله،‏ كما يمكن تغير قيمة الخاصة DateMode إلى 

dmUpDown يظهر سهمين 

أعلى وأسفل لإدخال التاريخ .... 

Timer 

يظهر الوقت في حال كانت الخاصة Kind تساوي 

dtkTime وحتى يتم تحديث الوقت يجب إضافة 

2 

وكتابة التعليمة التالية في الحدث : OnTimer 

DateTimePicker1.Time := time; 

3 يمكن الحصول على الوقت من هذا العنصر عن طريق التعليمة التالية : 

Form1.Caption := TimeToStr(DateTimePicker1.Time ); 

ويكون الحصول على التاريخ عن طريق التعليمة : 

Form1.Caption := Datetostr(DateTimePicker1.date ); 

الصفحة 

العنصر 

( Win32 

) : PageControl 

يقوم هذا العنصر بإظهار صفحات مستقلة وللتعرف على هذا العنصر سنبدأ بمثال : 

مثال : 

ابدأ مشروعا ً جديدا ً وأضف إليه عنصر الصفحات 

PageControl من الصفحة 

،Win32 اضغط على العنصر 

Tabsheet1 

بزر الفأرة اليميني وأختر من القائمة 

New Page عندها ستظهر صفحة جديدة باسم 

، أعد الخطوة 

الأخيرة مرتين لإظهار TabSheet2 و . TabSheet3 

53



اختر الصفحة الأولى 

وأعطها الخاصة 

التاريخ 

" وأضف في داخلها العنصر 

" Caption 

Tabsheet1 

. MonthCalendar 

اختر الصفحة الثانية 

TabSheet2 وأعطها الخاصة 

الوقت 

" وأضف إليها العنصر 

" Caption 

وأعطه الخاصة 

Kind القيمة dtkTime ولا تنس إضافة مؤقت لتحديث الوقت...‏ 

DateTimePicker 

اختر الصفحة الثالثة 

TabSheet3 وأعطها الخاصة 

التاريخ والوقت 

" وأضف إليها عنصرين 

" Caption 

.... dtkTime القيمة Kind أعط إحداهما الخاصة DateTimePicker 

نفذ البرنامج ولاحظ كيفية الانتقال بين الصفحات .. 

ESC من 

اختر العنصر ) PageControl 

يمكن الانتقال من عنصر ابن إلى عنصر أب بالضغط على المفتاح 

. 

alClient القيمة Align 

لوحة المفاتيح ( 


عندها سيأخذ العنصر حجم النموذج بالكامل 

Add 

أضف العنصر 

ImageList من الصفحة 

Win32 واضغط علية مرتين يظهر صندوق حوار اختر منه 

لإضافة مجموعة من الصور،‏ اضغط بعدها على 

،Ok عد بعدها إلى العنصر 

PageControl وأعط الخاصة 

Images القيمة ImageList1 وعندها ستظهر الصور بجانب عنوانين الصفحات،‏ نستطيع اختيار صور محددة 

... ImageIndex 

لصفحة ما باختيار الصفحة 

tabSheet ثم كتابة رقم الصورة المطلوبة في الخاصة 

يمكن تحويل موضع اختيار الصفحات عن طريق الخاصة 

TapPosition حيث يمكن أن تكون في الأسفل أو 

على اليمين أو على اليسار 

يمكن تحويل شكل الصفحات إلى أزرار عن طريق الخاصة 

Style للعنصر PageControl بإعطائها القيمة 

tpTop تساوي TapPosition لا تعمل هذه الخاصة إلا إذا كانت قيمة الخاصة ) tsFlatButtons أو tsButtons 

. ( 

. 

الخاصة 

ActivePage تحدد الصفحة الفعالة عند تنفيذ البرنامج 

الخاصة 

عند إعطاء هذه الخاصة القيمة 

True يتحول لون خط عنوان الصفحة إلى اللون الأزرق 

: HotTrack 

. ( 

عند مرور الفأرة فوقه ) 

في وقت التنفيذ 

( Win32 

العنصر : TabControl ) 

الصفحة 

يشبه هذا العنصر العنصر 

PageControl ويختلف عنه بكونه لا يعطي صفحات مستقلة حيث أنه مكون من 

صفحة واحدة 

) أي أن العناصر توضع في صفحة واحدة ويتم تطبيق تغيرات على هذه العناصر عندما يضغط 

المستخدم على أزرار الصفحات : 

. 5 

مثال : 

سنقوم بكتابة برنامج يعطي جدول ضرب العدد 

1,2,3,4,5,6,7,8,9 كل 

ابدأ مشروعا ً جديدا ً وأضف إليه العنصر ، TabControl في الخاصة 

Tabs أكتب القيم 

منها في سطر 

. TabControl 

أضف عنصري 

Label داخل العنصر 

: 

مستقل وفي الحدث 

OnChange أكتب التعليمات التالية 


begin 

54


حيث TabControl1.TabIndex تعيد رقم الصفحة التي ضغط المستخدم عليها 

و ] Tabcontrol1.Tabs[ تعيد عنوان الصفحة التي يوجد رقمها بين القوسين 

نفذ البرنامج واضغط على الصفحات ولاحظ النتائج 


i := strtoint(tabcontrol1.Tabs[tabcontrol1.tabindex] ); 

label1.Caption := inttostr(i) + ' * 5 = '; 

label2.Caption := inttostr(i * 5); 

. 

. [ ] 

55 

... 

بالنسبة لباقي الخصائص فهي مشابهة تماما ً لخصائص العنصر السابق 

العنصر 


. 

) : UpDown 

الصفحة 

( Win32 

UpDown وعنصر 

Associate 

Edit إلى مشروع جديد ، حدد العنصر 

UpDown1 واعط الخاصة 

القيمة ، Edit1 نفذ البرنامج واضغط على أسهم العنصر UpDown ولاحظ تغير الرقم داخل 

الخاصة Increment للعنصر تحدد مقدار الزيادة أو النقصان في العدد داخل ال 

الخاصتان 

Edit 

. Edit 

Min و 

Max تحددان القيمة الدنيا والعليا للعدد داخل 

الخاصة Position تحدد القيمة الابتدائية للعنصر 

الخاصة 

الخاصة 

. Edit 

. 

Orientation 

تحدد اتجاه الأسهم 

) 

عامودي أو أفقي 

. ( 

: Warp 

عند إعطاء هذه الخاصة القيمة 

الزر Down بعكس عند الضغط على الزر 

ملاحظة : يوجد في الصفحة 

إلى حد ما 

. Up 

Sample العنصرين 

True يتحول العدد من القيمة السفلى إلى العليا عند الضغط على 

SpinEdit و 

. 

التعامل مع السلاسل النصية 

1 التابع 

: 

: Concat 

يقوم هذا التابع بوصل السلاسل S1..Sn مع بعضها 

مثال 

SpinButton الذين يشبهان عمل هذا العنصر 

Concat ( s1, [s2..sn]) :string 

: 

أكتب التعليمات التالية في حدث الضغط على زر 

: 

var s1,s2,s3 : string; 

begin 

s1:= 'abc'; 

s2 := 'efg'; 

s3:= 'hij'; 

form1.caption:=concat(s1,s2,s3) 

يشبه هذا التابع عملية جمع السلاسل النصية أي أن النتيجة ستكون مشابه لو كانت التعليمة الأخيرة 

Form1.Caption := s1+s2+s3; 

2 التابع : Copy 

Copy ( S:string , Index,Count :Integer ) :String 

يعيد هذا التابع سلسلة رمزية جزئية من السلسة S تبدأ من الحرف الذي ترتبه Index وبطول . Count


... Copy ( 'Hello All',5,1) = o 

Delete ( Var S:string ,Index,Count ) ; 

Index وبطول 

var s1 : String; 

Begin 

s1:= 'Hello All' ; 

Delete (s1,1,3); 

Form1.Caption := s1; 

S1,4,3) Delete ( ستكون 

; Copy ( 'Hello All',2,6) 

= ello A 

: Delete 


: مثال 

3 الإجراء 

يعيد هذا الإجراء في المتحول 

S قيمة نفس السلسلة بعد حذف الرموز ابتداء من الرمز الذي ترتيبه 

: 

Count 

مثال : 

اكتب في حدث الضغط على زر التعليمات التالية 

ستكون نتيجة تنفيذ البرنامج القيمة ، lo All وإذا غيرنا وسطاء الإجراء إلى الشكل 

DupeString ( S: String ,Count :Integer) :String; 

Count مرة 

. HelAll 

: DupeString 

S مكررة 

DupeString( 'Ha ',5) = Ha Ha Ha Ha Ha 

StrUtils 

Insert ( S1:String , var S:string ; Index :Integer ) ; 

. S 

النتيجة 


يعيد هذا التابع القيمة 

مثال : 

ملاحظة لتنفيذ هذا التابع نحتاج لاستدعاء الوحدة 

5 الأجراء : Insert 

مثال 

يقوم هذا الإجراء بحشر السلسة S1 في السلسة S ابتداء من الرمز Index في السلسة S ويعيد النتيجة في 

: تكتب التعليمات التالية في حدث الضغط على زر : 

var s : string; 

begin 

s:= 'Hello Friends' ; 

insert ( 'All ' ,s,7); 

form1.Caption := s; 

StuffString( s:string , start, length :integer , S1:string ) :string; 

56 

التابع : StuffString 

يقوم هذا التابع بحشر السلسة قيمة 

الرموز من قيمة 

S1 في قيمة السلسلة S ابتداء من الرمز الذي ترتيبه Start مع حذف عدد من 

: Length بطول S 

مثال all' stuffstring('Hello Friend',7,6,'all') = 'Hello قام التابع بحذف ستة أحرف ابتداء من الحرف 

السابع وحشر السلسة ، all في حال تغير الرقم 0 سيعمل التابع عمل الإجراء 

. Insert 

6 إلى 

يختلف هذا التابع عن سابقة ب : 

:


. 


1 التابع يقوم بحذف قسم من السلسة وإدراج غيره 

الإجراء 

Insert بحاجة إلى متحول 

S ستعاد قيمة التابع فيه بينما التابع 

StuffString يعيد السلسة 

2 

. ( 

النتيجة بدون 

التأثير على وسطاءه 

ملاحظة لتنفيذ هذا التابع نحتاج لاستدعاء الوحدة StrUtils 

LeftStr(S:String ,Count : integer) :string 

: Count وبطول S 

التابع 

: LeftStr 

يعيد هذا التابع سلسلة نصية تبدأ من يسار السلسلة 

. LeftStr( 'Good Morning,4 ) = Good 

، LeftStr( 'Hello Frind',6) = Hello 

مثال : 

: 

التابع : RightStr 

يشبه التابع السابق ولكنه يعيد ابتداء من نهاية السلسة 

Rightstr( 'Hello Friend',6)=Friend 

مثال : 

التابع : LowerCase 

) الأحرف اللاتينية ( . 

يعيد هذا التابع السلسلة 

S بعد تحويل جميع حروفها إلى حروف صغيرة 

LowerCase(Hello Friend) = hello friend : 

: UpperCase 

مثال 

التابع 

عكس التابع السابق ‏،مثال UpperCase (' Hello Friend') = HELLO FRIEND 

التابع : Trim 

يقوم هذا التابع بحذف الفراغات من بداية ونهاية السلسة S 

مثال : 

أضف زر وعنصر Edit إلى برنامج جديد وفي حدث الضغط على الزر اكتب التعليمات التالية 

أكتب نصا ً ما في العنصر Edit1 وحاول ترك فراغات في بداية هذه النص أو آخرة 

: 

edit1.Text:= Trim(edit1.Text ); 

' Hello All 

' 

واضغط 

على الزر فيقوم التابع بحذف الفراغات وإعادة القيمة All' 'Hello . 

التابعين TrimLeft و 

التوالي 

TrimRight لهما نفس التأثير غير أنهما يحذفان الفراغات من بداية السلسة أو نهايتها على 

. 

التابع 

: Format 

Format ( S :String ; A:array of const ) ; 

داخلها وفقا ً لبعض المعايير ... A بعد إدراج القيم في Sيعيد هذا التابع السلسلة 

مثال : 

أضف التعليمات التالية في حدث الضغط على زر : 

var s1:string; 

var i,j :integer; z:real; 

begin 

i:= 200;j:=5; z:= i/j; 

57




s1:= format('If You Divide %d by %d the result will be %g',[i,j,z]); 

form1.Caption := s1; 

. If You Divide 200 by 5 the result will be 40 

قام التابع بإعطاء قيمة العنصر الأول في المصفوفة 

الثاني وقيمة العنصر الثالث Z إلى الوسيط 

إذا ً يمكنك التابع 

( I 

) 

إلى الوسيط d% وقيمة العنصر الثاني إلى الوسيط 

%d 

. %g 

Format 

من إدراج مجموعة من الثوابت داخل الجملة عن طريق كتابة الرمز % داخل الجملة 

ملحقا ً برمز يدل على نوع الوسيط المراد إدراجه حسب الجدول التالي 

: 

عشري،‏ قيمة العدد الصحيح يحول إلى جملة من الخانات العشرية.‏ 

ست عشري،‏ قيمة الرقم الصحيح ت ُحول إلى جملة من الخانات الست عشرية.‏ 

مؤش ّر،‏ قيمة المؤشر يحول إلى جملة معبر عنها بأعداد ست عشرية.‏ 

d (decimal) 

x 

(hexadecimal) 

p (pointer) 

s (string) 

e 

(exponential) 

f (floating 

point) 

g (general) 

قيمة الجملة،‏ الحرف،‏ أو نوع 

PChar يتم نسخها في مخرجات الجملة.‏ 

مرفوع القوة،‏ قيمة النقطة العائمة تحول إلى جملة مبنية على ترميز مرفوع القوة.‏ 

نقطة عائمة،‏ قيمة النقطة العائمة تحول إلى جملة مبنية على ترميز النقطة العائمة.‏ 

عام،‏ قيمة النقطة العائمة تحول إلى جملة عشرية بأقرب ما يمكن مستخدمة إما ترميز النقطة 

العائمة أو مرفوع القوة.‏ 

رقم،‏ قيمة النقطة العائمة تحول إلى جملة نقطة عائمة لكنها أيضا تستخدم فواصل الآلاف.‏ 

نقود،‏ قيمة النقطة العائمة تحول إلى جملة تمثل مقدار العملة.‏ التحويل يعتمد على التوصيف 

الإقليمي لبيئة التشغيل-‏ انظر ملف مساعدة دلفي تحت موضوع:‏ 

Currency and 

.date/time formatting variables 

n (number) 

m (money) 

: مثال 

أضف عنصر Edit وزر إلى برنامج جديد ، اكتب في حدث الضغط على الزر التعليمة التالية 

نفذ البرنامج واكتب أسمك في العنصر Edit وأضغط على الزر 

: 

ShowMessage( Format مرحبا ً')‏ %s',[Edit1.Text])); 

...... 

58


اللوائح النصية 

يستخدم النوع 

الجلسة الحادية عشرة 


59 

: 

TSrings لتعريف اللوائح النصية حيث يقوم هذا النوع بتخزين عدد من السلاسل النصية ضمن 

سطور وقد تعاملنا معه في السابق فالخاصة 

Memo من النوع 

يبدأ التعامل مع النوع 

Items التابعة ل 

ListBox والخاصة 

. Tstrings 

TStrings بالتعليمة 

Lines التابعة لعنصر المذكرة 

TStringList.Create التي تقوم بحجز مكان لهذا النوع في الذاكرة،‏ 

علما ً أن هذا النوع قد يأخذ مجال كبير من الذاكرة تبعا ً لحجم السلاسل النصية المراد تخزينها فيه،‏ وينتهي استخدام 

هذا النوع بالتعليمة Free لتحرير الذاكرة المستخدمة من قبل هذا العنصر 

ملاحظة 

. 

: 

عند إنهاء البرنامج دون استخدام التعليمة 

مما يعطل موارد الجهاز 

Free سيبقى حيز الذاكرة المحجوز من قبل المتحول 

Tstrings مشغولا ً 

) 

وتقسم اللوائح النصية إلى قسمين 

1 اللوائح النصية قصيرة الأمد 

تظهر هذه المشكلة مع العديد من البرامج العربية 

. ( 

: 

: 

تكون اللائحة قصيرة الأمد إذا تم إنشاؤها وتحريرها في نفس الإجراء أو التابع 

مثال 

. 

: 

أنشئ مشروعا ً جديد ًا 

الزر التعليمات التالية 

: 

وضع السطر 

وأضف إليه عنصر اللائحة ListBox وزر وعنصر ، Edit أكتب في حدث الضغط على 

var a:TStrings; 

Begin 

إنشاء اللائحة وحجز مكان لها في الذاكرة // TStringList.Create; a =: 

إضافة النص الموجود في صندوق النص إلى الائحة // a.Add(Edit1.text); 

Form1.Caption := a.Strings [0]; // 

ListBox 

a 

ListBox1.Items.AddStrings(a); // 

a.Free ; 

end; 

TsrtingList.Create 

( 0 ) 

إضافة عناصر اللائحة 

حاول استخدام البرنامج بدون التعليمة 

2 اللوائح النصية طويلة الأمد 

: 

من سطور اللائحة في عنوان النموذج 

إلى عنصر اللائح ة 

تكون اللائحة طويلة الأمد عند تعريف متحول عام أو خاص من النوع TStrings وهنا علينا تحريره عند إغلاق 

النموذج الذي قام بإنشائه 

مثال 

: 

: 

أضف متحول A من النوع TStrings في القسم Puplic من برنامج جديد 

في الحدث 

OnCreat للنموذج أكتب التعليمة التالية 

A := TStringList.Create; 

. 

:


A.Free; 

. 


في الحدث OnDestroy اكتب التعليمة التالية 

: 

بإمكانك الآن استخدام عنصر اللائحة في أي جزء من البرنامج 

. 

الحدث 

OnDestroy يتم تنفيذه عند إغلاق النافذة 


معظم الأنواع التي تحتاج إلى 

Create تحتاج إلى 

Free عند انتهاء التعامل معها،‏ وهذه الطريقة تشبه 

طريقة التعامل مع المؤشرات حيث يجب إنهاء المؤشر بعد الانتهاء منه . 

معالجة الأخطاء في دلفي : 

يجب على كل تطبيق جيد أن يعالج جميع احتمالات الأخطاء وأن يوجه المستخدم إلى حل ما للخروج من حالة 

الخطأ أو يقوم بإنهاء البرنامج بأسلوب جيد على الأقل .... 

) 

تدعى حالات حدوث الخطأ في دلفي بالاعتراضات 

Exceptions وهي عبارة عن أهداف 

متحولات،‏ توابع ، 

إجراءات معرفة ( 

تحوي معلومات عن وقوع الخطأ ومكان حدوثه.‏ 

. 

تستخدم التعليمة 

Try لحماية كتل التعليمات والتي لها شكلين سنشرح كل منهما بالتفصيل 

1 التعليمة : Try. . . . . . Except 

( 

بفرض أننا نتوقع حدوث خطأ ما في كتلة من التعليمات ) 

مجموعة تعليمات 

لمعالجة هذا الخطأ نضع هذه 

، End وتستخدم Except قبل 

التعليمات ضمن الكتلة 

Try والتي تنتهي ب 

End لتوجيه البرنامج لتنفيذ عمليات 

محددة عند حدوث الخطأ . 

مثال : 

أضف زر وEdit إلى برنامج جديد واكتب في حدث الضغط على الزر التعليمات التالية 

نفذ البرنامج واكتب نصا ً في 

: 


begin 

i:= strtoint(edit1.text); 

) 

Edit 

( لا تكتب أرقام 

واضغط على الزر سيتوقف عندها تشغيل البرنامج وتظهر 

دلفي الرسالة التالية : 

الرسالة الموضحة لسبب الاعتراض 

أسم الإعتراض 

أسم البرنامج 

60


" 


والتي تعني أن البرنامج قد رفع اعتراضا ً من النوع EconvertError مع رسالة 

صحيح ، تم إيقاف العملية اضغط على تنفيذ مرة أخرى لإكمال عمل البرنامج 

عند الضغط على تنفيذ تظهر الرسالة التالية 

‏"النص الذي أدخلته 

ليس عدد 

. 

: 

والتي تعني أن النص المدخل ليس عدد صحيح 

احفظ البرنامج باسم 

61 

.. 

Exception1 ونفذه .. 

أكتب نصا ً واضغط على الزر ستلاحظ ظهور الرسالة الثانية فقط 

ثم اذهب إلى فهرس البرنامج وشغل الملف التنفيذي 

، Exception1 

.. 

، إذا ً فهذه هي الرسالة التي ستظهر للمستخدم 

وعلى فرض أن المستخدم لا يعرف اللغة الإنكليزية فإنه لا يفهم سبب المشكلة وسيعتقد أن البرنامج سيئ 

لمعالجة هذا الخطأ عدل البرنامج السابق ليصبح بالشكل 

. 

Var i :integer; 

Begin 

Try 

i:= strtoint(edit1.text ); 

Except 

) ‏’أدخل عدد صحيح من فضلك‘‏ ( Showmessage 

end; 

) 

: 

نفذ البرنامج الآن بالطريقة السابقة وستلاحظ ظهور الرسالة الأولى نفسها 

وجود خطأ هنا 


( 

تظهر هذه الرسالة لتنبيه المبرمج عن 

ولكن الرسالة الثانية لن تظهر ولكن ستنفذ مكانها التعليمات التي وردت بعد القسم 

Except من 

. Try 

أحفظ البرنامج و أعد تشغيله من فهرس البرنامج ولاحظ النتائج 

ملاحظة 

. 

: 

من الواضح أن الكتلة Try . . End لم تمنع حدوث الخطأ ولكنها تعاملت مع الخطأ بأسلوب متطور 

والبرامج الأقوى هي البرامج التي تمنع حدوث الخطأ قدر المستطاع قبل التعامل معه فمثلا ً في برنامجنا هنا من 

الأفضل منع المستخدم من إدخال الأحرف داخل Edit وبالتالي لن يحدث الخطأ.‏ 

تحديد نوع الخطأ 

مثال 

: 

: 2 


Edit إلى البرنامج السابق وعدله ليصبح بالشكل 

var i,j :integer;z:real; 

Begin 

Try 


j:= strtoint(edit2.text ); 

z:= i/j; 

edit3.Text := floattostr(z); 

Except 

:


احفظ البرنامج ونفذه ولاحظ تنفيذ القسم 

Edit2 أي أن جميع التعليمات بين 

سيتم تنفيذها في حال حدوث خطأ 

نفذ البرنامج الآن وأدخل في 

رسالة خطأ من النوع 


Except 

;( ‏’أدخل عدد صحيح من فضلك‘‏ ( Showmessage 

end; 

في حال حدوث الخطأ عند إدخال نص في Edit1 أو في 

Try وExcept سوف تخضع للفحص و جميع التعليمات بين 

End و Except 

Edit1 القيمة /232/ 

. 

وأدخل في 

Edit2 القيمة / 0 / 

EzeorDivide والرسالة الثانية ستظهر من قبل برنامج 

" ) 

نفذ البرنامج وستظهر دلفي 

أدخل عدد صحيح من فضلك"‏ ( 

بالرغم من قيامك بإدخال عدد صحيح لذلك أوجدت دلفي أسلوبا ً لتحديد نوع الخطأ وتنفيذ التعليمات المناسبة للتعامل 

معه ، عدل الآن البرنامج السابق ليصبح بالشكل 

: 


أو 

Var i,j :integer;z:real; 

Begin 

Try 


j:= strtoint(edit2.text); 

z:= i/j; 

edit3.Text := floattostr(z); 

Except 

); ‏’أدخل عدد صحيح من فضلك‘‏ ( Showmessage On Econverterror Do 

On EZeroDivide Do shOwmessage ( ) ; 

end; 

Do 

On Econverterror Do تعني : 

‏'لا يمكن القسمة على صفر'‏ 

وبذلك نستطيع تحديد كيفية التعامل مع كل خطأ على حدى 

... 

هناك عدد كبير من الاعتراضات والتي تصنف في مجموعات رئيسية 

EintError اعترضات الأعداد الصحيحة 

62 

عند وقوع خطأ من النوع EconvertError نفذ التعليمة بعد 

: EmathError ) 

( .... 

ينبثق عنها اعتراضات جزئية 

) 

الاعتراضات الرياضية 

مثل 

EzerDivide أو 

( ErangeError 

وأفضل طريقة للتعرف على هذه الإعتراضات هي التعامل معها أثناء ظهورها حيث يمكننا 

الحصول على اسم الاعتراض من الرسالة التي 

تظهرها دلفي عند حدوثه كما رأينا عند ظهور 

EconvertError 

............ 

2 التعليمة 

: Try .. .. Finally 

سنبدأ بالمثال التالي لشرح هذه التعليمة 

مثال 

: 

: 1 

أضف في حدث الضغط على زر التعليمات التالية 

: 

Var a:tstrings ; 

i:integer; 

begin 

إنشاء المتحول وحجز مكان له في الذاكرة // ; Tstringlist.Create =:a



وضع القيمة الموجودة في عنصر التحرير داخل عنصر التحرير strtoint(edit1.text);// =:i 

i:= i * 5; 

إضافة قيمة المتحول إلى اللائحة // a.Add(inttostr(i)); 

Form1.Caption := 'Done' 

a.Free ; 

لنفرض أن المستخدم أدخل نصا ً في عنصر التحرير Edit ولم يدخل أرقاما ً سينشئ عندها الاعتراض 

EConvertErrorr وسيخرج البرنامج من الإجراء قبل تنفيذ التعليمة 

محجوزة من قبل المتحول 

) 

، a 

a.Free مما سيؤدي إلى بقاء الذاكرة 

جميع التعليمات التي تلي مكان الاعتراض لا يتم تنفيذها ولو عاد البرنامج إلى 

العمل،‏ لا حظ مثلا ً التعليمة 'Done' Form1.Caption =: التي لم يتم تنفيذها في حال حدث 

الاعتراض)‏ 

عدل البرنامج السابق بحيث يصبح بالشكل 

: 

Var a:tstrings ; 

i:integer; 

begin 

Try 

إنشاء المتحول وحجز مكان له في الذاكرة // ; Tstringlist.Create =:a 

وضع القيمة الموجودة في عنصر التحرير داخل عنصر التحرير strtoint(edit1.text);// =:i 

i:= i * 5; 

نفذ البرنامج ، ولاحظ حدوث الاعتراض ، أعد الضغط على الزر 

تنفيذها 

يحدث 

a.Add(inttostr(i)); 

Finally 

Form1.Caption := 'Done' ; 

a.Free ; 

end; 

Finally تم 

) 

لا حظ تغير عنوان النافذة 

. ( 

) 

Run وستجد أن التعليمات في القسم 

أكثر ما تتميز به التعليمة Try Finally بأنها ستقوم بتنفيذ التعليمات بعد Finally سواء حدث الاعتراض أم لم 

نفذ الإجراء وأدخل عدد صحيح في العنصر Edit ولاحظ أن القسم Finally قد تم تنفيذه 

. ( 

تسمى هذه التعليمة بتعليمة تحرير الموارد لأن أكثر استخداماتها تكون عند الحاجة لإنشاء متحولات وتحريرها بعد 

. انتهاء عملها 

تداخل تعليمات 

: Try 

يمكن أن تتداخل تعليمات Try مع بعضها البعض إذا كانت من نفس النوع كما يلي 

: 

63


Try 

……. 

Try 

….. 

Finally 

………. 

End; 

…….. 

Finally 

……… 

End; 

Try 

……. 

Try 

….. 

Except 

………. 

End; 

…….. 

Except 

……… 

End; 


64



) 

( Except 

) 

كما أنها يمكن أن دمج نوعي عبارة 

Try الأولى لمعالجة الاعتراض 

القسم 

والثانية لحماية الموارد 

القسم 

( Finally وذلك لتزويد البرنامج بحماية أكبر ، ولكن يجب الحذر عند استخدام هذا التداخل لمعرفة أي منهما 

يحدث أولا ً . 

تنقيح البرنامج : 

بعد الانتهاء من كتابة البرنامج لا بد من فحص الأخطاء التي قد تحدث والتي لا يمكن التنبه لها عند تنفيذ البرنامج 

لأول مرة وتدعى هذه الأخطاء ب 

ويوجد مع دلفي العديد من الأدوات التي تمكن المبرمج من 

فحص 

( Bugs 

) 

برامجه والتأكد من خلوها من الأخطاء قبل النشر ، تسمى عمليات فحص البرنامج والتخلص من أخطائه ب ) 

( Debug 

1 التحكم بتنفيذ برنامج : 

من المفيد معرفة قيم متحولات البرنامج أثناء التنفيذ ومعرفة كيفية تغير قيم هذه المتحولات ، ولهذا أوجدت دلفي 

طرقا ً لتنفيذ جزء من تعليمات البرنامج ثم التوقف أو تنفيذ تعليمات البرنامج خطوة خطوة وفحص قيم المتحولات 

عند نقطة معينة ثم العودة للتنفيذ . 

تنفيذ البرنامج خطوة خطوة : 

يوجد أمرين لتنفيذ البرنامج خطوة خطوة أولاهما الأمر 

الضغط على الزر 

Trace into والذي يمكن اختياره من القائمة 

Run أو عبر 

Run 

من أزرار السرعة أو الضغط على 

F7 من لوحة المفاتيح والثاني 

Step Over الذي يمكن تنفيذه من القائمة 

. F8 

أو الضغط على الزر 

أو الضغط على 

عند اختيار الأمر 

Trace Into يقوم بتنفيذ التعليمة الأولى من البرنامج ثم نضغط عليه مرة ثانية لتنفيذ التعليمة 

الثانية وهكذا وإذا صادف هذا الأمر إجراء أو تابعا ً ينتقل إليه لينفذ تعليماته كذلك . 

والأمر 

Step Over يشابه الأمر Trace Into ولكنه إذا صادف إجراء أو تابعا ً فإنه ينفذه بالكامل ويعود إلى 

التعليمة التي تلي طلب هذا الإجراء . 

مثال : 

أضف زر وعنصر لائحة 

ListBox إلى برنامج جديد واكتب في حدث الضغط على الزر التعليمات التالية 

: 

Var s:string ; 

i , j ,z :integer; 

begin 

for i := 0 to 500 do 

begin 

j:= i * 5; 

z:= j * 2 ; 

s:= inttostr ( j ) + ' ' + inttostr(z); 

Form1.Caption := s; 

listbox1.Items.Add(s) 

65


end; 


أضغط على F7 عدة مرات حتى ينهي الأمر Trace Into تعليمات تهيئة البرنامج ويدخل في جملة التعليمات 

المكتوبة في الأعلى ، أضغط الآن على F7 مرة أخرى ولاحظ انتقال تنفيذ البرنامج إلى التعليمة التالية حيث يظهر 

سهم أخضر على يسار التعليمة التي ستنفذ عن الضغط على F7 في المرة التالية 

. 

كرر الضغط على F7 حتى يصل السهم الأخضر إلى التعليمة listbox1.Items.Add(s) ، حرك الآن مؤشر 

الفأرة ليقف فوق المتحولات في جسم الحلقة مثلا ً أوقف المؤشر فوق المتحول I ستظهر عندها القيمة المخزنة في 

وكذلك في 

I 

....S و Z 

أضغط على F7 مرتين حتى يقف السهم الأخضر بجانب التعليمة * 5 i =:j ولاحظ أنه يمكنك الحصول على قيمة 

I الجديدة ولا يمكنك الحصول على كل من قيمة 

القيم لم يتم إعطائها قيم جديدة بعد 

ملاحظة 

j و Z و 

. 

: 

s ويعود السبب لأن I قد أخذت قيمتها الجديدة بينما باقي 

يستخدم الأمر Step Over بنفس الطريقة ولكن عليك بدأ تنفيذ البرنامج ب Trace Into حتى يتم تنفيذ التعليمة 

Application.Run لأن الإجراء Step Over يعتبرها تعليمة واحدة وينفذ البرنامج بعدها بالكامل 

. 

الأمر 

: Run To Cursor 

قد يكون أحيانا ً من الصعب تنفيذ البرنامج خطوة خطوة للوصول إلى مجموعة تعليمات نريد فحصها لذلك وجد هذا 

الأمر حيث يكفي أن تضع مؤشر الكتابة في السطر البرمجي الذي تريد ثم تختار الأمر 

القائمة Run أو الضغط على F4 عندها سيتم تنفيذ البرنامج حتى التعليمة التي وقفت عندها 

Run To Cursor 

. 

من 

ملاحظة : لا تستخدم هذه الطرق الثلاث لمعرفة قيم المتغيرات فحسب ، فهي تستخدم في البرامج الكبيرة وخاصة 

عندما يعطي البرنامج في أماكن معينة نتائج غير متوقعة أو نتائج غير المطلوبة ، حيث تقوم هذه الأوامر بإعطائك 

معلومات عن سير البرنامج ومعرفة النقطة التي يحدث فيها الخلل،‏ كما أن دلفي قد تعطيك بعض رسائل الأخطاء 

التي لا يمكن تحديد مكانها بسهولة 

نقاط التوقف 

. 

: 

تستخدم نقاط التوقف لإيقاف البرنامج في نقاط محددة حيث يستمر تنفيذ البرنامج حتى وصول البرنامج إلى السطر 

المحدد وتختلف نقاط التوقف عن الأمر Run To Cursor بأننا نستطيع إضافة عدد كبير من نقاط التوقف في 

. البرنامج 

ولإضافة نقطة توقف في البرنامج نضع المؤشر في السطر المراد التوقف عنده ونختار الأمر 


Add Breakpoint 

Run 

ثم الضغط على Ok في صندوق الحوار أو الضغط على F5 أو الضغط على يسار السطر 

بالفأرة وتتميز السطور المعلمة بنقاط توقف بلونها الأحمر 

. 

سنتعلم الآن كيفية التعامل مع نقاط التوقف وسنتعلم لاحقا ً كيفية الاستفادة منها 

. 

66


: 


التعامل مع نقاط التوقف 

1 عرض جميع نقاط التوقف : 

يمكن توزيع نقاط التوقف في كل وحدات البرنامج بنفس الوقت ولعرض قائمة بجميع أوامر التوقف نختار من 

القائمة View 

View Debug Window Breakpoints 

حيث تظهر نافذة تظهر نافذة تخبرك باسم الوحدة الموجودة فيها نقطة التوقف وفي أي سطر من الشيفرة . 

2 تعطيل نقاط التوقف : 

يمكن تعطيل نقاط التوقف مؤقتا ً بالضغط على الدائرة الحمراء بزر الفأرة اليميني والضغط على الخيار Enable 

من القائمة المنبثقة حيث يتحول لون نقطة التوقف إلى اللون الأخضر ويمكن إعادة النقطة إلى العمل بتكرار العملية 

3 حذف نقطة توقف : 

يتم حذف نقطة التوقف بالطريقة التي تم إنشاءها بها ) 

أي بإمكانك الضغط على الدائرة الحمراء بزر الفأرة اليساري 

أو الضغط على .... F5 ( 

يمكن حذف جميع نقاط التوقف عن طريق View Debug Window Breakpoints ومن 

عرض الائحة 

ثم الضغط على إحدى النقاط في اللائحة بزر اليمين للفأرة واختيار الأمر .... Breakpoint Delete All 

4 استخدام نقاط توقف شرطية : 

يمكنك تحديد شرط لنقطة التوقف حيث لا يتوقف البرنامج إلا إذا حصل هذا الشرط ) 

مثلا ً في المثال السابق وصول 

المتحول ( 500 

j إلى القيمة 

ويتم ذلك عن طريق الضغط بزر الفأرة اليميني على النقطة الحمراء ومن ثم اختيار 

j = 

) 

Condition ومن ثم كتابة الشرط في القسم Breakpoint Properties 

في النافذة مثلا ً أكتب الشرط 

( 500 

5 استخدام عدد مرات العبور : 

يمكن أن نطلب من البرنامج أن يقف عن نقطة التوقف عند تنفيذها لعدد معين من المرات،‏ ويتم ذلك عن طريق 

الضغط بزر الفأرة اليميني على النقطة الحمراء ومن ثم اختيار 

Breakpoint Properties ومن ثم كتابة عدد 

المرات المطلوبة في القسم Pass count 

Pass Count ب 

مثلا ً أضف نقطة توقف عن السطر 

listbox1.Items.Add(s) ثم حدد 

100 نفذ البرنامج الآن 

وستلاحظ توقف البرنامج عن العمل عندما تنفذ الحلقة 100 مرة . 

مراقبة التعابير والمتحولات : 

تستخدم المراقبة لمعرفة قيم تعابير ومتحولات محددة أثناء سير البرنامج ‏،ولإضافة نقطة مراقبة اتبع 

إحدى الطرق 


1 حدد المتحول الذي تريد إضافة نقطة مراقبة له واضغط بزر الفأرة اليميني وأختر الأمر Debug Add 

Watch at Cursor 

2 اختر Add Watch من القائمة 

Run أو اضغط 

. Ctrl F5 

3 إظهار النافذة Watch List من القائمة View Debug Windows watches View 

67


. Expression 


عندئذٍ‏ سيظهر صندوق الحوار التالي حيث يمكنك كتابة القيمة المراد مراقبتها في القسم 

بعد إضافة المتحولات المطلوب مراقبتها عليك تنفيذ البرنامج خطوة خطوة أو استخدام نقاط التوقف،‏ حيث ستبقى 

. 

نافذة المراقبة مفتوحة وتعطيك قيمة المتحولات في كل لحظة 

يتوقف فيها البرنامج 

التعامل مع عناصر المراقبة ‏:أفتح أولا ً لائحة عناصر المراقبة عن طريق 

watches 

يمكنك تعطيل عنصر مراقبة عن طريق الضغط عليه بزر الفأرة اليميني واختيار الأمر 

View Debug Windows : 

، Disable ولحذف عنصر 

مراقبة نهائيا ً نختار . Delete 

للتغير في عنصر المراقبة نختار الأمر Edit Watch فتظهر النافذة : 

حيث 

Expression هو التعبير المراد مراقبته 

ونستطيع هنا أن نكتب تعبرا ً ما فرضا ً يمكن 

مراقبة قيمة 

i+j رغم أن هذه التعليمة غير 

موجودة في سطور البرنامج . 

: Repeat Count تستخدم مع الأنساق 

والسجلات فبفرض لدينا مصفوفة من أربع 

عناصر فنكتب في القسم Expression أسم 

الم صفوفة وف ي الحق ل 

4/ عندها ستظهر جميع عناصر المصفوفة أثناء المراقبة . 

Repeat Count القيمة / 

كما يمكن تحديد كيفية ظهور المعطيات من جزء النافذة في الأسفل فاختيار 

Hexadecimal سيظهر قيمة المتحول 

في النظام الست عشري ويحدد الحقل 

Digits عدد الأرقام بعد الفاصلة عند إظهار الرقم بالفاصلة العائمة 

. Floating Point 

رؤية استدعاء الروتينات : 

يمكننا مشاهدة المكدس الذي يحوي على استدعاء الاجراءات عن طريق 

Stack 

حيث يتوضع في أعلى النافذة التابع المستدعى حاليا ً والسطر الذي يليه التابع الذي قام باستدعائه . 

View Debug Windows call 

Add ( 10 ) ; 

: 

مثال : 

اكتب في حدث الضغط على زر التعليمة التالية 

Procedure Add ( x ) ; 

: 

وعرف الإجراء 

Add بالشكل التالي 

Begin 

X := x +1; 

If X < 50 then Add ( x ) ; // 50 

End; 

سيعيد هذا التابع تنفيذ نفسه حتى وصول المتحول إلى القيمة 

نفذ الآن البرنامج خطوة خطوة ولاحظ تغير 

. النتائج 

68


الجلسة الثاثثة عشر 

ما هي قاعدة المعطيات؟:‏ 


) 

قاعدة المعطيات Database هي تركيب تستطيع من خلاله تخزين كمية ً ضخمة ً من المعطيات التي تربطها علاقات 

معينة،‏ وحقيقة ُ الأمر،‏ فإن قاعدة المعطيات ما هي إلا ملف ّ File أو مجموعة ملف ّات ت ُخزن على القرص الصلب 

Hard Disk ككلّ‏ الملف ّات العادية،‏ ولكن ما يميزها عن باقي الملف ّات،‏ هو قدرتك على كتابة المعطيات فيها 

وقراءتها منها،‏ باستخدام الوسائل التي تمنحها لك برامج قواعد المعطيات،‏ دون الحاجة إلى التعامل مع الملف ّ 

مباشرة ً،‏ وهو ما يجعل الأمر أكثر سهولة ً وتنظيما بالنسبة لك.‏ 

ولا مانع أن تخزن بياناتك في ملف ّ خاص بك بالطريقة التي تريحك،‏ ولكن استخدام قواعد المعطيات يوف ّر لك 

الكثير من الوقتِ‏ والجهد.‏ 

في بدايات قواعد المعطيات كان كل مبرمج ينشئ ملف معطيات خاص به ويقوم بالتعامل مع هذا الملف بالطرق 

التي تتيحها لغات البرمجة للتعامل مع الملفات 

) 

سنتعرف عليها لاحقا ً 

( 

( ملفات ) 

ولكن مع الوقت تطورت قواعد البيانات 

وأصبح المستخدمون بحاجة إلى قواعد بيانات ذات حجم كبير و إلى القدرة إلى الحصول على المعلومات المطلوبة 

بشكل سريع بالإضافة إلى إمكانية التشارك على المعلومات أي إمكانية إدخال المعلومات والحصول عليها من ملف 

قواعد المعطيات من قبل عدة مستخدمين بنفس الوقت،‏ الأمر الذي جعل من المستحيل أن يقوم مبرمج 

عادي بتحقيق هذه الشروط 

( 

وهناك أنواع كثيرة من قواعد المعطيات،‏ تبعا للشركة التي تنتجها والبرامج التي تنشئها،‏ فهناك قواعد بيانات 

برنامج 

Access وبرنامج 

شركات أخرى.‏ 

وتسمى هذه البرامج ‏"أنظمة إدارة قواعد المعطيات"‏ 

SQL Server وهما من إنتاج ميكروسوفت،‏ وهناك عشرات البرامج غيرهما من إنتاج 

(DBMS) ،Database Management Systems ومهمتها 

الأساسية أن تمنحك الوسائل والأدواتِ‏ اللازمة لإنشاءِ‏ قواعدِ‏ المعطيات والتعاملِ‏ معها،‏ بأسهلِ‏ طريقةٍ‏ وأفضلِ‏ 

إمكانيات،‏ بحيث ُ تقوم بدور الوسيط بينك وبين المعطيات المخزنة في ملف ّ قاعدة المعطيات.‏ 

ومهما كان نوع قاعدة المعطيات التي تتعامل معها،‏ ومهما كانت طريقة تخزينها في الملف ّ،‏ فإن كلّ‏ قواعد 

المعطيات تتبع قواعد أساسية وتحق ّق شروطا معينة متعارفا عليها دوليا،‏ كما أن ّها كل ّها بلا استثناء تستخدم ‏"لغة 

الاستعلام المرك ّبة"‏ (SQL) ،Structured Query Language وهي لغة خاصة لحفظ واسترجاع وتحديث 

المعطيات في قواعد المعطيات.‏ 

: التالي 

مما تتألف قواعد المعطيات:‏ 

العنصر الأساسي في أي قاعدة بيانات هو الجدول ويتألف الجدول من أعمدة وأسطر يدعى كل سطر سجل وكل 

عمود بحقل وبالتالي فإن السجل مكون من عدة حقول،‏ لنفرض أنه لديك قاعدة بيانات لمكتبة فسيكون لديك الجدول 

69



( أسماء الحقول ) أسماء الأعمدة 

رقم الكتاب 

اسم الكتاب 

اسم المؤلف 

تاريخ 

دار النشر 

السجل الحالي 

الإصدار 

الحقل الحالي 

1997/1/2 

لغة البرمجة 

ياسر عقاد 

دار شعاع 

1255 

دلفي 

محمد حمدي 2002/2/9 

غانم 

كتاب 

إلكتروني 

VB.Net 

1256 

سجلات 

1944/3/3 

شجرة الحكم 

توفيق الحكيم 

مصر 

1257 

2000/4/2 

الأي دي 


مصر 

1258 

الناعمة 

1990/3/12 

شهرزاد 

الحكيم توفيق 

مصر 

.( 

ملاحظة : ) 

المعلومات في هذا الجدول غير دقيقة 

: السجل الحالي 

هو السجل الذي يقف مؤشر قاعدة البيانات عنده والحقل الحالي هو تقاطع السجل الحالي مع 

العامود الحالي حيث يمكنك دائما ً تحرير قاعدة البيانات عند السجل الحالي وفي الحقل الحالي ) سنتآلف مع هذه 

المعلومات لاحقا ً 

.( 

يمكن أن تتكون قاعدة المعطيات من عدة جداول وهذه الجداول قد تكون مخزنة في ملف واحد 

أكسيس مثلا ً 

) 

( 

يعرف كل حقل 

أو أن يكون كل جدول في ملف على حدة كما في قاعدة بيانات بارادوكس 

. 

( عمود ) 

Integer أو 

وتاريخ الإصدار من النوع 

قاعدة بيانات 

في قواعد المعطيات نوع المعطيات التي سيحويها فمثلا ً الحقل رقم الكتاب من النوع 

LongInt حسب حجم المكتبة بينما أسم الكتاب و اسم المؤلف ودار النشر تكون من النوع نص 

. Date 

وأكثر من ذلك عندما نعرف الحقل من نوع نص علينا تحديد عدد الأحرف التي سيحويها هذا النص مثلا ً أسم 

الكتاب عشرين حرف علما ً أنه لا يسمح بكتابة أكثر من الحد المعطى ، كما أن حجم الحقل سيكون بحجم النص 

عشرين بايت 

) 

( 

سواء أكان أسم الكتاب من عشرين حرف أو أقل ، 

البيانات ، بالإضافة إلى قواعد البيانات التي تأخذ حقول متغيرة 

قواعد المعطيات العلائقية 

) 

. ( 

: 

سنتعرف لاحقا ً على أنواع الحقول في قواعد 

في الجدول السابق وضعنا أسم المؤلف ضمن الجدول ، ومن الممكنِ‏ أن يحتوى الجدول على أكثر من كتابٍ‏ لنفس 

المؤل ّف..‏ في هذه الحالة سيتم تكرار اسم المؤل ّف أكثر من مرة،‏ مما سيعمل على زيادة حجم قاعدة المعطيات،‏ 

وإبطاء عمليات البحث..‏ إذن ما الحلّ؟ 

الحلّ‏ هو تخصيص جدولٍ‏ للمؤل ّفين،‏ هذا الجدول يحتوي على رقم مسلسل ID لكلّ‏ مؤل ّف..‏ وفي جدول الكتب ننشئ 

عمودا نضع فيه رقم مؤل ّف الكتاب..‏ فمثلا لو كان رقم ‏(توفيق الحكيم)‏ في جدول المؤل ّفين هو 100، فإن خانة رقم 

70



المؤل ّف في جدول العناوين لا بد أن تكون 

100 لكلّ‏ من الكتب التالية 

‏"شهرزاد"‏ 

و"الأيدي الناعمة"‏ 

و"أرني االله"‏ 

: 

و"شجرة الحكم"‏ 

وسيصبح لينا جدولين بالشكل 




تاريخ 

دار النشر 

الإصدار 

1997/1/2 

لغة البرمجة 50 


1255 

دلفي 

2002/2/9 كتاب 

56 

VB.Net 

1256 

إلكتروني 

1944/3/3 

شجرة الحكم 100 

مصر 

1257 

2000/4/2 

الأيدي الناعمة 100 

مصر 

1258 

1990/3/12 

شهرزاد 100 

مصر 

جدول الكتب 

رقم المؤلف 

أسم المؤلف 

ياسر عقاد 

محمد حمدي غانم 


سعيد الصافي 

50 

56 

100 

114 

ولكي تستوعب مقدار التوفير في الحجم،‏ يجب أن تعرف أن كلّ‏ حرف في النص يخزن في بايت 

،Byte مما يعني 

أن النص 

‏"توفيق الحكيم"‏ 

يحتاج إلى 

12 بايت ، وتكراره أربع مرات يعني أن ّه يحتاج إلى 

48 بايت !.. بينما تخزين 

8 بيتات 

رقم يصل إلى 

32000 لن يحتاج إلا إلى بايتين فقط،‏ مما يعني أن تخزين رقم 

100 أربع مرات يحتاج إلى 

فقط..‏ 

طبعا الفرق واضح.‏ 

وليت َ الأمر يقتصر على هذا..‏ 

إن إنشاء عمود يحتوي على أسماء المؤل ّفين يقتضي تصميمه ليستوعب أطول اسم 

30 

من هذه الأسماء..‏ 

افترض أن أطول اسم لمؤل ّف هو 

20 حرفا،‏ في هذه الحالة لو كان جدول الكتب يحتوي على 

600 كيلو 

= 20 

ألف كتاب،‏ فإن هذا معناه أن عمود أسماء المؤّلفين يحتاج إلى × 30000 

600 ألف بايت ، أي 

بايت!‏ 

بينما لو استعضنا عن ذلك بعمود أرقام المؤل ّفين،‏ فإن ّه سيحتاج إلى 

60 ألف وحدة،‏ أي 

60 كيلو بايت فقط.‏ 

طبعا ستتساءل:‏ 

ولكن ّنا في كلّ‏ الأحوال سننشئ عمودا لأسماء المؤل ّفين بالإضافة لعمود رقم المؤل ّف في جدول 

المؤل ّفين..‏ 

نعم،‏ ولكن عدد المؤّلفين قد لا يزيد عن 

3 آلاف مؤل ّف 

‏(باعتبار أن كلّ‏ مؤل ّف له عشر كتب)،‏ وهو ما 

سيحتاج إلى 

66 كيلو بايت.‏ 

= (2 

+ 20) 

× 3000 

إذن فإن المجموع الكل ّي لمساحة التخزين في حالة تقسيم المعلومات على جدولين 

126 كيلو بايت،‏ 

= 66 

+ 60 

= 

أي حوالي خمس المساحة المستهلكة عند وضع أسماء المؤل ّفين في نفس جدول الكتب!‏ 

71



هذا بالإضافة إلى سرعة عملية البحث،‏ فالكمبيوتر يكون أسرع بكثير عند البحث عن رقم 100 عنه عند البحث عن 

النص 

‏"توفيق الحكيم".‏ 

ليس هذا فحسب..‏ 

افترض أن الذي يدخل أسماء المؤل ّفين أخطأ وكتب اسم 

‏(توفيق الحكيم)‏ 

كالتالي:‏ ‏"تفيق الحكيم"..‏ 

في هذه الحالة ما عليه إلا أن يعدل الخطأ مرة واحدة في جدول المؤل ّفين..‏ 

أما لو كانت أسماء المؤل ّفين في نفس 

جدول الكتب،‏ فإن تكرار كتابة اسم المؤل ّف يجعل احتمالات الخطإ أكبر،‏ بالإضافة إلى تضييع الوقت والجهد في 

كتابتها،‏ وصعوبة تعديلها كل ّها!‏ 

طبعا نفس هذا الكلام ينطبق على جدول دار النشر.‏ 

قاعدة هامّة:‏ 

كل ّما كان ممكنا،‏ قم بتقسيم المعطيات التي تتكرر أكثر من مرة على أكثر من جدول،‏ خاصة ً إذا كانت هذه المعطيات 

تستهلك مساحة تخزين كبيرة..‏ 

إن هذه العملية تسمى التطبيع 

،Normalization ولها الكثير من القواعد،‏ وإن كان 

. ( 

من الممكن استنتاجها منطقيا ) 

تدرس في قسم المادة النظري 

تسمى هذه القواعد التي تعتمد الطريقة السابقة بقواعد المعطيات العلائقية أو بقواعد المعطيات المترابطة 

:Relational Databases 

حيث قامت هنا علاقة بين جدولين وسيعتمد احدهما على الآخر في الحصول على معلوماته . 

رأينا في المثال السابق أن هناك علاقة ً 

Relationship بين جدولي الكتب والمؤل ّفين،‏ حيث إن الرابط بينهما هو 

حقل رقم المؤل ّف..‏ 

وهنا يجب أن تعرف هذه المصطلحات:‏ 

يسمى الحقل المشترك في كلا الجدولين .Key field 

‏"حقل مفتاحي"‏ 

- 

- يسمى حقل رقم المؤل ّف في جدول المؤل ّفين باسم 

‏"المفتاح الأساسي‏"‏ 

،Primary Key وذلك لأن ّه متفرد 

Unique غير قابل للتكرار..‏ 

ولا يحتوي الجدول على أكثر من مفتاح أساسي واحد.‏ 

- يسمى حقل رقم المؤل ّف في جدول الكتب باسم 

‏"المفتاح الفرعي‏"‏ 

،Foreign Key لأن ّه موضوع في هذا 

الجدول ليربطه بجدول آخر..‏ 

وطبعا يمكن أن تتكرر قيمة هذا العمود بدون أدنى مشكلة..‏ 

ويمكن أن يحتوى 

الجدول على أكثر من مفتاح فرعي يربطه بعدد من الجداول الأخرى.‏ 

- يسمى جدول المؤّلفين باسم 

‏"الجدول الرئيس ي"‏ 

،Master وجدول أسماء الكتب باسم 

‏"جدول التفاصيل"‏ 

..Join 

،Detail حيث يمكنك أن تحصل منه على معلومات عن الكتب المتوافرة لكلّ‏ مؤل ّف.‏ 

- تسمى عملية مطابقة الصفوف بين الجدولين المترابطين عن طريق الحقل المفتاحي‏،‏ عملية 

‏"ربط"‏ 

مثل أن تحاول معرفة اسم مؤل ّف كتاب معين،‏ أو أن تحاول أن تعرف كلّ‏ الكتب التي كتبها نفس المؤل ّف.‏ 

- تسمى العلاقة بين الجدولين علاقة 

يمكن أن يكون له أكثر من كتاب.‏ 

‏"واحد بمتعدد"‏ 

،One-to-many Relationship وذلك لأن مؤل ّف ًا واحدا 

- يمكن أن توجد علاقة 

‏"متعدد بمتعدد"‏ 

،Many-to-many Relationship وذلك لو كان لدينا كتب اشترك 

في تأليفها أكثر من مؤل ّف..‏ 

في هذه الحالة سيكون لدينا جدول ثالث هو جدول 

‏"مؤل ّفو الكتب"،‏ يحتوى على 

72 

عمود يمث ّل رقم الكتاب في جدول عناوين الكتب،‏ وعمود آخر يمث ّل رقم المؤل ّف في جدول المؤل ّفين،‏ 

كالتالي:‏



AuthorID 

23 

106 

8 

8 

BookID 

1 

1 

2 

3 

حيث اشترك المؤّلفان رقما 

رقمي 

23 و 

106 في تأليف الكتاب رقم 

2، بينما قام المؤل ّف رقم 

8 بتأليف الكتابين 

2 و ..3 

هذه هي علاقة متعدد بمتعدد.‏ 

صحّة المرجع 

:Referential Integrity 

ماذا سيحدث لو تم حذف سجلّ‏ توفيق الحكيم من جدول المؤل ّفين؟..‏ ستظلّ‏ هناك روايات في جدول الكتب تشير 

لسجلّ‏ توفيق الحكيم،‏ بينما هو محذوف..‏ إن هذا وضع مثالي لحدوث أخطاءٍ‏ مزعجة في تطبيقك!‏ 

والحلّ؟ 

يجب أن تراعي منطقية وصحة العلاقات المرجعية 

Referential Integrity 

بين الجداول،‏ فلو قمت بحذف سجلّ‏ 

توفيق الحكيم من جدول الكتب،‏ فيجب أيضا أن يتم حذف كلّ‏ الروايات والكتب التي أل ّفها من جدول الكتب.‏ 

عامة ً اطمئن‏،‏ فكما ذكرنا من قبل،‏ فإن برامج قواعد المعطيات مصممة لتريحك من معظم العمل اليدوي‏،‏ لهذا فهي 

ستعينك على التحق ّق من صحة العلاقات المرجعية بين الجداول،‏ كما سنرى بعد قليل.‏ 

العمليات على قواعد المعطيات 

: 

قاعدة المعطيات عبارة عن مخزن يتم فيه تخزين المعطيات ويجب أن يتمتع هذا المخزن بالخصائص التالية 

1 الإضافة 

2 الحذف 

3 التعديل 

: 

: 

أي إمكانية إضافة سجلات جديدة إلى الجداول 

. 

: 

أمكانية حذف قيم من الجداول دون أن يؤثر ذلك على القاعدة 

. 

: 

يجب أن نكون قادرين على تعديل حقول قاعدة البيانات ، أفرض مثلا ً أن هناك حقل في جدول 

يحوي على عدد النسخ من الموجودة من الكتب ، علينا أن نعدل هذا الحقل كلما إشترى أحد الزبائن كتابا ً ما 

4 البحث 

. 

: 

5 الترتيب والفرز 

يجب الحصول على المعلومة المطلوبة بأسرع وقت ممكن 

. 

: 

حسب أسم الكتاب أو حسب أسم المؤلف 

القدرة على إظهار البيانات للمستخدم بالشكل الذي يريد 

) 

. 

في جدول يمكن ترتيب الكتب 

عليك أن تعرف أيضا ً الفرق بين تخزين المعطيات والفائدة التي يمكن أن تجنيها من هذه المعطيات ، فالعمليات على 

المعطيات هي التي تعطي المعلومات والتي يحتاجها مستثمر قاعدة البيانات ليتخذ قراره،‏ تستخدم قواعد البيانات في 

بلادنا في مجال المحاسبة وإصدار الفواتير وفي مجالات الإحصاء على أكثر تقدير 

الاستفادة من المعلومات الإحصائية 

) 

( 

قليل من الشركات تعرف 

بينما تستخدم قواعد المعطيات في الخارج كالولايات المتحدة الأمريكية مثلا ً 

للحصول على كم هائل من المعلومات لا يمكن لإنسان عادي أن يتصوره ، افرض أن الزبون سعيد قد اشترى من 

المكتبة عدة كتب تتعلق بلغات البرمجة خلال سنة ، يتكون من هذه المعطيات أن سعيد يحب قراءة كتب البرمجة 

73


ويقوم صاحب المكتبة بإرسال إعلانات إلى سعيد كلما صدر مؤلف جديد في لغات البرمجة،‏ لنفرض أيضا ً أنه في 


أسبوع ما كثر الطلب على كتاب ما 

) Harry potter الكتاب الذي حصد أكبر مبيعات في العالم في الشهر السادس 

، عندها يقوم صاحب المكتبة بتعديل ترتيب الكتب الموضوعة على الرفوف ليكون 

هذا الكتاب على 

( 

2003 

الرفوف في واجه المكتبة 

.( طبعا ً لا يمكن تطبيق هذه الأمثلة عندنا هكذا ، لأن أي مكتبة في الولايات المتحدة يكون 

لها فروع في أكثر من ولاية ومدينة مما يعني عدد زبائن يفوق المليون زبون،‏ مما يعطي إحصائيات واسعة عن 

حركة البيع والشراء ( 

خطوات تصميم قواعد المعطيات : 

1 تحديد الغرض من قاعدة المعطيات . 

2 تحديد الجداول التي نحتاج إليها في قاعدة المعطيات . 

3 تحديد حقول الجداول التي نحتاج إليها . 

4 تعيين الحقول المفتاحية . 

5 تحديد العلاقات بين الجداول 

6 إدخال المعطيات . 

1 تحديد الغرض من قاعدة : 

المعطيات 

يجب المعرفة أولا ً ماذا يريد المستخدم من قاعدة المعطيات وثم معرفة المعطيات التي يجب تخزينها في القاعدة لأن 

أي زيادة في المعطيات سينتج عنه زيادة في حجم القاعدة بدون سبب ، وأي نقص في المعطيات سيتطلب منا تعديل 

الجدول فيما بعد والذي قد يؤدي بدوره إلى تعديل في الجداول المرتبة وبالتالي تعديل القاعدة بالكامل . 

2 تحديد الجداول التي نحتاج إليها في قاعدة المعطيات : 

بعد تحديد المعطيات المطلوب تخزينها يجب علينا العمل على تخطيط الجداول التي ستخزن هذه المعلومات . 

3 تحديد حقول الجداول التي نحتاج إليها : 

يجب 

أن لا يتضمن الجدول معلومات متكررة ‏،كما أنه لا يجب تكرار المعلومة الواحدة بين الجداول ، هذا يضمن 

تحديث المعلومة في مكانها ويقضي على احتمال إدخال معلومات متباينة لتلك المعلومة فيما لو وجدت في مكانين 

مختلفين . 

........ 

قواعد المعطيات في دلفي : ..... 

1 برامج قواعد المعطيات 

: هي البرامج التي تسمح للمستخدم بالتعامل مع المعطيات المخزنة ضمن قاعدة 

المعطيات،‏ وعند كتابة برنامج لقاعد معطيات يجب أن تكون على علم كاف ببنية قاعدة المعطيات التي تتعامل معها 

) 

الجداول والحقول 

( حيث يمكنك ذلك من تصميم الواجهات التي تسمح للمستخدم بتعامل مع هذه المعطيات 

) 

استعراض ، إضافة ، حذف ، بحث ....... ( . 

74 

2 أنواع قواعد المعطيات 

:


: 


اختيار نوع قاعدة المعطيات التي ستخدم يعتمد على ثلاث نقاط رئيسية 

1 حجم المعطيات التي سيحويه كل جدول . 

2 كم هو عدد المستخدمين الذين سيتشاركون العمل على هذه القاعدة . 

3 سرعة الأداء المطلوبة من قاعدة المعطيات . 

وعلى هذا المبدأ تقسم قواعد المعطيات إلى قسمين : 

أ قواعد المعطيات المحلية : 

تعمل قواعد المعطيات المحلية على جهاز واحد أو على شبكة محلية صغيرة ، وهي سريعة عمليا ً ولكنها أبطئ في 

حالات التشارك على قواعد المعطيات ) 

تصور عدد من الموظفين يقومون بإدخال الكتب الجديدة الواصلة إلى 

المكتبة بنفس الوقت ، عندها على قاعدة المعطيات العمل على جعل ذلك متاحا ً للموظفين ( 

تقوم قواعد المعطيات 

( 

المحلية على قفل الملف ) 

الجدول 

للمستخدم الحالي ومنع التعديل في هذا الجدول من 

قبل مستخدم آخر حتى ينهي 

( 

المستخدم الحالي تعديله ) 

يوجد خوارزميات كثيرة لتطبيق هذا العمل 

واعتماد قواعد المعطيات على هذا النوع من 

. ( 

القفل جعلها محدودة الحجم نوعا ً ما ) 

هناك عدد أعظمي للسجلات التي يمكن لقاعدة المعطيات التعامل معها 

سرية المعلومات في هذه القواعد ضعيفة جدا ً ويمكن كسرها بسهولة.‏ 

. Paradox, dBASE, FoxPro, and Access. 

كمثال على قواعد المعطيات المحلية لدينا : 

ب قواعد المعطيات الموزعة : 

( 

تسمح هذه القواعد لعدة مستخدمين ) 

آلاف المستخدمين 

بالتعامل مع الجداول وتستخدم خوارزميات معقدة لتحقيق 

Microsoft SQL 

ذلك ) 

جميع شركات الطيران في العالم موصولة إلى قاعدة بيانات واحدة)‏ 

، قاعدة معطيات 

Server تستخدم القفل على مستوى السجل أي تسمح لعدة مستخدمين بتعديل نفس الجدول بنفس الوقت ولكنها لا 

تسمح لهم بتعديل نفس السجل . 

يمكن أن يصل حجم قواعد المعطيات هذه إلى كميات هائلة ) 

بلغ حجم معطيات إحدى شركات التسويق في أمريكا 

( 3.6 TB كما أنه يمكن لقواعد المعطيات هذه أن توجد على أجهزة مختلفة . 

سرية المعلومات في هذه القواعد قوية جدا ً ، كما أنها تعطي سماحيات للمستخدمين ، فموظف المكتبة المسئول عن 

إدخال أسماء الكتب لا يحق له الإطلاع على كمية المبيعات ... 

تشترك قواعد المعطيات هذه باستخدامها للغة الاستفسارات البنيوية (SQL) Structured Query Language 

InterBase, Oracle, Sybase, Informix, Microsoft SQLserver, 

كمثال على قواعد المعطيات الموزعة لدينا : 

and DB2. 

3 بنية برنامج قواعد المعطيات:‏ 

يبن الشكل المجاور بنية تطبيق قواعد 

المعطيات 

والذي يتألف من 

أ واجهة المستخدم 

: وهي النوافذ 

التي يصممها المبرمج ليسمح 

للمستخدم بالتعامل مع المعطيات 

. 

75



ب عناصر الوصول 

: Data Access تستخدم للوصول إلى قواعد المعطيات وهي عبارة عن ربط بين 

) : 

عناصر التحكم بالمعطيات مع واجهة المستخدم . 

. 

ج عناصر التحكم بالمعطيات : 

تزود المستخدم بواجهة التعامل مع جداول المعطيات 

من المهم أن تلاحظ أن التطبيق 


( مستقل عن قاعدة المعطيات،‏ حيث توفر دلفي أدوات للوصول إلى 

) 

قواعد المعطيات ولالكنها لا تتدخل بكيفية تعامل القاعدة مع المعلومات المدخلة 

) عند إدخال سجل إلى جدول 

معطيات 

Oracle لا تهتم لغة البرمجة ولا حتى المبرمج بكيفية تخزين هذا السجل والطرق الخوارزمية المتبعة في 

ذلك و لا حتى طرق البحث ، فعمل لغة البرمجة هنا يقتصر على طلب أوامر محددة من قاعدة المعطيات والتي 

Data 

تقوم 

بدورها بتنفيذها وإعادتها إلى البرنامج وتدعى عناصر دلفي المسئولة عن ذلك بعناصر الوصول 

.Access 

76


الجلسة الرابعة عشر 

بناء تطبيقات قواعد المعطيات 


: 

يأتي مع دلفي قواعد معطيات جاهزة تستخدم كأمثلة على قواعد المعطيات وطرق التعامل معها،‏ لذلك سنتعامل مع 

هذه القواعد حتى يصبح الوقت جاهزا ً لإنشاء قواعدنا الخاصة 

مثال 

. 

: 1 

بناء نموذج فيه جدول وحيد 

: 

أسهل طريقة لكتابة برنامج قواعد المعطيات هي استخدام معالج النماذج 

( Form Wizard ) 

. Database 

للبدء بالعمل أنشئ مشروعا ً جديدا ً ثم أغلق النموذج الأول 

) الافتراضي ( 

عن طريق الأمر 


File Close أو 

التحويل إلى محرر الشيفرة والضغط على المفتاحين Ctrl+F4 ستظهر لك نافذة تسألك إن كنت تريد حفظ الوحدة 

. أجب بلا 

بهذه الطريقة نكون قد حصلنا على مشروع بدون نموذج أولي لأننا سننشئ هذه النافذة من خلال معالج النماذج 

اختر الأمر 

ستظهر النافذة التالية 

Database Form Wizard 

من قوائم الدلفي 

: 

: 

اترك الخيارات 

الافتراضية وستتعرف على خيارتها لاحقا ً 

اضغط على الزر 

. 

Next 

ستظهر عندها النافذة المجاورة والتي تطالبك 

بتحديد الجدول الذي سيتعامل معه النموذج ، 

لتحديد الجدول أختر DBDEMOS من القسم 

Drive or Alias Name ‏(سيشرح معنى ذلك 

لاحقا ً)‏ 

ستظهر جميع الجداول في القاعدة 

اختر منها الجدول 

DBDEMOS 

Country.db 

77



اضغط على 

. Next 

تظهر عندها النافذة المجاورة والتي تطالبك بتحديد 

الحقول التي تريد إظهارها في الجدول . 

لإظهار حقل ما أختر هذا الحقل واضغط على الزر 

> 

ولإظهار جميع الحقول اختر الزر > 

. ( >> 

أضف الآن جميع الحقول ) 

واضغط على Next للمتابعة 

ستظهر نافذة تطالبك بطريقة عرض البيانات : 

أفقي أو عامودي أو في جدول 

( In grid 

حدد الخيار في جدول ) 

واضغط على Next 

تظهر النافذة الأخيرة 

) خيارات هذه النافذة سيتم 

توضيحها لاحقا ً ( 

فعل الخيار Generate a main form 

إذا كان النموذج هو النموذج الرئيسي في برنامجك 


Finish لإظهار النموذج التالي 

. 

78



عند الانتهاء يظهر النموذج التالي : 

عنصر التحكم 

TDBnaviagtor 

عنصر الوصول 

TDataSouce 

عنصر الوصول 

TTable 

عنصر التحكم 

DBGrid 

لقد قام معالج النماذج بإنشاء نموذج وضع عليه عدد من عناصر التحكم بالمعطيات وعناصر أخرى للوصول إلى 

المعطيات . 

نفذ التطبيق الآن ولاحظ ما يلي : 

1 عناصر الوصول على المعطيات لا تظهر أثناء التنفيذ . 

2 يظهر عنصر الشبكة 

DBGrid بيانات الجدول المرتبط معه حيث أعمدة هذا الجدول هي أسماء الحقول 

وتكون ظاهرة في السطر الأول و سطور هذه الجدول هي السجلات ويوجد سهم صغير يدل على السجل 

الحالي،كما أن الحقل الحالي يكون مفعلا ً أسماء باللون الحقول الأزرق . 

مؤشر إلى السجل الحالي 

السجل الحالي 

79



يمكن أن نقوم نحن بوضع العناصر على نموذج فارغ للحصول على النموذج السابق بدون استخدام معالج الأشكال.‏ 

سنشرح الآن كل عنصر من هذه العناصر على حدى : 

العنصر : Table 

يستخدم هذا العنصر للربط بين البرنامج وقاعدة المعطيات وهو عنصر من مجموعة عناصر تدعى DataSet وهي 

عبارة عن عناصر لها القدرة على التعامل مع محرك قاعدة المعطيات للوصول للجداول ومن هذه العناصر . 

Table, Query, AdoTable, AdoQuery, 

في مثالنا يحتوي النموذج على عنصر واحد من النوع Table وقد ربطه معالج النماذج مع قاعدة المعطيات اعتمادا ً 

على الخصائص التالية : 

الخاصة 

القيمة 


القيمة 

DBDEMOS هي عبارة عن اسم معرف مسبقا ً يشير إلى مكان 

DBDEMOS 

DataBaseName 

تواجد 

مسار 

الجداول 

) نستطيع أن نكتب مسار فهرس قاعدة المعطيات 

( 

) 

بدلا ً منها 

اسم الجدول الذي سيرتبط مع العنصر 

) اسم العنصر 

يمكن إعطاء هذا العنصر اسم كأي عنصر آخر في دلفي 

country.db 

Table1 

TableName 

Name 

( 

أعط القيمة 

True لهذه الخاصة لتستطيع مشاهدة الجدول أثناء التصميم 

False 

Active 

العنصر : DataSource 

DataSet وعناصر 

يرتبط هذا العنصر مع العنصر 

Table ويستخدم هذا العنصر للربط بين عناصر الوصول 

التحكم بالمعطيات وله الخصائض التالية : 

الخاصة 

القيمة 


تجعل هذه الخاصة المعطيات في وضع التحرير 

أمكانية التعديل 

( أما 

) 

True 

AutoEdit 

إذا أردنا استعراض 

قراءة دون تغيير 

( المعطيات فقط فنعطي هذه 

) 

الخاصة القيمة False 

Datasource تحدد هذه الخاصة اسم العنصر الذي سيرتبط معه ال Table1 

Dataset 

للحصول على المعطيات 

اسم العنصر 

. 

) 

80 

يمكن إعطاء هذا العنصر اسم كأي عنصر آخر في دلفي 

Datasource1 

Name


( 


: ( DBGrid 

عنصر التحكم بالمعطيات ) 

يستخدم هذا العنصر لعرض وتحرير المعطيات ويرتبط مع العنصر 

Datasource ليحصل منه على أسماء الحقول 

وقيم الجدول وأعطاه معالج النماذج الخصائص التالية : 

الخاصة 

القيمة 


تحدد هذه الخاصة العنصر الذي سيزود 

اسم العنصر 

DBGrid بالمعطيات 

Datasource1 

Dbgrid1 

Datasource 

Name 

عنصر التحكم : DBNavigator 

يحوي هذه العنصر العديد من الأزرار مهمتها تحريك مؤشر السجل والقيام بأعمال الإضافة والحذف والتراجع عن 

التعديل ويرتبط هذا العنصر مع ال 

Datasource عن طريق الخاصة 

، DataSource اعط القيمة Trueللخاصة 

ShowHint التابعة لهذا العنصر . 

يضيف معالج النماذج أيضا ً سطر برمجي واحد في حدث إنشاء النموذج هو 

Table1.Open لفتح الجدول وإظهار 

. 

سجلاته ويمكن الاستعاضة عن هذه التعليمة بإعطاء الخاصة Active للعنصر Table القيمة True 

: ( 

Database Engine 

محرك قواعد المعطيات ) 

محرك قاعدة المعطيات يحدد أسلوب تعامل البرنامج مع القاعدة وهي عبارة عن مجموعة مكتبات جاهزة تربط بين 

عناصر الدلفي وقواعد المعطيات ومن أهم المحركات في دلفي : 

: Borland Database Engine 

1 : BDE 

يتعامل هذا المحرك مع عناصر الوصول الموجودة في الصفحة 

Bde ويتعامل مع قواعد معطيات من النوع 

Pardox أو Dbase وغيرها كثير . 

: Microsoft ActiveX Data Objects 

2 : ADO 

Access أو 

يتعامل هذا المحرك على العناصر الموجودة في 

الصفحة 

Ado ويستخدم مع قواعد معطيات مثل 

. Oracle أو SQL SERVER 

3 :Interbase 

يتعامل هذا المحرك على العناصر الموجودة في الصفحة 

Interbase Express ويستخدم مع قواعد معطيات 

Interbase التي يمكن تحميلها من القرص الذي توجد عليه دلفي . 

: 

مثال : 2 

بناء نموذج لإدخال المعطيات 

( Vertical 

أعد خطوات المثال السابق حتى تصل إلى النافذة التي تطالبك بطريقة عرض المعطيات ) 

اختر منها 

Finish ثم Next 

( Left 

وستظهر بعدها نافذة تسألك عن طريقة عرض عناوين الحقول ) 


أضغط على 

ليظهر النموذج التالي 

: 

81



لاحظ ظهور حقول المعطيات بدلا ً من الجدول وتظهر 

هذا الحقول في العناصر 

Dbedit والتي ترتبط مع 

قاعدة المعطيات عبر الخاصة Datasource 

نفذ البرنامج واستخدم 

DBNavegator للتنقل بين 

الحقول 

) السجل الحالي هو الحقل الذي تظهر قيمه 

داخل الحقول ( 

القيمة DataSource1 Datasource 

Datacontrole 


DBGrid من الصفحة 


DBEdit تبعا ً 

نفذ البرنامج وحاول التنقل بين السجلات في 

DBGrid بالفأرة ولاحظ كيف تتغير قيم الحقول في 

لتغير السجل الحالي . 

:( Master \ Detail Form ) 

مثال 

‎3‎‏:بناء نموذج من النوع الرئيسي تفصيلي 

وجدنا سابقا ً في مثال المكتبة كيف يمكن لمجموعة من الجداول أن ترتبط مع بعضها البعض لتشكل قاعدة معطيات،‏ 

كما وجدنا 

‏:كيف أن جدول المؤلفين هو جدول رئيسي بينما جدول الكتب هو جدول ثانوي وقلنا أن هذه هي علاقة 

رأس بأطراف أو واحد إلى مجموعة لنفترض الآن أن المستخدم بحاجة لمعرفة جميع الكتب التي كتبت من قبل 

مؤلف ما،‏ تدعى النماذج التي تقدم هذه المعلومات بالنماذج ذات النوع الرئيسي تفصيلي.‏ 

سنستخدم في مثالنا الآن معالج النماذج لإنشاء نماذج من هذا النوع وسنعتمد على الجدول الرئيسي Customer.db 

. 

والجدول التفصيلي 

Orders.Db وقبل البدء سأشرح كل من الجدولين 

جدول الزبائن 

يحوي معلومات عن الزبائن 

) رقم الزبون ، الأسم ، العنوان ، المدينة ، 

: Customer.db 

: 

الهاتف 

، المفتاح الرئيسي فيه هو رقم الزبون.‏ 

( ...... 

جدول الطلبات 

يحوي معلومات عن طلبات الزبائن 

) رقم الطلبية ، رقم الزبون ، تاريخ التسليم ، 

: Orders.db 

طريقة التسليم .... ( 

من الواضح أن المفتاح الرئيسي لهذا الجدول هو رقم الطلبية ، كما أن هناك مفتاح ثانوي هو رقم الزبون ( . 

سننشئ الآن نموذجا ً يظهر فيه جدولي الزبائن والطلبيات ولكن السجلات الظاهرة في سجل الطلبيات هي السجلات 

التابعة للزبون الحالي في جدول الزبائن . 

ابدأ مشروعا ً جديدا ً،‏ أغلق النموذج الافتراضي ، اختر الأمر Database Form Wizard 

82


من النافذة الأولى للمعالج حدد الخيار Create Master Detail Form من القسم 

Next 

النافذة الثانية تطالبك بإدخال الجدول الرئيسي حدد DBDEMOS في Driver or alias name 


Form Option واضغط على 

واختر الجدول 

Customer.db ومن النافذة التي تليها حدد جميع حقول هذا الجدول ، وفي النافذة التالية حدد طريقة العرض 

بجدول 

. in a grid 

النافذة التالية تطالبك بتحديد الجدول التفصيلي أختر 

وطريقة العرض جدول 

تظهر بعدها النافذة المجاورة 

Orders من 

) 

اختر من القسم 

CustNo Availableالقيمة Indexes 

واختر من اللائحة 

Master Fields القيمة 

CustNo 

ومن اللائحة Detail Fields القيمة CustNo 

إضغط بعدها على 

Add ثم على 

Next ثم على 

Next مرة أخرى ‏.سيظهر عندها النموذج رئيسي 

: تفصيلي 

نفذ البرنامج وتنقل بين حقول الجدول 

حظ التغيرات على الجدول 

Master ولا 

... Detail 

DBDEMOS واختر بعدها جميع الحقول 

لقد أضاف معالج النماذج هنا عنصري Table بالإضافة إلى عنصري Datasource وقام بالربط بينهما في 

الحقول التالية 

في العنصر 

الخاصة 

: 

Tabel2 

الشرح 

القيمة 

Datasource1 MasterSource 

CustNo IndexName 

يعرف عنصر DataSource المرتبط مع الجدول الرئيسي 

يحدد الحقل الذي سيقوم بترتيب وفهرسة السجلات في الجدول 

: 

: 1 مثال 

بعد أن تعلمنا كيفية تنفيذ تطبيقات قواعد باستخدام معالج النماذج سنعيد الأمثلة السابقة باستخدام العناصر مباشرة 

سنقوم بكتابة برنامج يعرض الجدول Country.db الموجود ضمن القاعدة 

ابدأ مشروعا ً جديدا ً وأضف إلى النموذج العناصر التالية 

1 العنصر Table من الصفحة 

DBDemos 

: 

BDE 

_ 2 

العنصر DataSource من الصفحة 

. Data Access 

83



. Data Control 

3 العنصر DBGrid و 

DBNavigator من الصفحة 

: 

أعط العنصر 

Table الخصائص التالية 

الخاصة 

القيمة 


القيمة 

DBDEMOS هي عبارة عن اسم معرف مسبقا ً يشير إلى 

DBDEMOS 

DataBaseName 

مكان تواجد 

) 

مسار ( 


نستطيع أن نكتب مسار فهرس قاعدة المعطيات 

) 



أعط القيمة True لهذه الخاصة لتستطيع مشاهدة الجدول أثناء التصميم 

country.db 

True 

TableName 

Active 

: 


DataSource الخصائص التالية 

الخاصة 

القيمة 


تجعل هذه الخاصة المعطيات في وضع التحرير 

أمكانية التعديل 

( أما 

) 

True 

AutoEdit 

إذا أردنا استعراض 

قراءة دون تغيير 

( المعطيات فقط فنعطي هذه 

) 

الخاصة القيمة False 

Datasource تحدد هذه الخاصة اسم العنصر الذي سيرتبط معه ال Table1 

Dataset 

للحصول على المعطيات . 

: 

أعط العنصر DBGrid والعنصر 

DBNavigator الخاصة التالية 

الخاصة 

القيمة 


تحدد هذه الخاصة العنصر الذي سيزود 

DBGrid بالمعطيات 

Datasource1 

Datasource 

نفذ البرنامج . 

مثال : 2 

إنشاء Master Detail Form بدون استخدام المعالج : 

ابدأ مشروعا ً جديدا ً وأضف إليه عنصري Table وعنصري DataSource وعنصري DBGrid وعنصر 

. DBNavigator 

: ( Master 

1 ربط الجدول الرئيسي ) 

: 


Table1 الخصائص التالية 

الخاصة 

القيمة 


القيمة 

DBDEMOS هي عبارة عن اسم معرف مسبقا ً يشير إلى 

DBDEMOS 

DataBaseName 


مسار 


) نستطيع أن نكتب مسار فهرس قاعدة المعطيات 

( 

) 


84



Customers.db 

True 

TableName 

Active 


أعط العنصرين 

. القيمة Table1 DataSet الخاصة DataSource1 



. القيمة DataSource1 DataSource الخاصة و DBNavigator1 DBGrid1 

2 ربط الجدول التفصيلي 

: Detail 

أعط العنصر Table2 الخصائص التالية 

) 

: 


الخاصة القيمة 

القيمة DBDEMOS هي عبارة عن اسم معرف مسبقا ً يشير إلى 


) الجداول ( مسار 

DBDEMOS DataBaseName 

order.db TableName 

True Active 



. القيمة Table2 DataSet الخاصة DataSource2 

نستطيع أن نكتب مسار فهرس قاعدة المعطيات 




. القيمة DataSource2 DataSource الخاصة DBGrid2 

بهذا نكون قد ربطنا العناصر مع الجدول ولآن علينا أن نعلم الجدول Table2 أنه جدول تفصيلي للجدول 

. Table1 


Table2 الخاصة MasterSource القيمة 

Datasouce1 و الخاصة 

MasterField القيمة 

CustNo 

85



الجلسة 

الخامسة عشر 

بناء قواعد البيانات : 

يوجد العديد من برامج بناء قواعد البيانات ويعتمد الأمر على نوع القاعدة التي تريد استخدامها فلبناء قاعدة محلية 

Oracle 

( 

Paradox 

تستخدم جداول باردوكس ) 

هناك البرنامج 

Borland Paradox ولبناء جداول تستخدم 

هناك البرنامج 

Oracle 9i وهكذا وقد زودتنا دلفي بأداة سهلة لإنشاء قواعد البيانات وتعديل الجداول بدون العودة 

إلى تلك البرامج،‏ حيث يوجد ضمن مجموعة أدوات دلفي البرنامج 

Database Desktop الذي يمكن عن طريقة 

تصميم العديد من أنواع جداول البيانات . 

: DataBase Desktop 

أفضل طريقة لتعلم هذا البرنامج هي نبدأ بمثال : 

المطلوب إنشاء جداول تتعلق بحركة الركاب في المطار باستخدام جداول الباردوكس وهذه الجداول هي 

جدول المسافرون 

اسم الحقل نوع الحقل الشرح 

: 

GoFrom 

( Passengers ) 

Pno 

Pname 

Nationality 

PassNo 

عدد 

نص 

نص 

عدد 

* 

رقم المسافر 

اسم المسافر 

الجنسية 

رقم جواز 

السفر 

ArriveTo 

GoTime 

ArriveTime 

CardCount 

بلد المغادرة 

نص بلد الوصول 

نص وقت المغادرة 

تاريخ ووقت وقت الوصول 

تاريخ ووقت عدد البطاقات 

عدد المتوفرة 

اسم الحقل 

Pno 

TripNo 

SeatNo 

ClassNo 

جدول المسافرون والرحلات 

TripsAndPassengers 

نوع الحقل 

عدد 

عدد 

عدد 

عدد 

الشرح 

رقم المسافر 

رقم الرحلة 

رقم المقعد 

رقم الصف 

( Trips 

جدول الرحلات ) 


نوع الحقل 

عدد 

نص 

الشرح 

رقم الرحلة 

اسم الشركة 

* 

TripNo 

Company 

86



. 

تدل النجمة 

( * ) 

وتبين الأسهم طريقة ربط الجداول 

رقم المقعد يجب أن يأخذ قيمة بين 

على أن هذا الحقل مفتاح رئيسي 

. 

. 

1 و . 200 

1 في البداية أنشأ الفهرس AirLines على القرص C حيث سيتم وضع قاعدة البيانات في هذا الفهرس 

2 تشغيل البرنامج : Database Desktop 

يمكنك تشغيل البرنامج خارج إطار دلفي عن طريق القائمة 

Start Programs Borland Delphi Database Desktop 

أو من داخل دلفي عن طريق القائمة Tools Database Desktop 

2 تحديد فهرس العمل 

: 

إن فهرس العمل في قواعد البيانات يعني المكان الذي سيبحث فيه 

البرنامج عن الملفات وسيكون هو الفهرس الافتراضي وسيظهر 

ضمن صندوقي فتح وحفظ الملفات ، ولتحديد الفهرس الافتراضي 


File Working Directory 

فتظهر عندها النافذة ، اضغط على الزر Browse واختر 

AirLines 

اضغط بعدها على ok للخروج . 

C:\ 

3 تعريف اسم بديل 

87 

: Alias 

قلنا أن الاسم البديل عبارة عن أسم يستخدمه النظام 

للوصول إلى فهرس قاعدة البيانات ولتعريف اسم بديل 

للفهرس C:\AirLines نختار الأمر 

من القائمة Tools في البرنامج 

Alias Manger 

Database Desktop 

: 

اضغط على الزر New واكتب في اللائحة 

Database 

Alias 

السلسلة ) Travel ( 

وفي اللائحة 

) STANDARD القيمة Driver Type



تحدد هذه اللائحة نوع قاعدة البيانات المستخدمة وتعطى القيمة 

Standard إذا كانت قاعدة البيانات من النوع 

بارادوكس ). 

( Browse 

) Path 

حدد بعدها مسار 

القاعدة 

C:\AirLiens في القسم 

يمكن أن تكتبه كتابة أو تختار الزر 

اضغط بعدها على الزر Keep New لإضافة القاعدة الجديدة إضغط بعدها على الزر 

Ok ستظهر رسالة تسألك إن 

. 

كنت تريد حفظ التغيرات في IDAPI32.CFG عليك أن تجيب على 

Yes لحفظ القاعدة الجديدة 

ملاحظات : 

1 يستخدم الاسم البديل في لغات البرمجة لإعطاء المستخدم الحرية في اختيار مكان تخزين قاعدة البيانات،‏ لاحظ 

إن معظم البرامج تعطي المستخدم حرية في اختيار مكان وضع البرنامج أثناء التنصيب،‏ تصور مثلا ً أنك لم 

تستخدم الاسم البديل وأعطيت الخاصة 

DatabaseName للعنصر Table القيمة C:\AirLiens عندها عليك 

أن تضع قاعدة البيانات في هذا الفهرس على جميع الأجهزة التي ستستخدم برنامجك . 

2 إحدى فوائد الاسم البديل الأخرى هي العودة إلى جداول سابقة وخاصة في برامج المحاسبة،‏ تصور إن 

المستخدم يريد العودة إلى مدخلات سنة 

حيث كان قد حفظها على الفهرس 

1998\:D عندها عليك تغير 

1998 

مسار الاسم البديل فقط دون التغير في البرنامج . 

3 يمكن إنشاء وحذف الاسم البديل برمجيا ً . 

في النافذة السابقة 

Alias Manger في حال إزالة الخيار 

Public Alias سيتم تعريف Alias جديد في 

4 

. 


Database Desktop فقط ولا يمكن الوصول إلى هذا ال 

Alias من الدلفي مثلا ً 

. 

: 

5 يستخدم الزر 

البدء بجدول جديد 

Remove لحذف اسم بديل 

للبدء بجدول جديد اختر الأمر File New Table 

تظهر النافذة المجاورة لتحديد نوع الجدول حيث يمكن إنشاء العديد من 

أنواع قواعد البيانات باستخدام البرنامج ) Database Desktop 

اضغط على زر اللائحة لمشاهدة هذه الأنواع 

، اختر من اللائحة 

Paradox7 واضغط على موافق.‏ 

( 

معظم العمل في البرنامج Database 

Desktop يتم في هذه النافذة لذلك 

ستشرح بشيء من التفصيل 

جدول الحقول : Field roster 

يتم في هذا الجدول 

تعريف حقول الجدول 

وتتألف من 

1 اسم الحقل 

: Field Name 

88



يوضع في هذا القسم اسم الحقل،‏ وأسماء الحقول في جداول الباردوكس يجب أن لا تتجاوز 25 حرف،‏ كما يمكن 

أن تحتوي على فراغات ويمكن أن يكون اسم الحقل باللغة العربية ولكن ينصح باستخدام أسماء حقول إنكليزية دائما ً 

وعدم احتوائها على فراغات وخاصة عند استخدام 

، SQL كما يجب الابتعاد عن بعض الأسماء المحجوزة في لغة 

... Date أو From أو SELECT مثل SQL 

2 نوع الحقل : Type 

يصف هذا الحقل نوع المعطيات الذي سيخزن في هذا الحقل وهناك عدد من الأنواع التي يمكن أن ينتمي إليها 

Space 

الحقل ولمعرفة هذه الأنواع إضغط بزر الفأرة اليميني في العمود 

Type أو اضغط على مفتاح المسافة 

: 

Paradox 

عندما يكون العمود 

Type فعالا ً ، والجدول التالي يبين الأنواع التي توفرها جداول 

النوع 

الحجم 

الرمز 


A نص عادي يمكن أن يحتوي رموزا ً أو أرقام ويحدد حجم الحقل طول 

255 

– 

1 

Alpha 

السلسلة التي سيأخذه الحقل 

N عدد حقيقي 

Number 

$ نفس النوع السابق ولكن بصيغة مالية 

Money 

Integer عدد صحيح طويل بطول بايتين من النوع S 

Short 

Longint عدد صحيح طويل من النوع I 

Long Integer 

عدد صحيح عشري مضغوط ) 

التمثيل الثنائي لإعداد الفاصلة 

# 

0 .. 32 

BCD 

(1) 

العشرية ( 

D تاريخ 

Date 

T وقت 

Time 

@ يدمج التاريخ والوقت في حقل واحد 

TimeStamp 

( 2 ) 

M نص بحجم كبير.‏ 

1..240 

Memo 

نص بحجم كبير مع تخزين طريقة تنسيق هذا النص ) 

نوع الخط 

لون النص و 

( 2 ) 

(.. 

F 

0.. 240 

Formatted 

Memo 

( 3 ) 

G صورة 

0..240 

Graphic 

( 3 ) 

Excel مثلا ً ( 

يمثل حاوية لربط وإدراج الكائنات ) 

إدراج ملف 

O 

0..240 

OLE 

False أو True يمثل قيمة منطقية L 

Logical 

+ عدد صحيح طويل يزداد تلقائي ًا 

Auto increment 

( 3 ) 

.Mb يخزن المعلومات ثنائيا ً داخل ملفات B 

0..240 

Binary 

Db معطيات بالصيغة الثنائية تخزن ضمن ملف قاعدة البيانات Y 

1..255 

Byte 

: ( 1 

) الرقم في العمود حجم تحدد عدد الأرقام بعد الفاصلة 

89



يستخدم النوع 

Memo في حال النصوص التي يبلغ حجمها أكثر من 

255 حرف وتخزن عادة خارج ملف 

: ( 2 ) 

الجدول في ملفات ذات امتداد 

MB ويدل الرقم المدخل في عمود الحجم على عدد الأحرف الذي سيخزن داخل 

ملف الجدول 

بفرض أعطينا القيمة 

30 في عمود الحجم عندها في حال أدخل المستخدم 

30 حرف أو أقل 

) .Db 

ستخزن البيانات داخل ملف القاعدة أما إذا إدخل المستخدم أكثر من 

30 حرف ستخزن عندها البيانات داخل ملف 

من النوع .Mb 

( 3 يمكن عدم تحديد حجم هذا النوع . 

) 

حجم الحقل 

Size كما هو ملاحظ في الجدول السابق هناك بعض أنواع الحقول بحاجة لتحديد حجمها لنأخذ 

3 

، 20 نستطيع 

مثالا ً على ذلك الحقل من نوع 

Alpha بفرض أنه عرفنا حقل اسم المسافر من النوع A وبحجم 

عندها إدخال أسماء المسافرين ذات طول عشرين حرف أو أقل أما إذا كان اسم أحد المسافرين أطول من عشرين 

حرف فسيتم تخزين العشرين حرف الأولى وتجاهل الباقي ، مشكلة أخرى يمكن أن تظهر ، بفرض أن اسم أحد 

المسافرين مكون من عشرة أحرف 

محمد آغا 

" مثلا ً فإن اسم هذا المستخدم سيخزن في القاعدة بحجم عشرين 

" 

بايت ، أي أنه جميع حقول العمود في جدول الباردوكس تأخذ نفس الحجم مهما كان طول المعلومات المدخلة . 

المفتاح الرئيسي 

الأساسي 

: Key اضغط بزر الفأرة الأيسر في هذا الحقل إذا أردت أن يكون هذا الحقل 

( 

) 

4 

: 

مفتاح رئيسي وإذا أردت مزيد من المعلومات عن 

حول المفاتيح الأساسية 

المفاتيح الرئيسية اقرأ الفقرة التالية 

تأتي فاعلية نظام قاعدة البيانات العلائقية من القدرة على العثور على المعلومات المخزنة في جداول منفصلة بسرعة 

وتجميعها معا ً باستخدام استعلامات ونماذج وتقارير.‏ 

لكي يتم ذلك،‏ يجب أن يحتوي كل جدول على 

حقل أو 

مجموعة حقول تقوم بتعريف كل سجل مخزن في الجدول بشكل فريد،‏ وتسمى هذه المعلومة المفتاح الأساسي 

للجدول(‏ 

رقم المسافر يعرف المسافر بشكل فريد ، كذلك رقم الرحلة يعرف رحلة وحيدة أي بمجرد معرفة رقم 

الرحلة نستطيع معرفة المعلومات المتعلقة باسم شركة الطيران وبلد المغادرة وبلد الوصول وساعة المغادرة وساعة 

الوصول .. ( 

متى قمت بتعيين مفتاحا ً أساسيا ً للجدول،‏ يمنع إدخال أي قيم مكررة أو قيم 

‏"خالية"‏ 

Null في حقول المفتاح الأساسي.‏ 

هناك ثلاثة أنواع من المفاتيح الأساسية التي يمكن تعريفها : 

المفاتيح الأساسية من نوع الترقيم التلقائي 

يمكن إعداد حقل الترقيم التلقائي لإدخال رقم تسلسلي تلقائيا ً عند إضافة كل سجل إلى الجدول.‏ 

تعد أبسط طريقة 

لإنشاء مفتاح أساسي هي تعيين مثل هذا الحقل كمفتاح أساسي ولتعريف حقل ترقيم تلقائي اختر Auto 

. Increment 

المفاتيح الأساسية من نوع الحقل المفرد : 

إذا 

كان لديك حقلا ً يتضمن قيم فريدة مثل رقم الهوية الشخصية،‏ يمكنك تعيين هذا الحقل على أنه المفتاح الأساسي.‏ 

ويمكنك تحديد مفتاح أساسي لحقل يحتوي بالفعل على بيانات طالما لا يحتوي هذا الحقل على قيم مكررة أو قيم 

‏"خالية"‏ .Null 

90 

المفاتيح الأساسية من نوع الحقل المتعدد 

:



في الحالات التي لا يمكنك فيها ضمان وجود حقل فردي،‏ قد يكون بإمكانك تعيين حقلين أو أكثر باعتبارهما مفتاحا ً 

أساسيا ً.‏ 

والحالة الأكثر شيوعا ً التي يحدث فيها ذلك هي الجدول المستخدم لربط جدولين آخرين في علاقة أطراف 

بأطراف 

على سبيل المثال،‏ يمكن 

أن يربط جدول 

‏"مؤلفي الكتب"‏ 

بين جدولي 

‏"الكتب"‏ 

.( Many to Many 

) 

و"المؤلفين".‏ 

ويتكون مفتاحه الأساسي من حقلي:‏ ‏"رقم الكتاب"‏ 

و"رقم المؤلف".‏ 

إذا كان لديك أي شك حول إمكانية تحديد تركيب مناسب من الحقول لمفتاح أساسي متعدد الحقول،‏ فربما يجب عليك 

إضافة حقل 

‏"ترقيم تلقائي"‏ 

وتعيينه كمفتاح أساسي بدلا ً من ذلك.‏ 

على سبيل المثال،‏ فإن ضم حقلي 

‏"الاسم الأول"‏ 

و"الاسم الأخير"‏ 

لتكوين مفتاح أساسي لا يعتبر اختيارا ً صائبا ً،‏ بسبب إمكانية مصادفة تكرار في ضم هذين الحقلين 

في المستقبل.‏ 

إنشاء جدول المسافرين : 

مازلنا في النافذة السابقة،‏ لإضافة الحقل رقم المسافر أكتب في العمود 

والعمود 

+ Type أي أن الحقل من النوع ترقيم 

" PNo 

" Filed Name 

Key 

( 

تلقائي ) 

لا حاجة لتحديد حجم هذا النوع 

وضع إشارة في الحقل 

لأن هذا الحقل سيكون مفتاح أساسي . 

لإضافة الحقل اسم المسافر أكتب في السطر الثاني من العمود Field 

، 30 أي أن 

لأن الحقل من نوع نص ، في العمود 

Size اكتب القيمة 

"A" 

Type والعمود Pname القيمة Name 

. 

طول الحقل 

30 حرف ، واترك العمود 

Key فارغا ً واكمل كما في الشكل المجاور 

Alias القيمة 

لحفظ الجدول اضغط على الزر 

Save As سيظهر لك صندوق الحوار حفظ باسم اختر من اللائحة 

. 

Travel أدخل اسم الملف 

Passengers واضغط على حفظ 

إنشاء جدول الرحلات : 


File new table واختر Paradox7 من القائمة 

فتظهر النافذة السابقة أدخل القيم فيها كما في الجدول المجاور : 

احفظ الجدول ضمن Travel باسم . Trips 

إنشاء جدول المسافرون والرحلات : 


File new table واختر Paradox7 من القائمة 

فتظهر النافذة السابقة أدخل القيم فيها كما في الجدول المجاور : 

احفظ الجدول ضمن Travel باسم PassAndTrips 

: 


تخزن قواعد البيانات 

Paradox في نوعين من الملفات 

. 

1 ملفات من الامتداد 

Db حيث يتم تخزين معظم بيانات الجدول 

.... 

91 

2 ملفات من الامتداد 

فتح جدول 

Mb حيث يتم تخزين الأجزاء الكبيرة مثل المفكرات و الصور 

:


FileOpen Table 


لفتح جدول المسافرين أختر الأمر 

تظهر عندها النافذة فتح ملف اختر منها الملف 

Passengers.db 

تعديل جدول : 

بفرض أنك بحاجة لإضافة حقل جديد إلى جدول أو حذف أحد الحقول أو تغير نوعه يمكن ذلك عن طريق فتح 

الجدول ومن ثم اختيار الأمر 

Table Restructure تظهر عندها نافذة بناء الجداول يمكنك العمل فيها كما تعلمنا سابقا ً.‏ 

. 

سنتعرف الآن على عناصر القائمة Table properties 

في نافذة إنشاء جدول أو نافذة تعديل جدول 

1 ضبط المدخلات : Validity Checks 

يحدد هذا الخيار طريقة عرض وقبول البيانات في كل حقل وله الفروع التالية : 

 

: Required Field عند تفعيل هذا الصندوق ينبغي إدخال قيمة في هذا الحقل ولا يمكن أن يترك فارغا ً 

1 

. 

2 : Minimum يجب أن تكون البيانات التي سندخلها في الحقل أكبر أو تساوي القيمة المحددة هنا . 

3 : Maximum يجب أن تكون البيانات التي سندخلها في الحقل أكبر أو تساوي القيمة المحددة هنا . 

4 : Default Value القيمة المحدد في هنا ستكون القيمة الافتراضية ويمكن تعديلها فيما بعد 

تشبه هذه الخاصة في عملها العنصر 

MaskEdit حيث يمكن تحديد طريقة إدخال البيانات في 

5 : Picture 

. 

حقل ما،‏ اضغط على الزر Assist 

لاختيار قوالب جاهزة 

مثال : 

في جدول الرحلات Trips 

اجعل الحقل اسم الشركة مطلوبا ً و الحقل عدد البطاقات المتوفرة يجب أن يأخذ قيمة 

بين 0 و 350 

نفتح الجدول Trips من القائمة FileOpen table ثم نختار 

الجدول 

Table Restructure فتظهر النافذة تعديل 

Required 

Table Properties ثم نختار الحقل 

Company ونفعل الخيار 

Validity Checks من اللائحة 

.Field 

0 وفي Maximum القيمة . 350 

ثم نختار الحقل 

CardNo ونضع في Minimum القيمة 

. 

نضغط على الزر 

Save لحفظ التغيرات 

2 تحديد جدول البحث : Table Lookup 

يمكن تحديد قيمة لحقل ما في جدول عبر لائحة من 

القيم من جدول آخر ، يدعى الجدول الآخر بجدول 

البحث . 

مثال 

: نعلم أن قيمة الحقل رقم المسافر في جدول 

المسافرون والرحلات يجب أن تكون مساوية 

لإحدى قيم العمود رقم المسافر في جدول 

92



المسافرون كما أن القيمة رقم الرحلة في جدول المسافرون والرحلات يجب أن تكون مساوية لإحدى قيم العمود 

رقم الرحلة في جدول الرحلات لتحقيق ذلك : 

Table Restructure 

افتح الجدول PassAndTrips 

وادخل إلى النافذة تعديل الجدول 

Define 

اختر الحقل PNo واختر Table LookUp من اللائحة 

Table Properties واضغط على الزر 

تظهر النافذة المجاورة : 

. Ok 

من اللائحة Lookup Table اختر الجدول 

Passengers.db واضغط على 

. Trips 

أعد نفس الخطوات للبحث عن قيمة 

TripNo في الجدول 

لن نشرح هذه الميزة بمزيد من التفصيل لأن تطبيقها برمجيا ً أسهل .. 

ولكن سنتعلم فائدتها عند إدخال قيم إلى 

الجدول . 

3 الفهرسة الثانوية :Secondary index 

تستخدم الفهرسة الثانوية لترتيب الجدول بترتيب مختلف عن الترتيبب المفتاحي للجدول ) 

أي يختلف عن ترتيب 

المفتاح الرئيسي ( . 

:( 

ماذا تعني الفهارس الثانوية ) 

للإطلاع 

افترض أن ّك تريد أن تبحث عن قيمة معينة في أحد الأعمدة،‏ كأن تريد البحث مثلا عن 

‏(أحمد سعيد)‏ 

في حقل اسم 

المسافر .. 

أول ما سيجول بذهنك هو أن الكمبيوتر سيفحص أسماء المسافرين واحدا وراء الآخر من البداية 

للنهاية..‏ 

للأسف:‏ 

ربما تبدو هذه الطريقة سهلة،‏ ولكن ّها أسوأ طريقة يمكن أن يتم البحث بها،‏ لأن ّها قد تتسبب في بطءٍ‏ 

شنيع في أداء البرنامج،‏ خاصة وأن العمود قد يحتوي على عدد كبير من الصفوف،‏ قد يزيد عن عشرة آلافٍ‏ أو 

أكثر.‏ 

لهذا فإن هناك العديد من الطرق لتسريع البحث،‏ تبدأ بترتيب العمود أبجديا،‏ وذلك لأن البحث في عمود مرت ّب 

أسرع بكثير من البحث في عمود عشوائي‏،‏ خاصة مع استخدام طريقة بحث جيدة،ولكن،‏ رغم سرعة هذه البحث 

بعد الترتيب،‏ إلا إن الترتيب نفسه قد يكون مأساة!..‏ 

هل تتخيل كم من الوقت يمكن أن يضيعه برنامجك لترتيب 

خمسين ألف نص مثلا؟..‏ 

فما بالك إذن حينما يقوم البرنامج بتكرار البحث في نفس العمود أكثر من مرة؟!‏ 

إذن ما الحل؟ 

بسيط جدا:‏ 

نرت ّب العمود في قاعدة البيانات منذ البداية!‏ 

جميل،‏ ولكن ماذا لو كان الجدول يحتوي على أكثر من عمود تحتاج للبحث فيها،‏ فتبعا لأي منها سوف نرت ّب 

الجدول؟!!‏ 

هنا يبرز الحلّ‏ العمل ي:‏ 

الفهارس 

..Indexes تخيل معي أن ّنا طلبنا من قاعدة البيانات إنشاء فهرس لعمود اسم 

المسافر 

.. هنا ستقوم قاعدة البيانات بترتيب هذا العمود،‏ مع إنشاء ما يشبه عمودا جديدا تضع فيه الترتيب الرقمي 

،2 

لكلّ‏ مسافر..‏ 

فمثلا،‏ سيأخذ 

‏(أحمد سعيد)‏ 

1 في هذا رقم 

العمود الخفي‏،‏ بينما سيأخذ 

‏(توفيق الحكيم)‏ 

رقم 

وهكذا...‏ . 

بهذه الطريقة سنحق ّق ما يلي:‏ 

93



لن نحتاج لتغيير ترتيب عرض البيانات في قاعدة البيانات،‏ وبالتالي سنترك للمستخدم حرية ترتيب البيانات كما 

يحلو له.‏ 

يمكننا إنشاء أكثر من فهرس لأكثر من عمودٍ‏ في نفس الجدول،‏ 

مما يعني قدرتنا على ترتيب كلّ‏ هذه الأعمدة.‏ 

سنوف ّر وقت ترتيب العمود،‏ أثناء البرمجة،‏ وإن كان هذا الوقت سيستهلك عند إنشاء الفهرس لأول مرة.‏ 

ستكون عملية البحث أسرع،‏ حيث سيتم البحث في السجلات حسب ترتيب فهارسها.‏ 

وفي الإمكان كذلك إنشاء فهرس لأكثر من عمود معا،‏ حيث سيتم الترتيب تبعا للعمود الأول،‏ فإن تماثلت قيم بعض 

الصفوف،‏ يتم ترتيب هذه الصفوف على أساس العمود الثاني.‏ 

ولكن..‏ 

طبعا لا توجد طريقة مثالية..‏ 

هناك عيبان أساسيان لهذه الطريقة:‏ 

الفهارس المنشئة يتم حفظها في قاعدة البيانات،‏ مما يعمل على زيادة حجمها..‏ 

لهذا إذا كان حجم قاعدة بياناتك 

كبيرا،‏ فلا بد أن توازن بين حاجتك لتوفير الوقت وحاجتك لتوفير الحجم!‏ 

وكقاعدة:‏ 

لا تنشئ فهارس إلا للحقول التي تتوق ّع أن برنامجك سيحتاج للبحث فيها بغزارة.‏ 

عند تعديل قيمة أي خانة في العمود أو حذف أو إضافة أي صف ّ،‏ لا بد من إعادة 

تحديث الفهارس لمراعاة 

الاختلاف الذي أحدثته القيمة الجديدة..‏ 

مثل هذا الأمر يسبب عيبا خطيرا،‏ هو بطء عمليات التحديث والحذف 

والإضافة بطريقة ملحوظة،‏ تزداد سوءا مع ازدياد طول الجدول..‏ 

هنا يجب أن توازن في برنامجك،‏ بين حاجتك 

لسرعة البحث وحاجتك لسرعة التحديث والحذف والإضافة..‏ 

فإذا كان من المتوق ّع أن يقوم برنامجك بمئات من هذه 

العمليات بطريقة متتالية،‏ فمن الأفضل حذف الفهرس إلى أن تنتهي هذه العمليات،‏ ثم إعادة إنشائه مرة أخرى قبل 

الشروع في عمليات البحث،‏ رغم ما تضيعه عملية إعادة إنشاء الفهرس من وقت!‏ 

لإنشاء فهرس : 

ثانوي 

بفرض أننا نريد إنشاء فهرس ثانوي للحقل اسم المسافر في جدول المسافرين . 

قم بفتح الجدول ثم اختر Table Restructure من اللائحة 

Table Properties اختر القيمة Secondary Index واضغط 

: 

على الزر 

Define عندئذ ستظهر النافذة المجاورة 

واضغط على Fields 

اختر الحقل 

PName من اللائحة 

سيظهر عندها اسم الحقل في القائمة Indexed Fields نلاحظ 

وجود الخيارات التالية في القسم : Index Option 

 

: Unique فعل هذا الخيار إذا كانت قيمة هذا الحقل فريدة 

1 

أي لا يمكن أن تتكرر 

) في مثالنا قد يكون هناك مسافرين لهما 

نفس الاسم لذلك لا يمكن تفعيل هذا الخيار ( . 

 

: فعل هذا الخيار إذا أردت من قاعدة البيانات تحديث جدول الفهرس كلما تم تعديل البيانات 

Maintained 

2 

في الجدول وفي حال عدم تفعيله يتم تحديث جدول الفهرس فقط عند استخدام الفهرس . 

3 : Case Sensitive فعل هذا الخيار إذا أردت من الفهرس التميز بين الحروف الكبيرة و الصغيرة . 

فعل هذا الخيار إذا أردت ترتيب الحقول تنازلي ًا 

. 

94 

4 : Descending



. PNameIndex 


Ok ستطالب بإعطاء اسم للفهرس أعطه الاسم 


. ( 

1 يمكن تطبيق الفهارس الثانوية على أكثر من حقل ) 

لكل حقل فهرس ثانوي 

2 يمكن تطبيق فهرس ثانوي واحد على مجموعة من الحقول يمكن مثلا ً إنشاء فهرس ثانوي لحقلي اسم المسافر 

والجنسية تستخدم هذه الطريقة في حال كنا نبحث في جدول ما على الحقلين معا ً . 

3 ستتضح هذه الأمور لاحقا ً عند دراسة البحث في قواعد البيانات . 

تعريف علامة مرجعية متكاملة : Referential Integrity 

وجدنا سابقا ً كيف يتم الربط بين جداول قاعدة البيانات بشكل نظري ) 

الربط بين جدولي المؤلفين والكتب والربط 

بين جدولي المسافرين وجدول المسافرين والرحلات ( 

أي بعبارة أخرى سنقوم الآن بتعريف مفتاح ثانوي في جدول 

ما يأخذ قيمة من جدول . 

آخر 

إذا أنشأنا علامة مرجعية متكاملة بين الجدولين 

‏"المسافرين"‏ 

و"المسافرين والرحلات"‏ 

فهذا يعني أن الحقل رقم 

. 

" 

المسافر في جدول 

‏"المسافرين والرحلات 

سيأخذ قيمه من الحقل رقم المسافر في جدول المسافرين 

. 

يدعى الجدول الذي سنحصل منه على القيم بالجدول الأب والجدول 

الذي سيخزن القيم بالجدول الابن 

لإنشاء علامة تكامل مرجعية : 

Referential واختر القيمة Table Restructure 

افتح الجدول الإبن 

PassAndTrips واختر الأمر 

: Define 

Integrity من اللائحة 

Table Properties واضغط على الزر 

تظهر عندها النافذة التالية : 

Table 

نختار الحقل 

PNo من لائحة الحقول ونضغط على الزر ثم نختار جدول المسافرين من اللائحة 

ونضغط على الزر 

يجب بعد ذلك تحديد نوع التعديل في الصندوق Update Rule 

1 الخيار : Cascade 

هذا الخيار يعني أنه أي تعديل في الحقل الموجود في الجدول الأب سيؤدي إلى تعديلات 

في الحقول المربوطه معه في جدول الابن ) 

في حال حذف الحقل سجل ما من جدول المسافرين سيتم حذف 

، " 

السجلات المرتبطة معه في جدول " 

المسافرين والرحلات 

95



الخيار 

: Prohibit يمنع هذا الحقل تحديث الحقول في جدول الأب إذا كانت مرتبطة مع حقول في جدول 

2 

. ( 

الابن ) 

لا يمكن حذف سجل من جدول أب مرتبط مع سجلات في الجدول الابن 

3 : Strict Referential Integrity فعل هذا الخيار إذا كنت ستستخدم قواعد البيانات هذه مع برامج قديمة 

تعمل تحت النظام .Dos 

اضغط على بعدها على زر 

Ok ستطالب عندها باختيار اسم للعلامة المرجعية أدخل أي اسم تريده واضغط على 

موافق ... 


الخيار 

Prohibit هو الخيار الذي تعمل به قواعد البيانات 

Paradox ولا يمكن الاستفادة من الخيار 

1 

Cascade إلا في حال استخدام بعض برامج SQL الحديثة.‏ 

2 لحذف سجل أب مرتبط مع سجلات أبناء عليك أن تحذف جميع السجلات في الجدول الابن المرتبطة مع هذا 

السجل . 

. 

" 

بنفس الطريقة أربط بين رقم الرحلة في الجدول " 


مع رقم الرحلة في جدول الرحلات 

5 وضع كلمات سر للجداول : 

قد نحتاج في بعض الأحيان إلى حماية جداول أو الحقول من أن يصل إليها أو يستخدمها غيرنا،‏ لذلك يمكن وضع 

كلمة سر للجدول كاملا ً أو لحقل أو عدد من حقوله فقط . 

ولإعطاء الجدول كلمة سر لجدول المسافرين 

1 افتح الجدول واختر الأمر Table Restructure واختار Table Security من اللائحة Table 

properties واضغط على الزر 

Define سيظهر عندها صندوق الحوار 

التالي : 

اكتب كلمة السر في الحقل 

Master Password وأعد كتابتها في الحقل 

.Ok واضغط على Verify Master Password 

أما لتحديد كلمة سر للحقول نعيد الخطوات السابقة ونختار بعدها 

Auxiliary Password فتظهر عندها النافذة 

‏(في الأسفل).‏ 

أكتب كلمة السر في الحقل Current Password وحدد سماحيات 

الوصول من Table rights واضغط على Add 

يمكنك أن تعطي أكثر من كلمة سر للحقل الواحد 

أو لمجموعة حقول ‏،بالنسبة لسماحيات الوصول 

فتحدد طريقة تعامل المستخدم مع الجدول فإذا 

كانت القيمة 

Read Only فلا يمكن للمستخدم 

إدخال البيانات 

، كل مرة يتم فتح الجدول 

.... 

فيها سيطالب المستخدم بإدخال كلمة السر و 

96


. 


تعطى السماحيات لهذا المستخدم تبعا ً لكلمة السر المدخلة 

لحذف كلمة سر وضعت على جدول أعد الخطوات في 1 

. Delete 

واضغط على الزر 

Modify واختر بعدها الزر 

ملاحظة هامة : 

إذا كانت سرية قاعدة البيانات تهمك فلا تستخدم قواعد بيانات 

Paradox فهناك مئات البرامج التي تستطيع اكتشاف 

كلمة سر القاعدة ، ويستطيع أي هاوي أن يدخل إلى جداولك والحصول على معلوماتها وتعديلها ‏،عمليا ً أقوى قواعد 

البيانات من حيث السرية والسماحيات أيضا ً هي قواعد البيانات 

وOracle MySQL 

وServer . MS SQL 

6 تحديد لغة الجدول : Table Language 

لتحديد لغة الجدول اختر 

Table Language من اللائحة خصائص 

الجدول 

إذا كانت بيانات الجدول التي تدخلها باللغة العربية فأبق هذا 

الصندوق على الخيار الافتراضي 'Ascii' ANSI . 

7 عرض الجداول التابعة الجدول : Dependent Table 

: 

بعد أن ننشئ علاقة ربط متكاملة بين الجداول نكون قد عرفنا علاقة بين جدول أب وجدول ابن ولرؤية هذه العلاقة 

Dependent Table من اللائحة 

( Passengers 

نفتح الجدول الأب ) 

ونفتح النافذة تعديل الجدول ثم نختار 

. 

( PassAndTrips 

Table properties عندئذ تظهر الجداول المرتبطة مع هذا الجدول ) 


إلى هنا نكون قد تعلمنا إنشاء جداول من النوع 

Paradox ويكون إنشاء جداول من أنواع أخرى مشابهة لهذه 

1 

الطريقة ولكن تتغير بعض الأشياء فأنواع الحقول في جداول 

Dbase مثلا ً تختلف عن أنواع الحقول في جداول 

Paradox بالاسم فقط ولكن تبقى جميع أنواع قواعد البيانات مصممة لتخزين النصوص و الأرقام و....‏ 

2 يفضل في البداية تصميم الجداول على الورق بما فيها تحديد الارتباطات وأنواع الحقول والقيود إلى الحقول 

وثم البدء بإنشاء الجداول الآباء ثم الأبناء وتعريف خصائص الجدول عند إنشاءه . 

3 عمليا ً يفضل أن تكون جميع جداول القاعدة جاهزة قبل البدء بإدخال المعطيات إليها . 

4 جداول القاعدة المعتمدة في هذا المثال والطرق التي اتبعت في إنشاءها غير مثالية واعتمدت هنا بهدف تعليمي 

فقط . 

إدخال البيانات إلى الجداول : 

بالإضافة إلى إمكانية بناء الجداول يتيح البرنامج 

إدخال البيانات إليها وتعديلها 

. 


97


: 


إدخال البيانات باللغة العربية 

لكي تستطيع إدخال نصوص باللغة العربية في البرنامج 

Database Desktop عليك تغير الخط المستخدم في 

البرنامج ويتم ذلك باختيار الأمر 

والضغط على الزر 

Change لتغير الخط أختر من 

Edit Peferences 

القائمة أحد الخطوط التي تدعم اللغة العربية Arabic Transparent مثلا ً . 

استخدام نمط التحرير : 

قبل البدء بإدخال البيانات إلى الجدول يجب الدخول إلى نمط التحرير ويتم ذلك عن طريق اختيار الأمر Edit من 

القائمة 

Table أو الضغط على الزر 

F9 أو زر السرعة في أقصى يمين شريط السرعة 

) طبعا ً يجب أن يكون 

الجدول مفتوحا ً ( . 

أدخل الآن المعلومات التالية إلى جدول المسافرين : 

افتح اولا ً جدول المسافرين وادخل في نمط التحرير 

استخدم الزر 

Tab للتنقل بين الحقول كما أن نفس الزر 

سينقلك إلى سجل جديد . 

لاحظ انه لا يسمح لك بإدخال قيمة في حقل من النوع ترقيم 

. 

تلقائي لإن هذا الحقل يأخذ قيمته تلقائيا ً ويزاداد بمقدار 

1 عند إضافة سجل جديد 

كما أنه لا حاجة لحفظ المعلومات المدخلة في الجدول ، حيث يقوم الجدول بحفظ المعلومات تلقائيا ً عند الانتقال إلى 

سجل جديد . 

أدخل المعلومات التالية إلى جدول الرحلات 

: افتح الجدول وانتقل إلى وضع التحرير 

حاول إدخال القيمة 

400 في الحقل 

CardCount ولاحظ عدم قبول البرنامج لهذه القيمة وتذكر الشرط الذي 

وضعناه على هذا الحقل 

) إقرأ الرسالة التي تظهر في الزاوية اليسارية السفلى للبرنامج ( . 

. 

في الحقول من النوع 

TimeStamp يمكن الضغط على مفتاح المسافة لإدخال الوقت والتاريخ الحالي 

أدخل البيانات إلى جدول المسافرين والرحلات 

: افتح الجدول وانتقل إلى جدول الرحلات 

تعلم أننا قد ربطنا الحقل PNo بجدول 

بحث 

للاستفادة من هذه الخاصة أضغط على 

المفاتيح Ctrl + Space أثناء وجود 

المؤشر في الحقل PNO ستظهر نافذة 

98



جديدة فيها جميع حقول جدول البحث 

Passengers.db أختر أحد السجلات واضغط عليه مرتين ستغلق النافذة 

. 

وتنتقل قيمة الحقل 

PNo في السجل المختار إلى الجدول الحالي 

يمكنك أيضا ً إدخال رقم المسافر يدويا ً ولكن لا يسمح لك بإدخال رقم مسافر غير موجود في جدول المسافرين ، كما 

( 

لا يسمح بإدخال نفس المسافر على نفس الرحلة مرتين ) 

لا يمكن للمسافر أن يسافر في رحلة واحدة مرتين 

. 

وتظهر الرسالة 

Key Violation وذلك لأنه لا يمكن أن تكون القيم في المفتاح الرئيسي مكررة 

أخيرا ً حاول التدرب على الأوامر في القائمة 

. Record 

99


ببعد أن قمنا ببناء الجداول باستخدام 

من خلال دلفي باستخدام هذه الجداول 

عرض جدول المسافرين في نافذة 

الجلسة السادسة عشر 



: 

ابدأ مشروعا ً جديدا ً أضف إليه العناصر 

أعط العنصر Table1 الخصائص التالية 

الخاصة 

سنكمل الآن مشوارنا بتعلم التعامل مع قاعدة البيانات 

. Table, DBGrid, DataSource, DBNavigator 

DatabaseName 

TableName 

Active 




التعامل مع الحقول 

القيمة 

Travel 

Passengers 

True 

القيمة Table1 DataSet الخاصة DataSource 

القيمة DataSource1 DataSource الخاصة DBGrid و DBNavigator 

... 

: 

تمكننا العناصر الموجودة في الصفحة Data Control من رؤية البيانات وتحريرها أما إذا أردنا الوصول إلى 

البيانات والتحكم بطريقة عرضها علينا إنشاء عناصر الحقول 

إنشاء عناصر الحقول 

. 

:Tfield 

يمكن استخدام محرر الحقول لتعريف لائحة من الحقول ضمن الجدول 

حقل تنشئ دلفي عنصر من النوع 

خلاله الوصول إلى قيمة الحقل والتحكم بمواصفاتها 

) 

عنصر الجدول 

Tfield وهذا العنصر غير مرئي ولكن يمكن من 

( Table 

. 

لفتح صندوق حوار محرر الحقول اضغط مرتين على العنصر 

Table1 لتظهر النافذة 

المجاورة ، إضغط بزر الفأرة الأيمن في وسط هذه النافذة لتظهر قائمة اختر منها 

Add 

All Field عندها ستظهر حقول جدول المسافرين في هذه النافذة ، أعد الضغط بزر 

الفأرة اليميني على أحد هذه الحقول تظهر القائمة في هذه الحالة عمليات التعامل مع هذه 

اللائحة من قص ونسخ وحذف 

.. 

‎1‎ احذف الحقل Pno من اللائحة ولاحظ اختفاءه من العنصر 

. DBGrid 

2 

ومن أجل كل 

أعد ترتيب الحقول ضمن القائمة وذلك عن طريق سحب الحقل PassNo وإفلاته في أعلى القائمة ولاحظ 

تأثير ذلك على العنصر 

. DBGrid 

افتح محرر الشيفرة وانتقل إلى القسم Type ولاحظ قيام 

Delphi بتعريف 

عدد من المتحولات 

تم تعريف حقل من النوع النصي لأن الحقل من النوع نص // TStringField; Table1Pname: 

Table1Nationalty: TStringField; 

تم تعريف حقل من النوع الصحيح لأن الحقل من النوع الصحيح // TIntegerField; Table1PassNo: 

100


تحديد خواص العنصر من النوع 

افتح محرر الحقول واختر الحقل 


: Tfield 

PassNo ولاحظ خواص هذا الحقل في محرر الخواص حيث يظهر في أعلى 

محرر الخواص اسم العنصر ونوع العنصر Table1Pname: TStringField حيث تعطي دلفي اسم هذا الحقل 

تلقائيا ً والذي يمكن تغيره عن طريق الخاصة 

. Name 

3 غير قيمة الخاصة Alignment إلى القيمة taCenter ولاحظ تأثير ذلك على العنصر 

4 أعط الخاصة 

. DBGrid 

DisplayLabel القيمة " 

رقم جواز السفر 

. " 

سنتعرف لاحقا ً على إمكانيات إضافية لهذا لمحرر الحقول أما الآن فسنتعلم كيفية الوصول إلى قيمة الحقل برمجيا ً 

قراءة قيم الحقول 

الطريقة الأولى 

: 

: 

: 

بالاعتماد على عناصر الحقول 

أضف إلى النموذج السابق عنصر 

: TFeild 

label1 وزر : 

في حدث الضغط على الزر اكتب التعليمة التالية 

Label1.Caption := Table1Pname.value ; 

: 

نفذ البرنامج واضغط على الزر ولاحظ ظهور قيمة الحقل 

واضغط على الزر مرة أخرى 

... 

تقوم هذه التعليمة بإلحاق قيمة الحقل 

Tabel1Pname في الخاصة 

Pname في العنصر 

، Label غير السجل الحالي 

Caption وذلك لأن الحقل والCaption من 

نوع String أما إذا أردت إلحاق قيمة حقل عددي إلى نوع نص استبدل التعليمة السابقة بالتعليمة التالية 

ويملك العنصر 

TField عدد من الخواص يشبه الخاصة السابقة وهي 

: 

Label1.Caption := Tabel1PassNo.AsString ; 

، AsFloat 

، AsInteger 

، AsBoolean 

. AsDateTime 

الطريقة الثانية 

: 

وله الشكل التالي 

باستخدام الخاصة 

المنهج ) 

TableName.FeildByName('FieldName').Value 

: 

FieldByName ( 

: 

وللتحويل بين الأنواع 

مثال 

TableName.FeildByName('FieldName').AsType 

101 

: 

: ( 1 ) 

أضف زرين إلى البرنامج السابق وعنصر نص 

: Label 

في حدث الضغط على زر اكتب التعليمة التالية : 

label1.Caption := Table1.FieldByName('Pname').Value 

وفي حدث الضغط على الزر الثاني اكتب التعليمة التالية : 

Label2.Caption := table1.fieldbyname('PassNo').AsString ; 

الطريقة الثالثة ‏:التعامل مع الحقل كنوع 

ولها الشكل التالي 

مثال 

Table1['FieldName'] 

Variant 

: 

: 

في حدث الضغط على الزر الأول اكتب التعليمة التالية 

في حدث الضغط على الزر الثاني اكتب التعليمة التالية 

Label1.Caption := Table1['Pname'] ; 

:


لاحظ أنه لا حاجة لاستخدام المنهج 

الطريقة الرابعة 

مثال 


Label2.Caption := table1['PassNo'] ; 

TableName.Field[Index].Value 

.AsString 

AsString 

: 

: 

في حدث الضغط على الزر الأول اكتب التعليمة التالية 

في حدث الضغط على الزر الثاني اكتب التعليمة التالية 

Label1.Caption := Table1['Pname'] ; 

: 

Label2.Caption := table1.Fields[3].AsString ; 

إلحاق قيم بالحقول 

1 تعديل سجل 

102 

: 

( : حقل ) 

في هذه الحالة نريد أن نغير في قيمة السجل الحالي ونستخدم الأسلوب التالي 

Table1.Edit ; 

Tabel1.FieldByName( 'FieldName').Value := NewValue ; 

Table1.Post; 

كما وجدنا عند إدخال البيانات إلى الجداول في البرنامج Database Desktop قمنا بالانتقال إلى وضع التحرير 

: 

بنفس الطريقة عند إدخال البيانات في لغة البرمجة علينا أن نضع الجدول في وضع التحرير لذلك استخدمنا التعليمة 

. Table1.Edit 

التعليمة الثانية تقوم بإدخال القيمة الجديدة داخل الحقل ، أما التعليمة 

على الجدول وت ٌخرج الجدول من وضع التحرير 

مثال 

. 

: 

Table1.Post فمهمتها ثثبيت التغيرات المدخلة 

أضف ثلاثة عناصر تحرير Edit إلى النموذج السابق واكتب في حدث الضغط على زر التعليمات التالية 

يمكن استبدال التعليمة الرابعة 

: 

Table1.Edit ; 

Table1.Fieldbyname('Pname').Value := Edit1.Text ; 

Table1.FieldByName('Nationalty').Value := Edit2.Text ; 

Table1.FieldByName('PassNo').AsString := Edit3.Text ; 

Table1.Post ; 

; edit3.Text table1.FieldByName('PassNo').AsString := بالتعليمة 

Table1.FieldByName('PassNo').Value := strtoint( Edit3.Text) ; 

نفذ البرنامج وأدخل قيم في عناصر التحرير واضغط على الزر ولاحظ تغير قيم السجل . 

ملاحظة : وجدنا أنه يمكن تعديل الجدول من خلال العنصر DBGrid دون أن نقوم بوضع الجدول في وضع 

AutoEdit للعنصر 

DataSource حيث يقوم هذا العنصر بوضع الجدول في وضع 

التحرير وهذا يعود للخاصة 

التحرير بشكل تلقائي وبإعطاء هذه الخاصة القيمة False نفقد القدرة على تغير قيمة البيانات في جدول 

من المفيد أن تلاحظ أننا استطعنا أن نصل للمعطيات في الجدول بدون المرور على العنصر 

في القراءة أو الكتابة 

. 

) DataSoucre 

( 

حيث أن التعليمات تتعامل مع العنصر 

Table1 مباشرة . 

سواء


2 إضافة سجل 

تقوم التعليمة 


Table1.insert ; 


Table1.FieldByName('Nationalty').Value := Edit2.Text ; 

Table1.FieldByName('PassNo').AsString := Edit3.Text ; 

Table1.Post ; 

: 

Table1.insert بوضع الجدول في وضع التحرير وتضيف سجل جديد فارغ إلى الجدول وتجعله 

السجل الحالي ، ثم تقوم التعليمات التالية بإلحاق قيم في هذا السجل والتعليمة الأخيرة تقوم بتثبيت المعلومات في هذا 

. الجدول 

يمكن استخدام طرق القراءة السابقة في الكتابة أي يمكن استبدال التعليمة 


Table1.Field[0].Value := بالتعليمة ‏['‏Table1['Pnameأو := Edit1.Text ; 

Edit1.Text ; 

.... Table1Pname.Value := Edit1.Text 

أو بالتعليمة بالتعليمة 

التعرف على عناصر الصفحة 

: Data Control 

العنصر 1 

: DBGrid 

تعرفنا على هذا العنصر سابقا ً وسنشرح الآن بعض الخصائص المهمة له 

الخاصة 

القيمة 

: 

bdRightToLeft 

BiDiMode 

Color 

FixedColor 

Font 

TitleFont 

كما يوجد في الخاصة 

الخاصة 

أي لون 

أي لون 

Option العديد من الخصائص الفرعية الهامة:‏ 

القيمة 

True or False 

True or False 

True or False 

True or False 

True or False 

True or False 

True or False 

dgEditing 

dgTitle 

dgIndicator 

dgColLines 

dgTabs 

dgRowSelect 

dgConfirmDelete 

العمل 

تحول اتجاه الجدول بحيث يصبح من اليمين إلى 

اليسار 

إعطاء لون لصفحة البيانات في العنصر 

إعطاء لون لحواف الجدول 

تغير نمط الخط المستخدم في صفحة البيانات 

تغير نمط الخط المستخدم في أسماء الأعمدة 

العمل 

التحكم بإمكانية التحرير أو عدمه في العنصر 

إظهار أو عدم إظهار أسماء الأعمدة 

إظهار أو إخفاء مؤشر السجل الحالي 

إظهار أو إخفاء خطوط بين الأعمدة 

منع استخدام الزر Tab للتنقل بين الحقول 

إمكانية اختيار السجل بالكامل 

التحكم بإظهار رسالة تأكيد حذف سجل 

103



True or False 

dgMutiSelect 

بقي أن نشرح الخاصة Columns لهذا العنصر 

: 

باختيار هذه الخاصة أو بالضغط مرتين على العنصر 

نافذة محرر الأعمدة كما في الشكل المجاور 

إمكانية اختيار أكثر من سجل بنفس الوقت 

DBGrid تظهر 

: 

حيث تظهر النافذة في البداية فارغة ، اضغط على الأيقونة الثالثة 

) 

( Add All Field 

فتظهر جميع أسماء حقول الجدول داخل هذه النافذة 

: 

في حال حذف أحد هذه الحقول من القائمة فلن يظهر في العنصر 

DBGrid وللقيام بذلك اضغط على الزر الثاني Delete بعد اختيار 

الحقل المراد حذفه 

. 

ملاحظة ‏:يختلف الأمر هنا عن حذف الحقل من محرر الحقول وذلك لأنه في هذه الحالة الحقل المحذوف من محرر 

الأعمدة يمكن الوصول إليه بطريقة أخرى عن طريق العنصر Table مباشرة أو عن طريق ربطه بأحد عناصر 

، Data Control أما في حال حذف العنصر من محرر الحقول فلن نستطيع الحصول على قيم هذا الحقل 

العنصر Table لن يتصل مع قاعدة البيانات لإحضار قيم هذا الحقل 

) 

. ( 

باختيار أحد هذه الحقول تظهر خصائص الحقل في محرر الخواص والتي يمكن الاستفادة منها كمايلي 

: 

عمليا ً 

العمل 

الخاصة القيمة 

Alignment 

Color 

Font 

Title-Alignment 

Title-Caption 

Title-Font 

سنشرح الخاصة الأخيرة 

التحكم بمكان ظهور البيانات داخل العمود 

إعطاء لون محدد لعمود 

إعطاء نمط خط محدد لعمود 

) 

( 

التحكم بمكان ظهور عنوان العمود 

إعطاء عنوان لعمود 

) 

إعطاء نمط خط ما لعنوان العمود 

إظهار أحد الأعمدة بلون خط آخر مثلا ً 

أعط إسم العمود باللغة العربية 

( 

PickList بمثال : 

تقوم هذه الخاصة بإظهار لائحة من القيم لاختيار إحداها 

: 

اختر العمود Nationality اختر الخاصة PickList واضغط على الزر 

Editor أكتب فيها القيم التالية 

البحرين 

... 

، ستظهر النافذة 

String List 

: 

........ 

نفذ البرنامج واضغط على الحقل 

من القيم المدخلة 

حلب في السطر الأول ، دمشق في الثاني ثم القاهرة ثم عمان ثم الرياض ثم 

Nationality 

. 

سيظهر سهم القائمة بجواره إضغط على هذا السهم واختر قيمة 

104


. 


كما أنه يمكنك أن تدخل قيمه من خارج هذه اللائحة يدويا ً 

يمكن أيضا ً إضافة عمود جديد إلى محرر الأعمدة عن طريق اختيار الزر الأول 

) New ( Add وربط هذا العمود 

مع حقل ما عن طريق الخاصة 

، FieldName قد تريد مثلا ً أن تعرض عمود ما مرتين 

) سنتعرف لاحقا ً على 

ميزة هذه الخاصة ( . 

.... 

يمكن أيضا ً تغير ترتيب الأعمدة في 

DBGrid بتغير ترتيبها في محرر الأعمدة 

: 

2 العنصر 

: DBNavigator بالإضافة إلى الخصائص السابقة يملك العنصر الخصائص المهمة التالية 

تجعل هذه الخاصة أزرار العنصر منبسطه ( . 

) مسطحة 

: Flat 

. 

الخاصة : Hints 

تمكن هذه الخاصة من كتابة تلميح لك زر من أزرار العنصر 

. 

الخاصة : VisibleButton 

تستخدم هذه الخاصة لإخفاء أو إظهار بعض أزرار العنصر 

. 

3 العنصر : DBtext 

يشبه العنصر 

Label ولكنه يمكن ربطه مع قاعدة البيانات 

. 


: DBEdit تم شرحه مسبقا ً 

.Memo 

5 العنصر : DBMemo 

يتم ربط هذا العنصر مع حقل من النوع 


يتم ربط هذا العنصر مع حقل من النوع صورة 

. 

: DBImage 

105


الجلسة السابعة عشر 

سنتابع الآن مع العناصر في الصفحة 


مثال 


: Data Control 

: DBImage 

يستخدم هذا العنصر لعرض وإضافة الصور إلى قاعدة البيانات 

. 

) : 

استخدام العنصرين 

: ( DBImage و DBMemo 

ابدأ مشروعا ً جديدا ً وأضف إلى النموذج العناصر التالية 

: Table و Datasource و DBGrid و DBImage و 

DBNavigator و DBMemo 

اربط العنصر Table1 مع القاعدة DBDemos ومع الجدول 

بعض الأسماك 

) biolife.db 

( 


Active القيمة 

Table1 وأعط بقية العناصر في الخاصة 

DBMemo1 مع الحقل Notes في الخاصة 

،True وأعط الخاصة 

DataSet 

وهو جدول يحوي معلومات عن 

للعنصر 

DataSource 

.. القيمة DataSource1 DataSource 

، Datafield والعنصر 

DBImage1 مع الحقل 

القيمة 

، واربط العنصر 

... Graphic 

لاحظ أولا ً أن قيمة الحقلين 

Notes و 

Graphic غير ظاهرتين في العنصر DBGrid وذلك لأن هذا العنصر لا 

يستطيع عرض الحقول ذات الحجم الكبير وبالتالي لا يستطيع تحريرها لذلك إذا أردنا التعامل مع هذه الحقول لا بد 

لنا من استخدام عناصر التحكم التي تستطيع إظهار هذا النوع من الحقول لذلك استخدمنا العنصرين 

DBMemo و 

: DBImage 

حقل من نوع ( إضافة ) تحرير 

: Graphic 

عند الضغط على الزر Edit أو الزر Insert يمكنك تحرير الجدول من خلال العنصر DBGrid و العنصر 

DBMemo وتبقى المشكلة في كيفية تحرير عنصر الصورة 

. 

1 

يتم التعامل مع العنصر DBImage عن طريق حافظة الويندوز ClipBoard ويكون ذلك بإحدى الطريقين 

نسخ الصورة المطلوبة إلى الحافظة عن طريق أحد برامج الرسم ومن ثم اختيار العنصر 

DbImage إثناء 

التنفيذ والضغط على الزرين Ctrl+v أو استخدام الأمر DBImage1.PasteFromClipboard في حدث 

الضغط على زر 

. 

106


2 


تحميل الصورة من ملف باستخدام العنصر OpenPictureDialog ومن ثم نسخ الصورة إلى الحافظة 

ولصقها ولتنفيذ ذلك أضف عنصر زر وعنصر 

الوحدة Jpeg في حال أردت استخدام صور 

OpenPictureDialog إلى النموذج السابق 

) 

( Jpg 

وفي حدث الضغط على الزر اكتب التعليمات التالية 

لا تنسى استخدام 

: 

If OpenPictureDialog1.Execute then Begin 

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName ); 

DBImage1.CopyToClipboard ; 

DBImage1.PasteFromClipboard ; 

end; 

نقوم في هذه الحالة بتحميل الصورة إلى العنصر DBImage1 ومن ثم نسخها إلى الحافظة وإعادة لصقها في 

. العنصر 

على كل حال هذه الطريقة ليست طريقة جيدة للتعامل مع الحافظة ولكنها الطريقة الأسهل وسوف نتعلم قريبا ً أسلوب 

التعامل مع الحافظة عند دراسة الرسم في دلفي 

. 

3 

يمكن تحرير حقل من نوع صورة مباشرة دون العودة إلى العنصر 

في الجلسة الماضية ويكون ذلك عن طريق التعليمات التالية 

ملاحظة 

DBImage أو 

DataSource كما وجدنا 

: 

Table1.edit; 

If OpenPictureDialog1.Execute then 

Table1Graphic.LoadFromFile(OpenPictureDialog1.FileName); 

Table1.Post ; 

: 

1 

لا يمكن في هذه الطريقة استخدام صور من نوع Jpg لأن الحقل من نوع صورة لا يخزن إلا صور من نوع 

، Bmp أما في المثال السابق فتقوم الحافظة بتحويل الملف من نوع Jpg إلى ملف 

Bmp تلقائي ًا . 

2 

تخزين الصور من نوع Bmp في قاعدة البيانات سيحتاج إلى مساحة تخزين كبيرة لذلك يفضل بعض 

المبرمجين استخدام حقل من نوع 

لإظهاره 

Binary 

... 


: DBListBox 

وتخزين ملف الصورة 

Jpg ثنائيا ً ومن ثم إعادة هذا الحقل إلى ملف 

يعرض قائمة من القيم الجاهزة لتمكين المستخدم من اختيار إحداها لإدخالها ضمن سجل ما في حقل معين ولا يمكن 

للمستخدم إضافة قيم جديدة في هذه القائمة 


. 

: DBComboBox 

يظهر قائمة منسدلة من القيم بحيث يستطيع المستخدم اختيار إحداها لإدخالها لحقل ما،‏ ويمكن للمستخدم أيضا ً أن 

يقوم بإدخال قيم أخرى ضمنها غير موجودة مسبقا ً لإلحاقها بقيمة حقل ضمن سجل 


. 

: DBDateTimePiker 

يرتبط هذا العنصر مع حقول من النوع 

Kind إذا كنا نريد إظهار الوقت أو التاريخ 

TimeStamp أو Time أو Date 

. 

وبالنسبة للنوع الحقل تحدد الخاصة 

107



: ( DBcomboBox 

DBlistBox 

مثال : ) 

العنصرين 

و 

ابدأ مشروعا ً جديدا ً أضف إلى النموذج العناصر 

Table و DataSource وعنصري DBedit وعنصر 

. DBNavigator 

DBComboBox و عنصري 

DBDateTimePiker و عنصر 

DBListBox و 

رتب العناصر كما في الشكل 

Travel والجدول Trips واعط 

اربط العنصر 

Table1 مع القاعدة 

الخاصة Active القيمة . True 

، Table1 


DataSouce1 مع العنصر 

حدد باقي العناصر وأعطها القيمة 

Datasoucrce1 في الخاصة 

. DataSource 

Datafield 


DBedit1 مع الحقل 

TripNo في الخاصة 

وأعط الخاصة 

ReadOnly القيمة ) True لأن الحقل حقل ترقيم تلقائي 

ولا حاجة إلى تحريره ( 

............. Company 


DBedit2 مع الحقل 


DBListBox1 مع الحقل GoFrom وأعط الخاصة 

Items القيم التالية 

: حلب ، عمان ‏،دمشق ، 

اللاذقية ، أثينا .. 


ComboBox1 مع الحقل 

ArriveTo وأعط الخاصة 


: القاهرة ، الرياض ، جدة 

، عمان ، هامبورغ ... 


DBDateTimePiker1 مع الحقل 

GoTime وأعط الخاصة 

Kind القيمة ) dtkTime تذكر أن 

. ( Timestamp 

الحقل 

GoTime من النوع 

نفذ البرنامج ولاحظ ما يلي : 

1 تنقل بين السجلات ولاحظ التغير في العناصر ComboBox1 و . DbListBox1 

2 يمكن الإضافة في الحقل GoFrom من خلال اختيار أحد عناصر القائمة . DBListBox1 

DBComboBox1 أو 

يمكن الإضافة في الحقل 

ArriveTo من خلال اختيار أحد عناصر القائمة المنسدلة 

3 

كتابة قيمة ما داخل العنصر . 

... 

4 أضف إلى الشكل عنصر 

DbGrid وحاول الإضافة والحذف والتعديل 

. Logical 

10 العنصر : DBCheckBox 

يرتبط هذا العنصر مع حقل من نوع 

العنصر 

: DBRadioGroup يستخدم هذا العنصر لإدخال أو إظهار قيمة ما إلى حقل يأخذ عدد محدد من 

11 

القيم : 

مثال : 

في المثال السابق استبدل العنصر DBListBox بالعنصر ، DBRadioGroup اعط الخاصة DataSource 

القيمة 

Datasource1 و الخاصة 


: حلب ، عمان 

DataField القيمة GoFrom والخاصة 

108 

‏،دمشق ، اللاذقية ، أثينا 

..



. .. 

والخاصة Values القيم : 

حلب ، عمان ‏،دمشق ، اللاذقية ، أثينا 

حيث تستخدم الخاصة 

Items لإظهار عناوين لأزرار الراديو ، أما 

Values فتستخدم لإعطاء قيمة للحقل في حال 

ضغط المستخدم على زر الراديو .. 

العنصر 


DBListBox ولكن بدلا ً من الخاصة Item يتم 

: DBLookUpListBox 

_ 12 

الحصول على قيم القائمة من خلال جدول آخر . 

العنصر 


Item ولكن بدلا ً من الخاصة DBComboBox 

: DBLookUpComboBox 

13 

يتم الحصول على قيم القائمة من خلال جدول آخر . 

مثال : 

سوف نقوم الآن بإنشاء نموذج للإدخال إلى جدول 


PassAndTrip حيث سيتم إدخال رقم 

" 

" 

المسافر من خلال العنصر 

DBLookUpListBox الذي سيرتبط مع جدول المسافرين لإحضار اسم المسافر ، 

وسيتم إدخال رقم الرحلة من خلال العنصر 

DBLookUpComboBox الذي سيرتبط مع جدول المسافرين 

لإحضار اسم شركة الطيران . 

DataSource وعنصري DBedit وعنصر 

ابدِأ مشروعا ً جديدا ً وأضف إليه ثلاثة عناصر 

Table وثلاثة عناصر 

. DBGrid والعنصر DBLookUpComboBox وعنصر DBLookupListBox وعنصر DBNavigator 

DataSource1 معه . 


Table1 مع الجدول 

PassAndTrip في القاعدة 

Travel واربط العنصر 




Passengers في القاعدة 





Trips في القاعدة 


أعط جميع الجداول الخاصة Active القيمة . True 

أعط بقية العناصر الخاصة Datasource القيمة . DataSource1 

: 

أعط 

DBLookupListbox1 الخصائص التالية 

. " 

" 

الخاصة DataField القيمة "PNo" : 

سيرتبط هذا العنصر مع الحقل 

Pno في جدول 


الخاصة 

Listsource القيمة : DataSource2 القائمة التي سيظهرها هذا العنصر ستأتي عن طريق الجدول 

. Passengers 

الخاصة 

ListField القيمة : Pname سيظهر في هذا العنصر قائمة بجميع أسماء المسافرين في الجدول 

. Passengers 

PassAndTrip عند 

الخاصة KeyField القيمة : PNo 

تحدد هذه الخاصة القيمة التي سيتم إدخالها إلى جدول 

اختيار اسم المسافر عمليا ً يتم في هذه الخاصة تحديد المفتاح الرئيسي 

KeyField المرتبط معه المفتاح الثانوي 

. DataFields 

: 

اعط العنصر 

DBLookupComboBox1 الخصائص التالية 

الخاصة 

سيرتبط هذا العنصر مع الحقل 

TripNo في جدول 

" المسافرين 

: "TripNo" القيمة DataField 

" . والرحلات 

109


الخاصة 


: القيمة DataSource3 Listsource 

.Trips 

الخاصة 

: Company القيمة ListField 

. Trips 

الخاصة 

:TripNo القيمة KeyField 

اختيار اسم الشركة 

القائمة التي سيظهرها هذا العنصر ستأتي عن طريق الجدول 

سيظهر في هذا العنصر قائمة بجميع أسماء شركات الطيران في الجدول 

تحدد هذه الخاصة القيمة التي سيتم إدخالها إلى جدول 

PassAndTrip عند 

. 

اربط العنصر Dbedit1 مع الحقل 

SeatNo والعنصر 

نفذ البرنامج وتنقل بين السجلات ولاحظ تغير القيم في العناصر 

DBEdit2 مع الحقل 

. ClassNo 

. 

اضغط على الزر + إضافة وأدخل قيم عن طريق اختيار اسم أحد المسافرين و اسم الشركة 

أضف عدد من السجلات للتآلف مع العناصر 

.... 

... 

14 العنصر : DBRichEdit يمكن ربط هذا العنصر مع حقل من نوع Memo أو حقل من نوع 

Formatted Memo 

العنصر : DBCtrlGrid 15 

سطور بعدد سجلات الجدول أثناء التنفيذ 

مثال 

. 

: 

أضف هذا العنصر إلى النموذج السابق وأعط الخاصة 

DBedit واعط الخاصة 


هذا العنصر يقوم بإظهار صفحة من البيانات حيث يقوم هذا العنصر يتوليد 

القيمة DataSource2 DataSource 

DataField القيمة 

، Pname نفذ البرنامج ولاحظ النتائج 

. 

: DBChart 

لإظهار مخططات بيانية من للقيم الموجودة في جدول 

. 

وضع داخله عنصر 

110



الجلسة 

الثامنة عشر 

البحث في قواعد البيانات : 

تعتبر عملية البحث عن سجل معين أو قيمة معينة لحقل ما في سجل من أهم تطبيقات قواعد البيانات ، ونظرا ً 

( 

لضخامة البيانات الموجودة في قواعد البيانات ) 

بنوك المعلومات 

فإننا نحتاج إلى تقنيات بحث سريعة توصلنا إلى 

المعلومة المحددة وبدون عناء البحث ضمن جميع بيانات الجدول ، وسنستعرض الآن أهم طرق البحث التي زودتنا 

بها لغة دلفي . 

المنهج : Locate 

يقوم هذا المنهج بوضع مؤشر السجل الحالي عند أول سجل يطابق شروط البحث،‏ باستخدام هذه الطريقة يمكننا 

Locate ( 'FieldName',SearchValue,Option ) ; 

البحث عن قيمة لحقل ما حيث يأخذ هذه المنهج الشكل 

حيث 

: 

: FieldName 

اسم الحقل الذي سيتم البحث فيه 

. 

: SearchValue القيمة التي سيتم البحث عنها.‏ 

Option ‏:تحدد خيارات البحث وتأخذ القيم التالية : 

عدم التميز بين الأحرف الكبيرة والصغيرة , ] [loCaseInsensitive Option = 

Option = [ loPartiaKey ] ; 

" 

" 

" 

البحث في جزء من الكلمة أي أن البحث عن قيمة " 

محم 

يمكن أن يعيد 

محمد 

أو " محمود " 

دمج الخيارين السابقين ]; loPartiaKey Option = [ loCaseInsensitive , 

لا نريد استخدام أي من الخيارين السابقين ;[ [ = Option 

يعيد هذا المنهج القيمة 

True في حال استطاع إيجاد القيمة المطلوبة في جدول البحث والقيمة 

False في الحالة 

المعاكسة . 

مثال : 

ابدأ مشروعا ً جديدا ً وأضف إلى النموذج عنصر Table و DataSorce و DbGrid و Button و Edit 

: DBGrid 

أربط الجدول مع جدول 

Passengers في القاعدة 

Travel وأظهر محتويات الجدول ضمن 

اكتب في حدث الضغط على الزر التعليمة التالية 

: 

If Table1.Locate('Pname',Edit1.Text , [locaseinsensitive,lopartialkey]) Then 

Showmessage(' The record is found ') Else 

Showmessage ( ' There is no match , Try Another Value ' ); 

يقوم البرنامج السابق بالبحث عن القيمة المدخلة في العنصر Edit1 ضمن الحقل PName في جدول المسافرين . 

نفذ البرنامج وابحث عن قيمة حقل ما في الجدول ولاحظ انتقال مؤشر الحقل الحالي إليها عند وجودها ، ثم ابحث 

عن جزء من اسم أحد المسافرين 

ابحث عن الحرف 

م 

" فقط ولاحظ توضع مؤشر السجل الحالي عند اسم أول 

" 

) 

مسافر يبدأ بحرف 

م 

ثم احذف الخيار 

loPartialKey من تعليمة البحث ولاحظ عدم قدرة المنهج من إيجاد 

( " 

" 

الحقل إلا في حال كانت القيمة مطابقة 

. 

111


ثم أضف أسماء مسافرين باللغة الإنكليزية 

loCaseInsensitive وأعد البحث 


مثلا ً ) 

( ahmed و Ahmed 

.... 

استخدام المنهج Locate للبحث عن أكثر من حقل بنفس الوقت 

بفرض أننا نريد البحث عن اسم المسافر والجنسية بنفس الوقت 

المنهج 

: 

) 

وابحث عن القيمتين ثم احذف الخاصة 

المسافر محمد من سورية مثلا ً 

( 

نستخدم عندها 

Locate بالشكل : 

Locate ( 'FieldName1; FieldName2; FieldName3',VarArrayOf ( [SearchValue1, 

SearchValue2, SearchValue3]),Option ) ; 

: 

مثال : 


Edit2 إلى النموذج السابق وفي حدث الضغط على الزر اكتب التعليمات التالية 

if table1.Locate('pname;Nationalty',vararrayof([ edit1.Text,Edit2.text]) , [ 

locaseinsensitive , lopartialkey ] ) then 

Showmessage('the record is found') else 

Showmessage ( 'there is no match , Try Anther Value' ); 

التابع VarArrayOf ينشئ مصفوفة عناصرها من النوع . Variant 

: ملاحظة 

إذا كان الحقل من نوع عدد صحيح 

Short أو 

Long Integer يجب أن تكون SearchValue من النوع عدد 

صحيح أيضا ً ولذلك إذا أردنا أن نبحث عن رقم المسافر بدلا ً من اسمه نستبدل التعليمات السابقة بما يلي 

2 المنهج 

: 

if table1.Locate('PNo;Nationalty',vararrayof([ strtoint(edit1.Text),Edit2.text]) 

,[locaseinsensitive,lopartialkey]) then 

Showmessage('the record is found') else 

Showmessage ( 'there is no match , Try Anther Value' ); 

: Lookup 

يعيد هذا المنهج مصفوفة من القيم لمجموعة من حقول الجدول دون أن تغير موضع السجل الحالي والمثال التالي 

يوضح هذا المنهج 

: 

: 

مثال سنبحث عن رقم المسافر وسنطلب من التابع ان يعيد اسم المسافر وجنسيته 

زر التعليمات التالية 

: 

اكتب في حدث الضغط على 

var LookupResult : Variant; 

begin 

lookupResult := Table1.Lookup('Pno',strtoint(edit1.Text ),'Pname;Nationalty'); 

if Not VarIsnull( lookupResult) then 

Showmessage(vartostr(lookupresult[0]) + ' ' + vartostr(lookupresult[1] ) ); 

التعليمة الأولى للبحث عن رقم المسافر المكتوب في العنصر Edit1 ووضع النتيجة في متحول من النوع Variant 

يعيد هذا التابع 

Lookup القيمة 

Null في المتحول إذا لم يجد القيمة المطلوب البحث عنها والتابع 

يستخدم لمعرفة إذا كان المتحول من النوع Variant يحوي قيمة أم لا 

VarIsNull 

. 

112


التابع VarToStr يحول قيمة المتحول variant إلى نص 



. 

113 

: 

1 

يمكن استخدام التابع Lookup للبحث في أكثر من حقل في نفس الوقت مثال استبدل التعليمة الأولى في 

المثال السابق بالتعليمة 

lookupResult := Table1.Lookup('Pno;Pname',VarArrayof 

([strtoint(edit1.Text),Edit2.text]),'PName;Nationalty'); 

: 

2 من أهم مزايا المنهجين 

Locate و 

lookup أنهما يستطيعان التعامل مع حقول مفهرسة وغير مفهرسة ، 

ويستخدمان أيضا ً خوارزميات متقدمة للبحث حيث يستفيدان من الحقل إذا كان مفهرسا ً و يطبقان عمليات الفرز 

الفلترة 

المنهج 

) 

( 

في حال كان غير مفهرس 

. 

: FindKey 

هذا المنهج خاص بالتعامل مع الحقول المفهرسة حيث تكون عمليات البحث أسهل حيث يأخذ المنهج 

Findkey 

قيمة الحقل التي سيبحث عنها ويعيد قيمة بوليانية تدل على عثور هذا المنهج على السجل المطلوب ويقوم بنقل 

مؤشر السجل الحالي إلى السجل المطابق لشروط البحث 

: مثال 

في حدث الضغط المثال السابق على زر اكتب التعليمة التالية 

تقوم هذه التعليمة بالبحث في الفهرس 

الافتراضي 

: 

If not Table1.FindKey( [ Strtoint ( edit1.text)]) Then 

Showmessage ( 'the Record is not Found'); 

) 

PNo 

لأنه المفتاح الرئيسي 

( 

عن القيمة المكتوبة في العنصر 

Edit وفي حال تم إيجادها ينتقل مؤشر السجل الحالي للسجل المطابق لنتيجة البحث ويعيد المنهج القيمة 

في حال لم توجد النتيجة فيعيد التابع القيمة 

،True أما 

False 

للبحث في الفهارس الثانوية يجب تحديد الفهرس الثانوي عن طريق الخاصة 

ويمكن تحديدها أثناء التصميم أو أثناء التنفيذ 

مثال 

Table للعنصر IndexName 

. 

: 

في المثال السابق أعط العنصر Table1 في الخاصة 

عرفنا هذا الفهرس في البرنامج 

IndexName 

القيمة 

) PNameIndex 

( Database Desktop 

مباشرة حيث سيصبح ترتيب السجلات اعتمادا ً على الترتيب الأبجدي في الحقل 

عدل التعليمة في حدث الضغط على زر بالشكل التالي 

نفذ البرنامج وابحث عن اسم مسافر ما 

ولاحظ تغير ترتيب السجلات في العنصر 

تذكر أننا 

DbGrid 

. PName 

If not Table1.FindKey([edit1.text]) then 

Showmessage ( 'the Record is not Found'); 

: 

..... 

وجدنا أيضا ً أنه يمكن أن تكون المفاتيح الرئيسية عبارة عن حقلين أو أكثر كذلك الأمر بالنسبة للفهارس 

الثانوية وفي هذه الحالة نستخدم المنهج 

مثال : يمكن البحث في جدول 

البحث عن المسافر رقم 2 في الرحلة 

FindKey بالشكل : 

TableName.FindKey ( [ SearchValue1,SearchValue2 ,…,SearchValue3]) ; 

: [2,3]) Table1.FindKey( حيث سيتم 

" 

المسافرين والرحلات"‏ 

. 4 

باستخدام التعليمة




: FindNearest 

يشبه المنهج السابق إلا أنه ينتقل إلى سجل مطابق أو إلى أقرب سجل مطابق أو إلى أقرب سجل مطابق للقيمة 

( False أو True 

المراد البحث عنها ، كما أنه لا يعيد قيمة ) 

لا يعيد 

مثال : 

عدل التعليمة في حدث الضغط على الزر السابق لتصبح بالشكل 

ادخل في العنصر Edit1 جزء من اسم مسافر 

: 

Table1.FindNearest ([edit1.text]); 

" 

مح"‏ مثلا ً واضغط على الزر ستقوم التعليمات بوضع مؤشر السجل 

الحالي عند أول مسافر أسمه 

مح 

أو أسمه قريب إلى 

‏"محمود".‏ أو ‏"محمد"‏ مثل ‏"مح 

" 

" 

" 

: Filter 

( 

التصفية ) 

الفلترة 

تستخدم التصفية لإظهار مجموعة من الحقول تحقق معايير محددة مثلا ً نريد من الجدول أن يعرض المسافرين من 

الجنسية السورية فقط في جدول المسافرين ، أو أن نظهر جميع الرحلات التي خرجت من مطار حلب في جدول 

الرحلات . 

. True القيمة Filter 

تستخدم لهذه العملية الخاصة Filter 

للعنصر 

Table ويجب أن تأخذ الخاصة 

التصفية أثناء التصميم : 

... 

مثال : 

سنظهر في جدول الرحلات الخارجة من مدينة حلب 

Table و DataSource و DBGrid و ، Button اربط 

ابدأ مشروعا ً جديدا ً واضف 

إلية العناصر التالية 

. 

العناصر مع بعضها بحيث يظهر جدول الرحلات 

Trips في العنصر 

DBGrid1 أثناء التصميم 

Filter القيمة : 

أعط الخاصة Filtered للعنصر Table1 القيمة 

True واكتب في الخاصة 

‏'حلب'‏ = GoFrom 

سيتم تطبيق التصفية مباشرة وسيظهر الجدول جميع الرحلات المغادرة من مطار حلب ، نستطيع الآن إزالة 

التصفية بإعطاء الخاصة Filtered القيمة . False 

الآن على فرض أننا نريد أن نعرف جميع الرحلات المغادرة من مدينة حلب إلى القاهرة ، لتحقيق ذلك نكتب في 

الخاصة 

Filter القيمة التالية 

‏'القاهرة'‏ = Arriveto and ‏'حلب'‏ = Gofrom 

( True 

الخاصة 

Filter يجب أن تأخذ القيمة 

) 

كما يمكن أن نبحث عن جميع الرحل المغادرة من حلب أو دمشق إلى القاهرة ... : 

‏'القاهرة'‏ = Arriveto and ‏('دمشق'‏ = GoFrom Or ‏'حلب'‏ = (Gofrom 

" 

كما يمكن أن نوجد جميع الرحل المغادرة من بلد يبدأ أسمه بحرف " 

ح 

‏'*ح'=‏ Gofrom 

: 

CardCount > 10 

Filter القيمة 

كما يمكن نعرف الرحل التي بقي فيها أكثر من 10 بطاقات : 

اكتب في الخاصة 

114


التصفية أثناء التنفذ 



: 

Filtered القيمة 

التي بقي فيها أكثر من 

True أثناء التصميم واكتب في حدث الضغط على زر التعليمة التالية لمعرفة الرحل 

10 بطاقات : 

Table1.Filter := ' CardCount > 10 ' 

Edit النموذج : 

Table1.Filter := ' CardCount > '+ edit1.Text ; 

... 

ولمعرفة الرحل التي بقي فيها أكثر من عدد محدد من البطاقات أضف عنصر 

أدخل رقما ً في العنصر Edit1 حتى لا يحدث أخطاء 

لمعرفة الرحل المغادرة من مدينة ما نستخدم التعليمة التالية 

يعيد التابع 

: 

Table1.Filter := 'GoFrom = '+ Quotedstr(edit1.Text) ; 

) = ' 

Quotedstr ( 

Quotedstr النص المعطى في وسيطه إليه مضاف إليه إشارتي حصر مثلا ً 

وهكذا أعد تنفيذ الأمثله السابقة 

خواص العنصر 

... 

: Table 

يملك العنصر Table عدد من الخواص للتحكم به أثناء التنفيذ وهي 

: 

1 المنهج Open ‏:تسخدم التعليمة Table1.open لفتح الجدول وتكافئ التعليمة 

‏'حلب 

حلب 

Table1.Active := true 

. 


: Close 

تستخدم التعليمة Table1.Close لإغلاق الجدول وتكافئ التعليمة 

Table1.Active := 

. False 






Table1.First 

Table1.Last 

First ‏:استخدم 

لوضع مؤشر السجل الحالي عند أول سجل في الجدول 

. 

) 

: Last 

تكون قيمة X سالبة 

استخدم 

لوضع مؤشر السجل الحالي في آخر الجدول 

. 

: Next استخدم 

Table1.Next للانتقال إلى السجل التالي في الجدول 

. 

: Prior استخدم 

Table1.Prior للانتقال إلى السجل السابق في الجدول 

. 

: MoveBy( x) 

.( 

استخدم ) 5 Table1.MoveBy( للانتقال خمس سجلات إلى الأمام 

8 المنهج : Bof تعيد هذه الخاصة القيمة True إذا كان السجل الحالي في بداية الجدول 


. 

: Eof 

تعيد هذه الخاصة القيمة True إذا كان السجل الحالي في نهاية الجدول 

10 المنهج : RecordCount يعيد هذه المنهج عدد سجلات الجدول 

. 

. 

. 

: RecNo 

11 المنهج يعيد هذا المنهج رقم السجل الحالي 

12 المنهج : Delete يقوم هذا المنهج بحث السجل الحالي ويضع مؤشر السجل على السجل التالي 

الحقول الحسابية 

يمكن أن 

.. 

: 

115



الوظيفة : 

1ً أنشئ الجداول التالية باستخدم البرنامج :DataBase Desktop 

1 جدول المؤلفين : Writer 

Wadress 

WName 

رقم المؤلف * Wno 


عنوان المؤلف 

1 

2 

2 جدول دور النشر : Publisher 

PubAdr 

PubName 

رقم الدار * PubNo 

اسم الدار 

العنوان 

3 جدول الكتب : 


BookNo 


رقم المؤلف 

رقم الدار 

تاريخ الإصدار 

Edate 

PubNo 

WNo 

Book 

ً 2 اربط بين الجداول بالشكل الذي تراه منسابا ً . 

. 

ً 3 عرف فهرس 

ثانوي على الحقل اسم المؤلف و الحقل اسم الدار والحقل اسم الكتاب 

ً 4 اعرض جدول المؤلفين وجدول الكتب على نموذج واحد بحيث يكون الأول تفصيلي والثاني ثانوي . 

ً 5 ضع عدد من الأزرار على النموذج للبحث عن اسم المؤلف باستخدام أساليب البحث المختلفة 

ً 6 أعرض في نموذج جديد جميع الكتب الموجودة والتي من إصدار دار شعاع.‏ 

116


الجلسة‎19‎ 

الحقول الحسابية 


: 

تستخدم الحقول الحسابية عادة لإعطاء نتيجة حسابية أجريت على عدد من حقول الجدول وهذه الحقول لا تخزن في 

القاعدة البيانات ولكن تظهر للمستخدم فقط 

في الجدول 

مثال 

) 

.... ( 

: 

لا حاجة أصلا ً لتخزين هذه المعطيات لأنها معتمدة على حقول أخرى 

على فرض أن جميع الرحلات قادرة على حمل 350 مسافر نريد أن ننشئ حقل حسابي يعرض عدد 

البطاقات المحجوزة على رحلة ما بالاعتماد على العلاقة 

CardCount عدد البطاقات المحجوزة 

= 350 - 

ابدأ مشروعا ً جديدا ً أضف إليه العناصر 

الجدول 

التصميم 

Trips بحيث يظهر الجدول في 

: DBGrid و DataSource 

117 

Table و 

DBGrid أثناء 

... 

اعط الخاصة 

. False القيمة للعنصر Table1 Active 

اضغط مرتين على العنصر 

Table ليظهر 

محرر 

الحقول،‏ ثم اضغط بزر الفأرة اليميني وأضف جميع 

الحقول،‏ اضغط بزر الفأرة اليميني مرة أخرى واختر 

New field ستظهر عندها النافذة حقل جديد 

اكتب 

اختر 

CapCard في القسم 

Name وفي القسم 

Type 

Integer واختر 


Calculated في القسم 

Field type 

. Ok 

أغلق محرر الحقول واختر العنصر 

OnClacFields واكتب فيه التعليمة التالية 


Table1 وانتقل إلى الصفحة 

اربط العناصر مع بعضها ومع 

Event في محرر الخواص وانتقل إلى الحدث 

: 

Table1CapCard.Value := 350 - table1Cardcount.value ; 

، CapCard عدل 

Active القيمة True للعنصر 

في أحد حقول CardCount ولاحظ التغير المباشر في الحقل 

مثال 

Table1 ونفذ البرنامج،‏ واستعرض الحقل الجديد 

... CapCard 

: 2 

الرحلة ستنطلق بتاريخ 

الحقل 

القسم 

نريد أن نضيف حقل جديد إلى الجدول السابق يعطي اسم اليوم الذي ستنطلق منه الرحلة 

15/9/2003 فإن قيمه هذا الحقل ستكون 

GoTime ولتحقيق ذلك أعط الخاصة 

) 

" ( الاثنين " 

Active للعنصر Table1 القيمة 

Name أكتب 

TheDay وفي القسم 

OnClacFields واكتب التعليمات التالية 

ملاحظة 

Type اختر 

: 

أي اذا كانت 

، سيعتمد هذا الحقل في قيمته على 

False وافتح محرر الحقول وفي 

، String اضغط على OK وانتقل إلى الحدث 

Case DayOfWeek ( Table1GoTime.AsDateTime ) of 

‏;'الأحد'=:‏ 1: Table1Theday.Value 

: 

لا تؤثر الحقول الحسابية على بنية قاعد البيانات 

، وإذا أردنا استخدام هذه الحقول في أكثر من نموذج علينا 

تعريفها من جديد في كل عنصر 

Table جديد .


‏;'الاثنين'=:‏ 2: Table1Theday.Value 


‏;'الثلاثاء'=:‏ 3: Table1Theday.Value 

‏;'الأربعاء'=:‏ 4: Table1Theday.Value 

‏;'الخميس'=:‏ 5: Table1Theday.Value 

‏;'الجمعة'=:‏ 6: Table1Theday.Value 

‏;'السبت'‏ := Table1Theday.Value 7: 

end; 

.... 

يعيد التابع 

DayOfWeek رقم اليوم في الأسبوع حيث أن اليوم الأول الأحد والثاني الاثنين 

.......... 

نفذ البرنامج وعدل في قيم الحقل 

GoTime ولاحظ النتائج 

SQL ( Structured Query Language ) 

لغة الاستفسارات البنيوية : 

تعريف : لغة 

SQL هي لغة برمجة خاصة للتعامل مع قواعد البيانات وتعتبر لغة برمجة عالية المستوى،‏ حيث 

يمكنها في سطر واحد إجراء عمليات بالغة التعقيد على قاعدة البيانات.‏ 

: 

تستخدم 

SQL مجموعة من التعليمات للتعامل مع قواعد البيانات سنتعرف على بعض منها الآن 


: Select 

التعليمات بين 

مهمة هذه التعليمة إحضار المعلومات من قواعد البيانات ولها الشكل العام التالي 

: 

Select FieldName1 , FieldName2 , FieldName13…. 

From TableName1,TableName2 … 

[ Where Condition ] 

[ Group By FieldName1,…] 

[ Order By FieldName ] 

] [ اختيارية . 

تقوم هذه التعليمة بإحضار الحقول المحددة القسم 

From من الجدول المذكور اسمه في القسم Select 

مثلا ً إذا أردنا إحضار حقل اسم المسافر و الجنسية من جدول المسافرين نستخدم التعليمة التالية 

يتم التعامل في دلفي مع 

SQL باستخدام العنصر 

Query الموجود في الصفحة 

: 

Select PName , Nationality 

From Passengers 

BDE وهو عنصر يشابه العنصر 

Table بشكل كبير ولكنه لا يملك الخاصة 

TableName حيث يتم تحديد الجداول التي ستتعامل مع هذا العنصر 

SQL فيها . 

باستخدام الخاصة 

SQL التي يتم كتابة تعليمات 

SQL السابق 

مثال : 

تحقيق مثال تعليمة 

ابدأ مشروعا ً جديدا ً وأضف إلى النموذج العناصر التالية Query و DataSource و DBGrid وDBNavigator 

. 

SQL 

... 

أعط الخاصة DataBaseName للعنصر Query1 القيمة 

Travel ‏،عند الضغط على 

في الخاصة 

Select PName , Nationality 


تظهر نافذة اكتب فيها التعليمات التالية : 

118


) True 



Active القيمة في حال ظهور رسالة خطأ تأكد من التعليمات ومن كتابتك لأسماء الحقول 

والجدول بشكل صحيح)‏ 

أعط الخاصة DataSet للعنصر DataSource1 القيمة Query1 واربط DBGrid1 و DBNavigator1 مع 

. DataSource1 

نفذ البرنامج ولاحظ ظهور الأعمدة المطلوبة في عبارة 

Select داخل العنصر 

، DBGrid لاحظ أيضا ً أن أزرار 

تعديل وإضافة السجلات في العنصر DBNavigator1 

غير فعالة ، كما أنه لا يمكن التعديل في البيانات من 

خلال العنصر 

DBGrid1 مباشرة وذلك يعود إلى أن عبارة 

Select تستخدم لجلب البيانات من قاعدة البيانات ، 

أما إذا أردنا التعديل أو الإضافة أو الحذف فهناك تعليمات 

SQL خاصة بذلك،‏ ولكن العنصر 

Query يملك خاصة 

تجعل البيانات قابلة للتحرير وهي الخاصة 

، RequestLive فعند إعطاء هذه الخاصة القيمة 

True يمكن التعامل 

Table تمام ًا . 

مع العنصر Query كما 

كنا نتعامل مع العنصر 

مثال 

2 ‏:إذا أردنا إحضار حقول الجدول بالكامل نستخدم التعليمة 

* Select بدلا ً من ذكر أسماء الأعمدة ، عدل 

Select * 


False إلى Query 

العبارة في المثال السابق 

) 

بعد أي تعديل على الخاصة 

داخل الخاصة SQL لتصبح بالشكل 

: 

SQL ستعود 

قيمة الخاصة 

Active للعنصر 

استخدام الشرط : Where 


Where داخل عبارة 

Select لتحقيق شروط معينة على البيانات التي 

سيحضرها الاستعلام . 

. 5 

مثال 

: 3 نريد عرض جميع حقول جدول المسافرين والذين أرقامهم أكبر من 

عدل التعليمات السابقة في الخاصة SQL لتصبح بالشكل 

مثال 

مثال 

مثال 

مثال 

Select * 


Where PNo > 5 

: 

119 

: 4 

نريد عرض اسم المسافر الذي رقمه 

: 3 

: 5 

: 6 

نريد عرض جميع المسافرين الذين أرقامهم بين 

نريد عرض المسافرين الذين أرقامهم خارج المجال 

Select * 


Where PNo = 3 

2 و : 5 

Select * 


Where PNo Between 2 and 5 ; 

: 5 – 2 

Select * 


Where PNo Not Between 2 and 5 ; 

: 

Select * 

: 7 

نريد عرض جميع المسافرين الذين اسمهم محمد


مثال 

مثال 



‏'محمد'‏ = PName Where 

: 8 

نريد عرض جميع المسافرين الذين يبدأ اسمهم بحرف م 

Select * 


‏'%م'‏ Where Pname Like 

: 9 

نريد عرض جميع المسافرين الذين يبدأ اسمهم بحرف م وطول اسمهم أربع أحرف 

تستخدم % في تعليمة Like للإشارة إلى عدد من الأحرف 

تستخدم 

م 

: 

Select * 


Where Pname Like '____ ' 

. 

_ 

استخدام الترتيب 

في تعليمة Like للإشارة إلى حرف وحيد 

. 

: Order By 

تستخدم تعليمة Order by لترتيب البيانات حسب حقل محدد 

مثال 

مثال 

مثال 

: 

:10 

نريد عرض جميع المسافرين والذين أرقامهم أكبر من 

5 بحيث يظهر ترتيب الأسماء تصاعديا ً 

Select * From Passengers 

Where PNo > 5 

Order By PName 

5 بحيث يظهر ترتيب الأسماء تصاعديا ً 


Where PNo > 5 

Order By PName desc 

:10 

نريد عرض جميع المسافرين والذين أرقامهم أكبر من 

11 ‏:نريد عرض جميع المسافرين والذين أرقامهم أكبر من 

ومن ثم لأ للجنسية ) 

5 بحيث يتم ترتيب الجدول بالنسبة 

للأسماء أولا ً 

أي إذا تطابق اسمي مسافرين سيوضع ترتيبها في الجدول حسب ترتيب الجنسية أبجديا ً ( . 


Where PNo > 5 

Order By PName ,Nationality 

التوابع الجامعة في 


مثال 

120 

: SQL 

: Count 

يعيد عدد السجلات التي تعيدها عبارة 

: Select 

:12 

لمعرفة عدد الرحلات المغادرة من مدينة حلب في جدول الرحلات 

سيظهر في الجدول حقل وحيد فيه عدد السجلات المغادرة من مدينة حلب ‏،عنوان هذا الحقل 

تغير هذا العنوان بتعديل تعليمة 

Select Count( * ) 

From Trips 

‏'حلب'‏ = GoFrom Where 

Count(*) ، يمكن 

Select Count( * ) as Total …. 

Select إلى


. 


2 التابع : Sum يعيد هذا التابع مجموع سجلات حقل ما 

SQL التالية : 

Select Sum(CardCount) 

From Trips 

‏'حلب'‏ = GoFrom Where 

مثال : 13 

لمعرفة مجموع بطاقات الرحلات المغادرة من حلب نستخدم عبارة 


Avg ‏:يعيد هذا التابع المعدل الوسطي لمعطيات سجلات حقل ما 

Select Avg(CardCount) 

Form Trips 

: 14 مثال 

لمعرفة المعدل الوسطي لعدد البطاقات الموجودة بالنسبة لعدد الرحلات 

4 التابع : Max يعيد هذا التابع أكبر قيمة في الحقل 

: 

Select Max(CardCount) 

From Trips 

مثال 

لمعرفة أكبر عدد للبطاقات في حقل 

CardCount 

: 15 


: Min يعيد هذا التابع أصغر قيمة في حقل ما 

. 

عبارة : Group By 

تستخدم ضمن تعليمة 

Select لإجراء عمليات على البيانات وفرزها ضمن مجموعات وهي مرتبطة بشكل وثيق مع 

التوابع الجامعة : 

: 

مثال 

: 16 لإظهار عدد الرحلات 

المغادرة من كل مطار 

Select GoFrom ,Count(GoFrom) 

From Trips 

Group by GoFrom 

: 

مثال 

: 17 لمعرفة عدد البطاقات للرحل المغادرة من كل مطار 

Select GoFrom ,Sum(CardCount) 

From Trips 


Select 


جميع الحقول الواردة في تعليمة 

يجب أن ترد في تعليمة 

Group By ما عدا الحقول التي 

تستخدم التعليمات الجامعة . 

عبارة : Having 

. 

تستخدم تعليمة 

Having بعد التعليمة 

Group By لوضع شروط على عملية فرز البيانات 

121 

مثال : 18 

لمعرفة عدد البطاقات للرحل المغادرة من كل مطار والتي عدد بطاقاتها أكبر من 

. 10 


From Trips 


Having Sum( CardCount) > 10 

Null 


مثال : 19 

لمعرفة عدد البطاقات للرحل المغادرة من كل مطار والتي عدد بطاقاتها لا يساوي


From Trips 


Having Sum( CardCount ) is not null 


122



الجلسة 20 

ربط الجداول : 

Where 

يمكن استخدام عبارة 

Select لإحضار بيانات من أكثر من جدول وبتطبيق بعض الشروط في عبارة 

نحصل على جداول مرتبة وأكثر فاعلية من الجداول التي يظهرها العنصر . Table 

Passengers و 

مثال 1: 

ربط الجدولين 

PassAndTrips لإظهار اسم المسافر بدلا ً من رقمه 

: 

SELECT Pname,TripNo,SeatNo,ClassNo 

FROM PassAndtrips, Passengers 

WHERE PassAndtrips.PNo = Passengers.PNo 

" 

تقوم هذه التعليمة بإحضار أسماء الأعمدة المختارة من جدولي المسافرين و " 


بتطبيق الشرط 

الأخير والذي يسمى شرط ربط الجداول ) 

في حال تشابه اسم الحقل في جدولين نكتب اسم الجدول قبل اسم الحقل 

وبينهما نقطة Passengers.PNo 

: Trips و Passengers و PassAndTrips 

مثال 

2 ‏:ربط الجداول 

بحيث يظهر جدول فيه اسم المسافر و اسم 

الشركة التي سيسافر معها وبلد المغادرة و رقم المقعد ورقم الصف 


هي تعليمة تستخدم للربط بين الجداول حيث يمكن كتابة عبارة 

: 

SELECT Pname, Company, GoFrom, SeatNo, ClassNo 

FROM Passandtrips, Passengers, Trips 

WHERE (PassAndtrips.PNo = Passengers.PNo) 

AND (PassAndtrips.TripNo = Trips.TripNo) 

: Inner join 

ويمكن كتابة عبارة SQL للمثال الثاني بالشكل 


SQL 

للمثال الأول بالشكل 

: 

SELECT Pname, TripNo,SeatNo, ClassNo 

FROM PassAndtrips 

INNER JOIN Passengers 

ON (Passengers.PNo = PassAndtrips.PNo) 

SELECT Pname, company, SeatNo, ClassNo 

FROM Passandtrips 

INNER JOIN Passengers 

ON (Passengers.PNo = Passandtrips.PNo) 

INNER JOIN Trips 

ON (Trips.TripNo = Passandtrips.TripNo) 

: 

: 

SQL 

1 هناك عبارات أخرى للربط مثل Outer Join و Left Join و 

Right Join يمكنك مراجعة كتب 

للتعرف عليها.‏ 

SQL منها : 

1 بالإضافة لعبارة 

SELECT يوجد عبارات أخرى في 

العبارة 

العمل 

إنشاء جدول 

Create Table 

123


. 


إدخال قيم إلى جدول 

تعديل قيم جدول 

حذف سجلات من جدول 

Insert 

Update 

Delete From 

للتعرف على هذه الأوامر راجع كتب SQL المختصة .... 

البرنامج : SQL Builder 

يستخدم هذا البرنامج لكتابة 

تعليمات 

SQL بشكل مرئي 

وتفاعلي وبكلام آخر هو عبارة 

عن أداة تسهل كتابة تعليمات 

SQL كما تمكننا من استعراض 

النتائج ... 

لتشغيل SQL Builder 

ضع 

عنصر 

Query على النموذج 

واضغط عليه بزر الفأرة اليمني 

واختر SQL Builder من 

القائمة ستظهر عندها النافذة المجاورة 

: 1 مثال 

لإظهار حقول من جدول الرحلات 

: 

1 

من القائمة المنسدلة Database اختر اسم قاعدة المعطيات Travel عندها ستظهر جميع الجداول ضمن هذه 

القاعدة في النافذة المجاورة Table اختر منها 

Trips.db 

2 ستظهر عندها نافذة صغيرة تحوي جميع حقول جدول الرحلات وبجوار هذه الحقول صناديق خيار ، بتحفيز 

هذه الصناديق يمكن اختيار الحقول التي ستظهر في الاستعلام 

) 

حدد بعضا ً من هذه الحقول 

. ( 

3 

اضغط على الزر Execute SQL من إزارا السرعة ستلاحظ مباشرة نتائج الاستعلام والذي يمكنك 

قراءة تعليماته بالضغط على الزر SQL المجاور للزر السابق 

4 أغلق البرنامج 

. 

SQL Builder 

ستشاهد التعليمات ضمن الخاصة 

سيسألك البرنامج إذا كنت تريد حفظ التغيرات إلى الاستعلام ، إذا اخترت نعم 

SQL للعنصر 

Query بشكل تلقائي 

.. 

مثال 

: لإظهار جميع الرحلات المغادرة من مطار حلب قم بما يلي 

: 2 تعليمة Where باستخدام SQL Builder 

: 

124



: 

... 

1 ادخل إلى البرنامج SQL Builder 

كما في السابق 

2 حدد جميع حقول الجدول 

Trips.db بالضغط على صندوق الخيار المجاور لأسم الجدول 

) ضمن النافذة 

الصغيرة ( . 

Field Value واختر = 

: ( 

3 ضمن الصفحة ) Criteria 

معايير 

اختر Trips.Gofrom من العمود الأيسر 

. ( 

) 

Field Value 

من العمود 

Compare واكتب في العمود الأيمن 

حلب الكلمة 

... 

4 شاهد عبارة 

SQL ثم نفذها 

. 

: 

مثال 3 

سنضيف شرط جديد على المثال السابق وهو إظهار الرحلات التي غادرت حلب باتجاه القاهرة 

Compare 

في السطر التالي للشرط السابق اختر من العمود الأيسر 

Trips.ArriveTo واختر = من العمود 

1 

. ( 

واكتب في العمود الأيمن ) 

القاهرة 

تغير عناوين الحقول 

: يق SQL Builder اختر الصفحة Selection ستشاهد فيها جميع الحقول التي قمت 

) 

( 

Field 

) 

باختيارها من الجدول 

Trip يمكنك حيث يظهر في العمود الأيمن 

اسم الحقل ويظهر العمود الأيسر 

عنوان الحقل يمكنك في هذا القسم كتابة عنوان للحقل 

يمكنك استخدام اللغة العربية 

،( يظهر 

( 

) 

( Output Name 

، 

( Query 

عنوان الحقل في القسم اسم الحقل في العنصر 

DBGrid المرتبط مع العنصر 

. 

نفذ عبارة 

SQL لتلاحظ النتائج 

ترتيب حقول الجدول : 

SQL Builder نختار 

وجدنا أن تعليمة 

Order By تستخدم لترتيب الجدول و لكتابة هذه التعليمة باستخدام 

الصفحة 

Sorting حيث تظهر في القسم الأيسر جميع الحقول المختارة من الجدول ، حدد أحد هذه الحقول واضغط 

على الزر 

Add ليضاف اسمه إلى القسم الأيمن من الصفحة 

، يمكنك إضافة أكثر من حقل كما 

( Sorted by 

) 

يمكنك تحديد طريقة الترتيب 

تصاعدي أم تنازلي 

باختيار الحقل في القسم 

Sorted By والضغط على أحد 

( 

) 

الزرين AZ أو Z A قي الوسط .... 

التجميع وشروط التجميع :Group by …Having 

. 

Group Criteria و Grouping 

يمكنك كتابة التعليمات Group by و Having 

باستخدام الصفحتين 

ربط الجداول باستخدام : SQL Builder 

حل المثال الأول : 

افتح البرنامج 

عن طريق الضغط بزر الفأرة اليميني على عنصر 

( Query اختر القاعدة 

) SQL Builder 

Travel واختر الجدول 

PassAndTrips ومن اللائحة 

Table ومن ثم اختر الجدول 

Passenegers من نفس 

اللائحة : 

Passengers 

ستظهر عندها نافذتي الجدولين ، اضغط بزر الفأرة الأيسر على الحقل 

PNo في نافذة الجدول 

وحرك يدك باتجاه الحقل 

PNo في نافذة الجدول 

PassAndTrips مع إبقاء الزر مضغوطا ً ، حرر زر الفأرة فوق 

الحقل 

PNo تماما ً ، سيظهر عندها خط يصل بين النافذتين دليل على عملية الربط 

) اختر بعض الحقول من 

الجدولين وشاهد النافذة 

SQL للمشاهدة التعليمات 

. ( 

125



Trips 

لحل المثال الثاني : 

أضف الجدول 

من اللائحة 

Table ستظهر عندها نافذة الجدول 

Trips وبنفس الطريقة 

... 

: 

السابقة اربط بين الحقلين 

الاستفسارات الديناميكية 

TripNo في الجدولين 

( 

جميع الاستفسارات التي أجرينها حتى الآن تدعى استفسارات ) 

استعلامات 

ستاتيكية وذلك لأنها شروطها تكون 

محددة أثناء التصميم فمثلا ً في المثال الذي بحثنا فيه عن الرحلات المغادرة من مطار حلب كتبنا العبارة 

‏'حلب 

' = GoFrom ، Where من الملاحظ أن هذا الاستفسار يعيد دائما ً الرحلات المغادرة من حلب ولا يستطيع 

المستخدم البحث عن الرحلات المغادرة من دمشق دون العودة إلى البرنامج إلى وضع التصميم و تغيير كلمة حلب 

إلى دمشق ... 

لذلك زودتنا دلفي بما يسمى بالاستفسارات الديناميكية والتي تمكن المستخدم 

من إعطاء الشرط أثناء التنفيذ وذلك عن 

طريق تعديل الشرط السابق بالشكل Where GoFrom = :ParamName حيث 

Query يعطى قيمة ما أثناء التنفيذ 

ParamName وسيط للعنصر 

. 

: 

مثال : 

إحضار معلومات من جدول الرحلات عن الرحلات المغادرة من بلد يحدده المستخدم 

ابدأ مشروعا ً جديد ًا وأضف عنصر 

Query و عنصر 

DataSource و عنصر 

DBGrid بالإضافة إلى عنصر 

Button و زر Edit 

اربط العناصر مع بعضها كالعادة 

حيث 

واكتب العبارة التالية في الخاصة 

للعنصر Query1 SQL 

... 

SELECT Company, TripNo, GoFrom, ArriveTo, GoTime, ArriveTime, CardCount 

FROM Trips 

Where GoFrom =:CityName 

) 

CityName هي عبارة عن وسيط ستمرر قيمته إلى العنصر 

. ( Button1 

Query1 أثناء التنفيذ 

عند الضغط على الزر 

، Edit Query1.Params 

... 

حدد الخاصة Params للعنصر 

Query1 واضغط على الزر المنقط 

لتظهر النافذة 

Data Type 

حدد الوسيط 

CityName من هذه النافذة 

لتظهر خواصه في محرر الخواص ومن ثم غير الخاصة 

إلى القيمة . ftString 

: 


Button1 اكتب التعليمات التالية 

query1.Close; 

query1.ParamByName('cityName').Value := edit1.Text; 

query1.Open 

( ... ) 

نفذ البرنامج واكتب في العنصر 

Edit1 اسم البلد الذي تريد 

حلب ، دمشق 

واضغط على الزر ليحضر 

الاستعلام جميع الرحلات المغادرة من هذا البلد . 

مثال : 2 

يمكنك الاستعلام عن رقم الرحلة بشكل ديناميكي عن طريق الاستفسار التالي 

: 

SELECT Company, TripNo, GoFrom, ArriveTo, GoTime, ArriveTime, CardCount 

FROM Trips 

126


في النافذة 


Where TripNo =: TripNumber ; 

. ftInteger إلى DataType 

Edit Query1.Params حدد الوسيط 

وفي حدث الضغط على الزر اكتب التعليمة التالية 

ملاحظة 

TripNumber وغير الخاصة 

: 

query1.Close; 

query1.ParamByName('TripNumber').Value := strtoint (edit1.Text) ; 

query1.Open ; 

: 

SQL Builder لا يدعم الوسطاء 

أردت التعديل في العبارة فعليك حذف الوسيط والدخول إلى البرنامج 

الخروج من البرنامج 

مناهج العنصر 

، Parameter ولا يمكن فتح البرنامج بعد إضافة وسيط إلى عبارة 

SQL وإذا 

. 

: Query 

جميع المناهج التي استخدمناها مع العنصر 

Table يمكن استخدامها مع العنصر 

SQL Builder ومن ثم إعادة الوسيط عند 

Query مثل ) Locate و 

( .... First و Eof و Bof و Lookup 

إلا أن العنصر Query لا يستخدم اسلوبي البحث 

FindNearest وذلك لأن الجداول التي يعيدها العنصر Query لا تعتمد على مفتاح أساسي 

مثال هام 

FindKey و 

.. 

: 

ليكن قاعدة بيانات لشركة ما Company وليكن لدينا جدول الموظفين 

رقم 

الموظف 

Employees التالي : 

EmpNo 

10 

16 

20 

30 

اسم الموظف 

EmpName 

رقم المدير 

ManagerNo 

رقم الفرع 

Department_id 

تاريخ المباشرة 

Hiredate 

الراتب 

Salary 

9000 

12500 

11000 

14000 

10/1/2002 

06/08/2000 

09/01/2001 

05/07/2000 

3 

2 

3 

2 

200 

300 

100 

100 

Sara 

kala 

Dani 

Wleed 

أنشئ هذا الجدول باستخدام 

Database Desktop وأدخل البيانات إليه 

: 

ابدأ مشروعا ً جديدا ً وأضف إليه العناصر اللازمة كما في الشكل 

: 

127



أربط العنصرين DBGrid و 

DBNavigator مع العنصر 

DataSource وسنقوم بربط 

DataSource مع ال 

Query أثناء التنفيذ . 

: 

كما تلاحظ لدينا ست عناصر 

Query وفيما يلي تعليمات 

SQL لكل منها 

Name للعنصر Query1 القيمة 

استعلام البحث عن موظف : 


QryEmpNo و اكتب 

1 

Select * from employees Where EmpNo = : No 


التعليمات التالية في الخاصة : SQL 

2 استعلام البحث عن اسم موظف 

‏:أعط الخاصة 

QryEmpName وكتب في 

Select * from employees Where EmpName =:name 


( 

استعلام الرواتب : ) 

يعطي الرواتب التي بين قيمتين 


: SQl 

3 

Select * from Employees Where salary between :mn and :mx 

QryHireDate القيمة للعنصر Query4 Name 

Select * from Employees Where hiredate between :b and :e 


Select Department_id ,sum(salary ) form employees 

Group by DepartMent_id 

128 

: 

... QrySal 

4 استعلام تاريخ المباشرة 


5 استعلام حساب مجموع الرواتب في كل قسم:‏ أعط الخاصة 

QrysumsalaryByDepartment



: 


استعلام البحث عن الموظفين الذين يتبعون لمدير معين 


QryManager: 

Select Empname From employees Where managerNo = :mno 

وفيما يلي نستعرض أحداث الضغط على الأزرار : 

( 

) 

QryEmpNo.Close; 

DataSource1.DataSet := QryEmpNo ; 

QryEmpNo.ParamByName ( 'No') .value := Strtoint ( Edit1.text ) ; 

QryEmpNo.Open; 

: ( 

) 

QryEmpName.Close ; 

DataSource1.DataSat := QryEmpName ; 

QryEmpName.ParamesByName ( 'Name').Value := Edit2.text ; 

QryEmpName.Open ; 

( 

) 

QrySal.Close ; 

DataSource1.DataSat := QrySal ; 

QrySal.ParamByName( ' mn') .Value := strtoint ( edit3.text ) ; 

QrySal.ParamByName( ' mx') .Value := strtoint ( edit4.text ) ; 

QrySal.Open ; 

: ( 

) 

QryHireDate.Close ; 

DataSource1.DataSat := QryHireDate; 

QryHireDate.ParamByName ( 'b').asdate := datetimepicker1.date; 

QryHireDate.ParamByName ( 'e').asdate := datetimepicker2.date; 

QryHireDate.Open ; 

: ( 

QrysumsalaryByDepartment.Close ; 

DataSource1.DataSat := QrysumsalaryByDepartment; 

QrysumsalaryByDepartment.Open ; 

: ( 

) 

6 

1 حدث الضغط على الزر 




5 حدث الضغط على 

بحث عن اسم الموظف 

ابحث عن اسم الموظف 

استعلام الرواتب 

استعلام التاريخ 

) مجموع الرواتب في كل قسم 


موظفي المدير 

QryManager.Close ; 

DataSource1.DataSat := QryManager; 

QryManager.ParamByName ( 'mno').Value := strtoint ( Edit5.text ) ; 

QryManager.Open ; 

While not QryManager.eof Do 

Begin 

Showmessage (QryManager.fieldByName ('EmpName').Value ) ; 

QryManager.Next ; 

End; 

129


. 


سيظهر هذا الحدث اسم أول موظف يأتي به الاستعلام وعند الضغط على 

Ok سيظهر اسم الموظف التالي وهكذا 

130


21 


الجلسة 

إنشاء الجداول ببرنامج 

:Access 

افتح برنامج Access XP ‏(وهو أحد تطبيقات 

يختلف الأمر كثير ًا 

،(Microsoft Office XP 

- يمكن استخدام 

office 2003 فلا 

- 

ومن قائمة ‏"ملف ّ"‏ 

جانب واجهة التطبيق كما في الصورة التالية:‏ 

..New اختر ‏"جديد"‏ File 

ستظهر لك نافذة ‏"ملف ّ جديد"‏ 

New File في 

تحت شريط ‏"جديد"‏ اضغط الأمر ‏"قاعدة بيانات فارغة"..‏ سيظهر لك مربع حوار ‏"حفظ ملف ّ"‏ يطلب منك تحديد اسم 

قاعدة البيانات وموقع حفظها على الجهاز..‏ غير اسم قاعدة البيانات من الاسم الافتراضي إلى 

بحفظها في الموضع الذي تريده.‏ 


،"Books.mdb" وقم 

: 

تخزن قاعدة بيانات أكسيس في ملف واحد من امتداد .Mdb على عكس قاعدة بيانات باردوكس التي تعتمد ملف 

مستقل لكل جدول أو فهرس 

.... 

ليست هناك اختلافات كبيرة بين 

Access XP و Access 2000 و 

يمكنك أن تتبع معنا هذه الخطوات على أي من هذه النسخ.‏ 

Access 97 فيما يتعل ّق بإنشاء الجداول،‏ لهذا 

بعد إغلاق مربع الحوار ستظهر لك نافذة قاعدة البيانات كما 

في الصورة التالية:‏ 

131



انقر الأمر 

‏"إنشاء جدول في طريقة عرض التصميم"‏ 

مرتين بالفأرة..‏ 

ستظهر لك نافذة تصميم الجدول كما في 

الصورة التالية:‏ 

الآن كلّ‏ ما عليك هو كتابة أسماء الحقول وتحديد نوعية البيانات في كلّ‏ منها..‏ 

تعالَ‏ نبدأ بتصميم جدول أسماء 

المؤل ّفين..‏ 

هذا الجدول سيتكون من العمودين التاليين:‏ 


نوع البيانات 

ترقيم تلقائي 

نص 

الوصف 

المفتاح الرئيسي لهذا الجدول 

اسم المؤل ّف 

ID 

Author 

بعد أن تنشئ هذه الأعمدة،‏ اضغط بزر الفأرة الأيمن على المربع الرمادي الموجود على يمين الحقل ،ID ومن 

القائمة الموضعية اضغط 

‏"مفتاح أساسي"‏ 

وذلك لجعل هذا الحقل مفتاحا أساسيا للجدول.‏ 

ستلاحظ ظهور رمز المفتاح أمام هذا الحقل..‏ 

ستلاحظ كذلك أن خاصية 

‏"مفهرس"‏ 

Indexed في المنطقة السفلى 

من النافذة ستتحول إلى 

‏"نعم بدون 

تكرار"،‏ وهو شيء متوق ّع،‏ فلقد اتفق ّنا أن قيم المفتاح الأساسي غير قابلة للتكرار.‏ 

شيء آخر..‏ 

اضغط بالفأرة على حقل اسم المؤل ّف 

،Author وفي المنطقة السفلى من النافذة غير قيمة خاصية 

20 حرفا.‏ 

‏"حجم الحقل"‏ 

إلى 

30 بدلا من 

50، بافتراض أن أطول اسم لمؤل ّف لن يزيد عن 

Authors 

الآن اضغط 

Ctrl+S لحفظ الجدول..‏ 

سيظهر لك مربع إدخال يطالبك بإدخال اسم الجدول..‏ 

سمه 

واضغط زر .OK 

ملحوظة:‏ 

سم الجداول والأعمدة بأسماء أجنبية،‏ وذلك لأن هذه الأسماء ستدخل في كتابة الكود في 

،VB وسيكون من المرهق 

الانتقال من الإنجليزية إلى العربية والعكس أكثر من مرة أثناء كتابة الكود.‏ 

132


1 

2 

3 

4 

5 

6 

7 

8 

9 


الآن لو أغلقت نافذة التصميم،‏ فستجد أن الجدول Authors قد أضيف إلى نافذة قاعدة البيانات..‏ انقره مرتين 

بالفأرة..‏ ستجد أن نافذة جديدة قد فتحت،‏ تعرض لك جدول المؤل ّفين..‏ أدخل البيانات التالية:‏ 


عباس العقاد 

محمد عبد الحليم عبد االله 

نبيل فاروق 

أحمد خالد توفيق 


منصور 

راتب 

عقل 

بنفس الطريقة صمم جدول الكتب كالتالي:‏ 


نوع البيانات 

ترقيم تلقائي 

نص 

نص 

الوصف 

المفتاح الرئيسي لهذا الجدول.‏ 


رقم المؤل ّف 

ID 

Book 

AuthorID 

احفظ هذا الجدول باسم 

،Books وأدخل فيه البيانات التالية:‏ 

AuthorID 

1 

1 

1 

2 

2 

2 

3 

4 

4 

Book 

أرني االله 

يوميّات نائب في الأرياف 

عصا الحكيم 

سارة 

عبقرية محمد 

عبقرية عمر 

شجرة اللبلاب 

مهنتي القتل 

الأفق الأخضر 

133 

ID 

1 

2 

3 

4 

5 

6 

7 

8 

9



5 

5 

5 

6 

6 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

أسطورة الغرباء 

العاشر 

لا تدخلوا شيرود 

مجرد طريقة للتفكير 

حائرة في الحب 

بين قوسين من الخلود 

حياتي 

حياتي 

حياتي 

إنشاء علاقة بين جدولي المؤل ّفين والكتب:‏ 

أعتقد أن ّك متشوق لمعرفة كيفية ربط حقلي رقم المؤل ّف بين الجدولين لتحقيق التكامل المرجعي 

Integration بين الجدولين..‏ ستجد الأمر غاية ً في البساطة:‏ 

من قائمة أدوات Tools اضغط الأمر ‏"علاقات"‏ 

الصورة التالية:‏ 

Referential 

..Relationships 

ستظهر لك نافذة ‏"إظهار جدول"‏ الموضحة في 

اختر كلّ‏ جدول واضغط زر 

‏"إضافة"..‏ 

بعد أن تضيف الجدولين أغلق هذه النافذة..‏ 

ستبدو لك نافذة العلاقات 

كالتالي:‏ 

134



حيث يظهر كلّ‏ جدول كمستطيل عليه عنوان الجدول،‏ وبه أسماء أعمدته.‏ 

ولإنشاء علاقة بين الجدولين،‏ اسحب حقل ID بالفأرة من جدول المؤل ّفين،‏ وتحرك بالفأرة إلى الحقل AuthorID 

في جدول الكتب..‏ ستلاحظ تغير شكل مؤش ّر الفأرة..‏ اترك زر 

الفأرة الأيسر فوق هذا الحقل..‏ هنا ستظهر لك نافذة 

: 

إنشاء العلاقة بين الحقلين:‏ 

اضغط اختيار ‏"فرض التكامل المرجعي"‏ 

Enforce Referential 

،Integrity لتقوم قاعدة البيانات آليا بالتحق ّق من صحة البيانات بين 

الجدولين..‏ وفي هذا الصدد لديك اختياران:‏ 

تتالي تحديث الحقول المرتبطة 

Cascade Update Related 

:Fields 

فمثلا،‏ لو غيرت رقم ‏(توفيق الحكيم)‏ من 

الكتب التي أل ّفها إلى 

1 إلى 

.10 

10، فسيتم تغيير رقم المؤل ّف AuthorID تلقائيا في سجلات كلّ‏ 

ملحوظة:لن تستطيع تغيير قيمة رقم المؤل ّف ID في جدول المؤل ّفين،‏ لأن ّه ترقيم تلقائي‏..‏ ولو أردت تغييره،‏ فعليك 

بتغيير نوع الحقل من ترقيم تلقائي إلى رقم،‏ على أن يكون هذا قبل إنشاء العلاقة،‏ لأن ّه من غير المسموح تغيير نوع 

بيانات حقل داخل في علاقة.‏ 

تتالي حذف السجلات المرتبطة 

:Cascade Delete Related Fields 

فمثلا،‏ لو حذفت سجلّ‏ ‏(نبيل فاروق)‏ من جدول المؤل ّفين،‏ يتم حذف كلّ‏ كتب 

اضغط زر ‏"إنشاء"‏ لإغلاق هذه النافذة.‏ 

الآن سيظهر خط ّ يربط الجدولين كالتالي:‏ 

‏(نبيل فاروق)‏ 

تلقائيا من جدول الكتب.‏ 

ولو أردت حذف هذه العلاقة،‏ فاضغط الخط ّ بزر الفأرة الأيمن،‏ ومن القائمة الموضعية اختر ‏"حذف".‏ 

قم بحفظ التغييرات،‏ وأغلق نافذة العلاقات..‏ افتح الآن جدول المؤل ّفين..‏ ستلاحظ ظهور علامة 

حقل..‏ اضغط أيا منها،‏ وليكن ‏(توفيق الحكيم)..‏ ستجد أن علامة 

"+" 

"+" 

يحتوي على الكتب التي أل ّفها توفيق الحكيم قد ظهر..‏ ولإخفائه ثانية ً أعد ضغط علامة 

بجوار كلّ‏ 

تحولت إلى علامة "-"، وأن جدولا صغيرا 

."-" 

135



ويمكنك إدخال المزيد من كتب 

‏(توفيق الحكيم)‏ في هذا الجدول الفرعي‏،‏ دون أن ت ُدخل رقمه في خانة AuthorID 

في كلّ‏ مرة،‏ إذ ستتم كتابة هذا الرقم آليا،‏ مما يوف ّر لك الوقت ويعفيك من احتمالات الخطأ.‏ 

ربط قواعد البيانات أكسيس مع عناصر BDE في لغة البرمجة دلفي 

وجدنا أنه تمكنا من ربط قاعدة البيانات Paradox مع العنصر 

Table في الخاصة 

البديل 

DataBaseName للعنصر عن طريق الاسم 

: 

Alias 

الذي تم إنشائه بواسطة البرنامج 

Database 

Desktop والسؤال المطروح هنا كيف يمكن أن نربط بين العنصر 

Table وجدول بيانات أكسيس 

: 

1 افتح لوحة التحكم في ويندوز واختر 

Adminstrative Tools →ODBC Data Sources 

ستظهر لك النافذة التالية 

اختر منها الصفحة 

System DNS 

2 اضغط على الزر Add لتظهر النافذة التالية 



: 

Microsoft Access Driver ( *.mdb) 

. Finish 

3 تظهر عندها النافذة التالية 

: 

اكتب في القسم 

Data 

Source Name القيمة 

، Library واضغط بعدها على الزر 

136



( Books.mdb 

Select واختر قاعدة ملف قاعدة البيانات أكسيس ) 

بعد تحديد الفهرس التي وضعته فيه ، اضغط 

بعدها على الزر Ok 

واخرج من . ODBC Data Source 

4 افتح البرنامج 

BDE Administrator من لوحة التحكم أو عن طريق 

Start Program Borland Delphi BDE Administrator 

مهمة هذا البرنامج هي تعريف ال Alias والتحكم في خصائص قواعد البيانات المستخدمة على الجهاز . 

حدد قاعدة البيانات 

Library من الصفحة 

، Database فتظهر خواص هذه القاعدة في 

الصفحة اليمينية ، Definition أكتب في 

الخاصة Database Name مسار قاعدة 

البيانات 

Books.mdb أو حدده عن طريق 

، 

الضغط على الزر ذو ... 

أغلق البرنامج BDE Administrator 


Yes عندما يطالبك بحفظ 

التغيرات . 

5 الآن يمكنك ربط قاعدة البيانات 

Library مع العنصر 

Table أو Query واستخدامها كما وجدنا في الأمثلة 

السابقة . 


يمكن استخدام البرنامج لإضافة اسم بديل 

Alias لقاعدة بيانات 

Paradox وذلك باختيار الأمر New من القائمة 

Object ومثل اختيار النوع 

Standard ومن ثم تحديد كتابة الاسم البديل للقاعدة وتحديد مسارها في صفحة 

الخصائص . 

: بعد أن تعرفنا عن طريقة ربط قواعد البيانات بواسطة محرك قواعد بيانات ، Borland 

الصفحة ADO 

سنتعرف الآن على كيفية ربط البيانات مع محرك قواعد بيانات مايكروسوفت . 

تعتبر ADO أحدث من 

BDE وتستخدم خوارزميات أسرع في البحث والتعديل ، كما تقدم طرق قوية لربط قواعد 

معطيات موزعة مثل قواعد بيانات Oracle أو SQL Server 

: 

مثال : 

ربط قاعدة بيانات المكتبة بواسطة ADO 

ابدأ مشروعا ً جديدا ً واضف إلى النموذج العناصر التالية 

: 

137



ADOTable من الصفحة ADO وأضف إليه أيضا ً العناصر DataSource و 

، ADOConnection 

. DBNavigator و DBGrid 

اضغط مرتين على العنصر 

ADOConnection لتظهر النافذة التالية : 

اختر زر الراديو Use Connection String 

Build 

: 


لتظهر النافذة التالية 

اختر من القائمة Microsoft Jet 4.0 OLE Db Provider 

واضغط على . Next 

ملاحظة 

إذا كنت تستخدم قاعدة بيانات 

Oracle فاختر 

: 

Microsoft OLE DB Provider for Oracle 

عند الضغط على 

Next تظهر الصفحة 

Connection في القسم 

Select Or Enter Database Name أدخل ملف قاعدة معطيات 

الكتب 

اضغط بعدها على الزر Ok لإنهاء المعالج 

138



: 

حدد الآن العنصر 

ADOTable1 وأعطه الخصائص التالية 

Authorsِ أعطها القيمة TableName 

الخاصة 

Connection أعطها القيمة 

ADOConnection1 و الخاصة 

والخاصة Active القيمة True 

أعط الخاصة DataSet للعنصر DataSource القيمة ADOTable1 

أعط الخاصة Datasource للعنصرين DBGrid1 و DBNavigator1 القيمة . DataSource1 

نفذ البرنامج ولاحظ النتائج . 

بنفس الطريقة يمكن ربط 

SQLConnection لاستخدام لغة 

SQL في محرك ، ADO كما يمكننا استخدام نفس 

مناهج العنصرين 

Query للتعامل مع هذه العناصر 

. 

Table و 

139




: 

: 

برنامج دليل الهاتف 

1 قاعدة البيانات 

قبل الشروع بكتابة البرنامج علينا تحديد قاعدة البيانات المطلوبة وتحديد عدد الجداول وطرق الربط بين الجداول 

ونوعية البيانات والفهارس المطلوبة ... 

في برنامج دليل الهاتف سنحتاج إلى جدول واحد وهو 

s 

City 

Country 

Web 

Email 

Fax 

Mobil 

WPhon 

HPhon 

LName 

FName 

Num 

الاسم رقم 

الكنية 

هاتف 

هاتف 

الهاتف 

الفاكس 

البريد 

موقع 

الدولة 

المدينة 

المنزل 

العمل 

الخلوي 

الإلكتروني 

الانترنت 

) 

A(15) 

A(15) 

A(40) 

A(40) 

A(15) 

A(15) 

A(15) 

A(15) 

A(15) 

A(15) 

+ 

حيث الحقل Num هو حقل مفتاح رئيسي . 

. 

سنحتاج أيضا ً إلى تعريف فهرسين ثانويين الأول لترتيب الجدول حسب الاسم والثاني لترتيب الجدول حسب الكنية 

وللبدء بإنشاء القاعدة : 

1 أنشئ المجلد 

MyPhon على القرص C وأنشئ داخله المجلد 

، Data حيث سنقوم بتخزين ملفات قاعدة 

البيانات في المجلد 

Data وسنخزن ملفات البرنامج في المجلد 

Data ‏(حاول دائما ً أن تضع ملفات قاعدة البيانات في 

مجلد منفصل وخاصة إذا كانت القاعدة تتألف من عدد من الملفات كما في قاعدة البيانات . Paradox 

BDE باستخدام C:\MyPhon\Data 

2 أنشئ اسم بديل Alias باسم 

Myphon ليشير إلى المجلد 

. 

Database Desktop أو باستخدام البرنامج Administrator 

أنشئ الجدول السابق في البرنامج 

Database Desktop باستخدام قاعدة البيانات 

Paradox و لا تنس إنشاء 

3 

الفهارس الثانوية كما يلي : 

Define 

أ اختر Secondary Indexes من اللائحة Table properties 


وأضف الحقلين 

Lname على الترتيب واضغط على 

Ok وأعط اسم للفهرس 

Fname و 

. FNameIndex 

ب اضغط على 

Define مرة أخرى وأضف الحقلين 

FName على الترتيب 

.... وأعط 

Lname و 

الفهرس اسم . LNameIndex 

أحفظ الجدول باسم 

Phonebook ضمن الاسم البديل 

Alias الذي أنشأته سابقا ً 

MyPhon أو داخل المجلد 

4 

. C:\MyPhon\Data 

بهذا نكون قد أنشأنا قاعدة البيانات وسننتقل إلى المرحلة الثانية : 

2 كتابة البرنامج : 

قبل الشروع بكتابة البرنامج يجب عليك أن تملك تصورا ً كاملا ً للشكل الذي تريد للبرنامج أن يظهر عليه ، ما هو 

شكل النافذة الرئيسية وماهي العناصر التي ستتوضع عليها وما هي النوافذ الأخرى الواجب وضعها في البرنامج 

) 

140


بكلمات أخرى ، أمسك ورقة وقلم وحاول أن ترسم ما تريد أن تفعله وما هو المطلوب من البرنامج أن يقدمه 


، ( 

حدد ما هي النقاط الأصعب في البرنامج وهل هي لعدم خبرتك البرمجية في التعامل مع هذه النقاط أو لعدم قدرة 

لغة البرمجة على تقديم ما تطلبه 

) عمليا ً لغة البرمجة عالية المستوى لا تكون قاصرة عن أداء شيئ معين ولكن 

على المبرمج أن يبحث كثيرا ً لتعلم كيفية التعامل مع مواضيع معينه 

، سأورد الآن بعض الأمثلة على هذه 

( 

المشاكل ، تصور أن المستخدم طلب أن 

يكون برنامجه قادرا ً على طباعة حقول معينة وأنت حتى الآن لم تتعلم 

شيئا ً عن الطباعة ستكون هنا الآن أمام طريقين : 

الأول:‏ 

البدء بكتابة البرنامج وتعلم الطباعة عند الوصول إلى النقاط التي تحتاج الطباعة في البرنامج 

) عمليا ً يترك 

هذا النوع من المبرمجين النقاط الصعبة حتى آخر نقطة من البرنامج ( . 

. 

الثاني : 

تعلم الطباعة والتعرف على إمكانيات الطباعة التي تقدمها لغة البرمجة ومن ثم الشروع بكتابة البرنامج 

المشكلة في الطريق الأول 

تصور أنك عرفت بعض الحقول من النوع مذكرة 

Memo ثم اكتشفت أن لغة البرمجة 

: 

لا تستطيع أن تطبع الحقول من نوع 

Memo أو على الأقل لا تستطيع طباعتها بالشكل الذي تريده ، ماذا ستفعل 

الآن ، إما أن تقوم بكتابة خوارزميات جديدة للطباعة وهذا صعب جدا ً بالنسبة لمبرمج عادي أو العودة إلى قاعدة 

البيانات وتحويل نوع هذه الحقول إلى النوع نص Alpha 

وبالتالي العودة إلى النماذج وتعديلها أيضا ً لملائمة التغيرات في القاعدة الأمر الذي قد يضطرك أحيانا ً لكتابة 

البرنامج من جديد . 

الطريقة الثانية هي الطريقة الأفضل وربما هي الطريقة الوحيدة التي تجعلك تنهي ما بدأت بالشكل الذي تريد . 

. 

والقاعدة هي : 

ابدأ أولا ً من أصعب النقاط وحاول حلها حتى تستطيع الوصول إلى النهاية 

سننشئ الآن النافذة الرئيسية والتي ستظهر بالشكل : 

أضف الآن العناصر التالية 

: 

141



1 أعط النموذج الأول الخصائص التالية 

الخاصة 

القيمة 

: 

bdRightToLeft 

BiDiMode 

Caption 

Hieght 

Width 

Position 


470 

750 

poScreenCenter 

2 أضف العنصر 

TabControl من الصفحة 

Win32 

وأعطه الخصائص التالية 

: 

alTop 

True 

tsButtons 

أكتب الحروف الأبجدية من أ إلى ي وكل حرف في سطر 

True 

Align 

MultiLine 

Style 

Tabs 

HotTrack 

3 أضف العنصر Panel من الصفحة 

: Panel 

142 

Standard 

alClient 

Align 

bvLowered Bevelinner 

bvRaised BevelOuter 

'' فراغ 

Caption 


: Table 

MyPhone DatabaseName 

Phonebook TableName 

FnameIndex IndexName 

True 

Active 

وأعطه الخصائص التالية : 

أدخل إلى محرر الحقول وأضف جميع الحقول ثم احذف الحقل Num لكي لا يظهر في الجدول ثم أعط لكل حقل 

اسمه باللغة العربية في الخاصة DisplayLabel التابعة لكل حقل.‏ 

5 العنصر : DataSource ضعه ضمن العنصر 

: Tabcontrol 

Table1 

Dataset 


: DbGrid 

alClient 

Align 

DataSource1 DataSource 

أدخل إلى محرر الأعمدة وأضف جميع الحقول ثم حددها واذهب إلى الخاصة Titel واضغط على 

الخاصة 

+ 

taCenter إلى Aligment 

7 العنصر : GroupBox ضعه ضمن العنصر 

Caption 

ترتيب حسب 

وغير


: 


8 العنصر : RadioButton1 ضعه داخل العنصر 

الاسم 

GroupBox1 

True 

RBTName 

Caption 

Checked 

Name 

9 العنصر : RadioButton2 ضعه داخل العنصر 

GroupBox1 

Caption 

Name 

الكنية 

RBTLname 

10 العنصر : Edit1 ضعه داخل العنصر 

: GroupBox1 

" 

Text 

فراغ 

11 العنصر : Button ضعه داخل العنصر 

GroupBox1 

Caption 

Name 

بحث حسب الاسم 

BtnSearch 

سنبدأ الآن بكتابة التعليمات اللازمة حتى هذه النقطة وسنعود لإكمال بقية العناصر لاحقا ً 

عندما يضغط المستخدم على زر الراديو الاسم سيتم ترتيب الجدول حسب حقل الاسم وسيكون البحث متاحا ً 

حسب اسم الشخص لذلك نكتب التعليمة التالية في حدث الضغط على زر الراديو الاسم 

: RBTName 

table1.IndexName := 'FnameIndex'; 

‏;'بحث حسب الاسم'‏ =: btnSearch.Caption 

وفي حدث الضغط على زر الراديو الكنية سيرتب الجدول حسب حقل الكنية وسيكون البحث متاحا ً حسب حقل 

الكنية لذلك اكتب التعليمات التالية في حدث الضغط على زر الكنية 

عندما يضغط المستخدم على أي صفحة من صفحات العنصر 

: RBTLname 

table1.IndexName := 'LnameIndex'; 

btnSearch.Caption := ' 

'; 

بحث حسب الكنية 

Tabcontrol سيتم إظهار الأسماء التي تبدأ 

بالحرف التي ضغط عليه المستخدم ، أما إذا كان المستخدم قد اختار الترتيب حسب الكنية فستظهر الحقول التي يبدأ 

فيها حقل الكنية بالحرف الذي ضغط عليه المستخدم لذلك اكتب في الحدث 

التعليمات التالية 

للعنصر Tabcontrol1 OnCahnge 

: 

if RBTName.Checked then 

table1.Filter := 'fname = ' + quotedstr( tabcontrol1.Tabs[tabcontrol1.tabindex]+ '*') else 

table1.Filter := 'Lname = ' + quotedstr( tabcontrol1.Tabs[tabcontrol1.tabindex]+ '*') 

لمعرفة عمل هذه التعليمات راجع المحاضرات السابقة ... 

: زر البحث 

143



( 

) 

سيتم البحث عن القيمة المكتوبة في العنصر 

Edit1 في حقل الاسم أو حقل الكنية 

حسب خيار المستخدم 

وفي 

حال عدم وجدوها سيتوقف مؤشر السجلات عند أقرب قيمة للبحث ، بما أن البحث سيتم في كامل الجدول فيجب 

إلغاء التصفية Filter قبل القيام بالبحث ، اكتب التعليمات التالية في حدث الضغط على الرز 

أضف بعض السجلات على سبيل التجربة 

: BtnSearch 

table1.Filtered := false; 

table1.FindNearest([edit1.text]); 

............. 

البحث عن رقم هاتف : 

عندما تريد أن تبحث عن رقم هاتف فلن يكون مهما ً أن تحدد في أي حقل أي لا يهم إن كان الهاتف الذي سنبحث 

عن صاحبه هو هاتف المنزل أو هاتف العمل فالمهم أن يعيد البحث اسم الشخص الذي نبحث عن رقم هاتفه لذلك 

ستبحث في الحقل 

HPhon فإذا لم نجد الرقم نبحث في الحقل 

WPhon فإذا لم نجد الرقم سنبحث في الحقل 

Mobil وإذا لم نجد الرقم تظهر رسالة تخبرنا بأن الرقم غير موجود 

لذلك أضف العناصر التالية إلى النموذج السابق : 

: Panel 


: GroupBox ضعه ضمن العنصر 

بحث عن رقم الهاتف 

Caption 

2 عنصر Edit2 

" فراغ 

Text 

: 


: Button 

Caption 

Name 

بحث 

BtnPhSearch 

وفي حدث الضغط على هذا الزر اكتب التعليمات التالية 

يمكنك الآن إضافة أزرار للبحث عن البريد الالكتروني و الفاكس و....‏ 

Table1.Filtered := false; 

if not Table1.Locate('HPhon',edit2.text,[]) then 

if not Table1.Locate('WPhon',edit2.text,[]) then 

if not Table1.Locate('Mobil',edit2.text,[]) then 

; ) ‏'الرقم غير موجود'‏ showmessage( 

حفظ البرنامج 

‏:احفظ التطبيق في المجلد 

C:\MyPhon أعط الوحدة اسم 

Main.pas وأعط المشروع اسم 

. MyPhone 

أضف الآن العناصر التالية إلى النموذج : 

: Panel 

العنصر 

: GroupBox ضعه ضمن العنصر 

خيارات 

Caption 

144


أربع أزرار 

الإدخال 


Caption أعطها Button 

: 

جرت العادة على استخدام العناصر في الصفحة Data control لإدخال البيانات إلى القاعدة وعدم 

الاعتماد على العنصر DBGrid فقط وخاصة أنه لدينا حقل من نوع Memo الذي لا يمكن الإدخال إليه ضمن 

) DBGrid 

في أغلب الأحيان يعطى العنصر 

أنشئ نموذجا ً جديدا ً وأعطه الخصائص التالية 

DBGrid الخاصة 

ReadOnly وذلك لاستخدامه للعرض فقط 

. ( 

: 

bdRightToLeft 

BiDiMode 

Caption 

Position 

Name 

إدخال 

poScreenCenter 

DataEnter 

وأضف اسم الوحدة Main إلى القسم Uses لهذه الوحدة وذلك لكي نتمكن من الوصول إلى العنصر 

النموذج الأول 

Table1 على 

: 

احفظ الوحدة باسم . DataEnterU 

ضع مجموعة من عناصر ال 

DBEdit وعناصر Label وعنصر 

: 

DBNavigator على النموذج كما في الشكل 

حدد جميع عناصر التعامل مع قواعد المعطيات 

الخاصة 

) 

جميع العناصر على النموذج عدا عناصر ال 

( 

Label 

. القيمة Form1.DataSource1 DataSource 

ثم اربط كل عنصر من عناصر DBEdit بحقل في الخاصة DataField وذلك حسب العنصر 

لإظهار هذا النموذج عد إلى النموذج الأول واكتب في حدث الضغط على الزر إدخال التعليمة التالية 

من المفيد إيضا ً ظهور هذا النموذج عندما يضغط المستخدم على اسم أحد الأشخاص داخل العنصر 

اكتب التعليمة التالية في الحدث 

وأعطها 

Label المجاور . 

: 

DataEnter.ShowModal ; 

DBGrid لذلك 

DataEnter.ShowModal ; 

للعنصر DBGrid1 OnDbClick 

145



: الطباعة 

يستخدم صفحة العناصر 

QReport للطباعة في دلفي وتستطيع هذه الصفحة التعامل مع قواعد البيانات كما يمكنك 

طباعة الصور والأرقام والحسابات عن طريقها : 

ملاحظة لمستخدمي دلفي : 7 

أضافت بورلاند صفحة مجموعة جديدة من العناصر في الصفحة 

Rave بدلا ً من الصفحة 

QReport وإذا أردت 

استخدام QReport في دلفي 7 أضف هذه الصفحة عن طريق 

أضف الوحدة dclqrt60.bpl من الفهرس Bin داخل مجلد 

: 

Commponnant install package add 

. Delphi7 

لطباعة دليل الهاتف : 

أضف وحدة جديدة إلى البرنامج وأضف اسم الوحدة 

Main إلى القسم 

Uses لهذه الوحدة وذلك لكي نتمكن من 

. Printform Name 

الوصول إلى العنصر Table1 على 

النموذج الأول وأعطها الخاصة 

: 

وأضف إليها العنصر 

QuickRep من الصفحة 

Qreport وأعطه الخصائص التالية 

HasColumnHeader و HasDetail و 

: Band 


True للخصائص التالية الموجودة ضمن الخاصة 

. HasPagefooter و HasPageHeader 

الخاصة Dataset أعطها . Form1.DataSource1 

القيمة 

" 

" Caption 

أضف الآن العصر 

QRlabel إلى القسم 

Page Header أو أعطه ال 


: 

أضف لل 

Column Header عدد من العناصر 

QRlabel كما في الشكل 

Dataset كما 

أضف إلى 

Detail مجموعة من العناصر 

QRDbText واربطها مع الحقول المناسبة في الخاصة 

في الشكل السابق . 

... Page Number القيمة data 

أضف إلى Page Footer العنصر 

QRSysData وأعطه الخاصة 

احفظ الوحدة باسم . PrintUnit 

. 

اضغط بزر الفأرة اليميني على العنصر QUickRep1 واختر Preview 

لتشاهد النتائج 

: 

Printform.QuickRep1.Preview 

اكتب في حدث الضغط على الزر طباعة في النموذج الأول التعليمة التالية 

146


لمسات برمجية 

الجلسة 


23 

: 

يمكن أن نعتبر برنامج الهاتف برنامج جاهز للتوزيع والنشر ولكن بإضافة بعض اللمسات إلى البرنامج يمكن أن 

نحول هذا البرنامج إلى برنامج سهل الاستخدام ومرغوب بشكل أكبر من قبل المستخدمين،‏ وأقصد باللمسات 

البرمجية بمجموعة الأعمال التي يقوم بها المبرمج والتي يمكن أن تأخذ وقت طويلا ً لتسهيل عمل المستخدم 

1 تمكين المستخدم من التعامل مع البرنامج بدون استخدام الفأرة وبأسرع الطرق الممكنة 

مثلا ً عندما يكتب المستخدم اسم للبحث عنه ضمن 

الزر لكي يتم تنفيذ البحث بل يكفي أن يضغط المستخدم على الزر إدخال 

ولتحقيق ذلك برمجيا ً 

حيث 

. 

: 

Edit1 فلا حاجة لأن يعود المستخدم إلى الفأرة ليضغط على 

( Enter ) 

: 

اكتب التعليمات التالية في حدث 

VK_Return ثابت معرف في دلفي ويحوي شيفرة الأسكي للزر 

الثوابت والتي تحوي شيفرة الأزرار الافتراضية 

الأسهم و 

من لوحة المفاتيح ليتم البحث 

: للعنصر Edit1 OnKeyPress 

if key = char( VK_Return ) then 

btnsearch.Click ; 

( Virtual Key ) 

End و Delete و Caps lock و Tab 

،Enter في الحقيقة يجود الكثير من هذه 

وهذه الأزرار هي المفاتيح F1..F12 و مفاتيح 

... ‏(أي مجموعة أزرار لوحة المفاتيح عدا الأحرف والأرقام)‏ 

وللتعرف على هذه الثوابت راجع ملفات المساعدة في دلفي أو اكتب في مكان في محرر الشيفرة 

Windows.VK_ وستكمل دلفي بقية الثوابت.‏ 


أ يمكن الاستعاضة عن التعليمة السابقة بالتعليمة 

حيث 

13 هي القيمة التي يحويها الثابت 

If key = #13 then btnsearch.Click ; 

Enter و # 

: 

VK_Return وهي القيمة الاسكي للزر 

الأسكي لتحويل الرقم إلى حرف ، مثلا ً إذا كتبنا التعليمة التالية 

'You' 

ب يمكن الاستعاضة عن التعليمة السابقة بالتعليمة : 

بدلا ً من استخدام المنهج 

: 

تستخدم قبل شيفرة 

#89#111#117=:S فهذا يكافئ التعليمة 

S := 

If key = #13 then BtnSearchClick (Sender); 

) 

Click للزر 

الإجراء BtnSearchClick قد تم تعريفة من قبل الدلفي في القسم 

ضغطك على الزر 

BtnSearch نستخدم الإجراء الذي يقوم بهذه العملية مباشرة 

Implementation والقسم Type 

.... 

لا حظ أن 

بمجرد 

2 من الملاحظ أننا نستخدم العنصر Edit2 لإدخال الأرقام فقط أو على الأقل رموز لوحة مفاتيح الهاتف 

وبالتالي يجب منع المستخدم من إدخال الحروف والرموز غير المرغوبة ولتحقيق ذلك اكتب التعليمة التالية 

: 

const s = ['0','1','2','3','4','5','6','7','8','9','p',char(VK_back)]; 

begin 

if not ( key in s ) 

then key:= char(vk_capital) 

147



نعرف مجموعة من الرموز التي يستخدمها الهاتف بالإضافة إلى الزر 

VK_back و هو زر الحذف ، فإذا لم 

يكن الزر المدخل من هذه المجموعة فحوله إلى الزر 

Vk_Capital وهو زر 

Caps Lock والذي لن يؤثر على 

. 

وضع الزر 

Caps Lock ولكنه سيصدر صوت ما 

في النافذة إدخال على المستخدم أن ينتقل من عنصر تحرير 

DBEdit إلى آخر بواسطة الضغط على الزر 

3 

Tab من لوحة المفاتيح على الرغم من أن معظم البرامج الجيدة تستخدم الزر 

Enter للتنقل بين عناصر الإدخال 

: DBEdit1 

If key = #13 then DBEdit2.SetFocus ; 

If key =#13 then dbedit3.SetFocus ; 

لذلك اكتب التعليمة التالية في الحدث 

واكتب في حدث OnKeyPress التعليمة التالية 

وهكذا في بقية العناصر 

OnKeyPress للعنصر 

: 

. 

( 

) 

المنهج 

SetFocus يستخدم لتحفيز 

تفعيل العنصر 

وهو يستخدم مع معظم العناصر في دلفي فمثلا ً التعليمة 

Button1.SetFocus ستظهر إطار شفاف داخل الزر والذي يعني أن هذا هو الزر الفعال والذي يمكن الضغط 

. 

عليه بواسطة الزر 

Enter أو الزر 

Space من لوحة المفاتيح 

4 التحكم بتحميل النوافذ في الذاكرة : 

افتح القائمة Project View Source 

سيظهر لك ملف المشروع 

MyPhone.Dpr وستجد فيه تعريف 

الوحدات في القسم Uses و ستجد التعليمات التالية في القسم 


Begin 

Application.Initialize; 

Application.CreateForm(TForm1, Form1); 

Application.CreateForm(TDataEnter, DataEnter); 

Application.CreateForm(TForm2, Form2); 

Application.Run; 

TFom1,Form1) Application.CreateForm ( تقوم بإنشاء النافذة 

Form1 والتي من النوع 

TForm1 والمعرف في القسم Interface للوحدة 

Main.pas التي يتبع لها النموذج 

Form1 وكذلك الأمر بالنسبة 

لتعليمات CreateForm التالية ، ولكن ماذا يعني إنشاء نافذة....‏ عند استخدام التعليمة 

Application.CreateForm ( TFom1,Form1) 

1 سيتم إنشاء هذه النافذة في الذاكرة ) 

أي حجز حيز في الذاكرة يحوي النافذة التي ستظهر 

. ( 

2 سيتم إنشاء جميع العناصر الموجودة على هذه النافذة من أزرار و عناصر 

قواعد البيانات و....‏ 

3 سيتم حجز المتحولات العامة وإعطاءها حيز من الذاكرة أيضا ً . 

. Form1 

4 سيتم تنفيذ التعليمات التي تم وضعها في الحدث 

OnCreate التابع للنموذج 

سيتم الآن تنفيذ هذه الخطوات بالنسبة للنوافذ الثلاثة المستخدمة في البرنامج ، لنقم الآن بدراسة 

بسيطة لحجم 

استخدام كل نافذة : 

النافذة الأولى 

: Form1 سيستخدم أي مستخدم هذه النافذة عند كل دخول إلى البرنامج وذلك لأنها تحوي 

1 

عناصر البحث والفهرسة بالإضافة إلى عرض البيانات.‏ 

148



النافذة 

: DataEnter تستخدم هذه النافذة عدة مرات في الأسبوع الأول لاستخدام البرنامج لأن المستخدم 

2 

سيقوم بإدخال أرقام هواتفه إلى البرنامج وبعد ذلك لن يدخل المستخدم إلى هذه النافذة إلا مرة في الأسبوع أو الشهر 

أو حتى بالسنة . 

النافذة 

: Form2 هذه النافذة تحوي عناصر الطابعة وإذا فرضنا أن المستخدم يملك طابعة فإنه لن يطبع دفتر 

3 

هواتفه كل يوم . 

هذا يعني أننا نحجز حيز من الذاكرة لنافذتين لن يستخدمها المستخدم إلا مرات قليلة،‏ لهذا زودتنا دلفي بطريقة 

لإنشاء النموذج عن الحاجة إليه وذلك عن طريق : 

أ إزالة النموذج من قائمة التحميل التلقائي : 

افتح القائمة Project Options لتظهر النافذة التالية : 

حدد منها 

الصفحة 

Forms والتي فيها القائمة المنسدلة Main Form وهي تحدد 

النموذج الذي سيظهر عند تشغيل البرنامج.‏ 

اللائحة 

Auto-Create Forms وتظهر فيها أسماء النماذج التي سيتم 

إنشاءها تلقائيا ً عند تشغيل البرنامج ، 

اللائحة Available Form وتحوي جميع بقية النوافذ في البرنامج 

والتي لا توجد في لائحة التشغيل التلقائي.‏ 

حدد النوافذ التي لا تريد أن تعمل تلقائيا ً واضغط على السهم 

> لتنتقل هذه الاسماء إلى اللائحة Avialable Form 

. 

ب إنشاء النموذج عند الطلب : 

بما أنه النافذة لن تنشأ تلقائيا ً فعلينا أن نكتب بعض التعليمات لإنشائها قبل استخدام المنهج Show أو 

ShowModal أو حتى قبل طلب أي متحول ما منها لذلك لنكتب التعليمات التالية في حدث الضغط على الزر 

Dataenter := TDataEnter.Create(application); 

Try 

DataEnter.Showmodal; 

Finally 

DataEnter.Release ; 

end; 

) TDataEnter 

: إدخال 

التعليمة الأولى تقوم بإنشاء المتحول 

DataEnter من النوع 

المعرف في القسم 

Var التابع للقسم 

Interface في الوحدة 

ويأخذ المنهج 

Create لعناصر Delphi وسيطا ً وحيدا ً يدل على 

( DataEnterU.pas 

العنصر المالك للعنصر المراد إنشائه وتمرر هنا القيمة 

Application عادة لأن النموذج المنشأ سيعود لتطبيق 

. مباشرة 

149



التعليمة DataEnter.Release هي عملية لإزالة النموذج من الذاكرة بعد انتهاء عمله والتي يمكن استبدالها 

بالتعليمة 

. بالفعل 

DataEnter.Free ولكن المنهج 

إذا كنا نستخدم المنهج Show بدلا ً من المنهج 

البرنامج بشكل صحيح 

في الحدث 

: 

OnClose 

Release يعتبر أفضل لأنه لا يعيد رسالة خطأ إذا لم يكن النموذج منشأً‏ 

للنافذة DataEnter أضف التعليمة التالية 

واكتب الآن التعليمات التالية في حدث الضغط على الزر إدخال 

الحدث 

OnClose لنافذة يتم تنفيذه عندما يتم إغلاق النافذة 

الوسيط Action والذي يمكن أن يأخذ القيم التالية : 

القيمة 

: 

ShowModal فيجب إضافة التعليمات التالية للتأكد من عمل 

action := Cafree; 

DataEnter := nil; 

: ( 

) 

If DataEnter = nil then 

DataEnter := TDataEnter.Create(application); 

DataEnter.Show; 

( 

CaNone 

CaFree 

CaHide 

في النموذج الأول 

) ضغط المستخدم على زر إغلاق 

المعنى 

لا يمكن إغلاق النافذة ولن يحدث شيء إذا ضغط المستخدم على الزر إغلاق 

سيتم إغلاق النافذة وتحرير كامل الذاكرة المستخدمة من قبلها 

ويأخذ هذا الحدث 

سيتم إخفاء النافذة بدلا ً من إغلاقها ويمكن إعادة إظهارها عن طريق المنهج Show وهو الخيار 

الافتراضي للنوافذ من النوع 

FormStyle := 

fsNormal 

CaMinimize 

سيتم تصغير النافذة وهو الخيار الافتراضي مع النوافذ من النوع 

التعليمة DataEnter = Nil تقوم بتحميل قيمة اللاشيء 

فيما بعد أن الحدث 

ملاحظة 

fsMDIChild 

( Null ) 

OnClose 

قد تم تنفيذه ومن ثم تنفيذ عملية إنشاء النموذج 

. 

: 

في المتحول DataEnter الأمر الذي يجعلنا 

هذه إحدى الطرق المستخدمة لإنشاء النافذة بشكل ديناميكي وهناك طرق أخرى متعددة 

. 

مسجل النظام 

: Windows Registry 

مسجل النظام عبارة عن مجموعة من الملفات يتم تخزين فيه جميع معلومات نظام التشغيل 

Windows 

بما فيها 

خصائص النظام واسم المستخدم واسم الكمبيوتر بالإضافة إلى أن معظم البرامج تضيف بعض المفاتيح إلى مسجل 

النظام للتحكم بطريقة إظهار البرنامج حسب خيارات يحددها المستخدم ، يدعى مسجل النظام بقاعدة بيانات النظام 

ويكون مخزن في الملفين 

System.dat و 

وتحريره افتح القائمة أبدأ و اضغط على 

User.dat الموجودين داخل فهرس الويندوز ‏،لمشاهدة مسجل النظام 

Run واكتب 

Regedit في النافذة تشغيل ثم اضغط على 

. Ok 

150



ستظهر عندها النافذة التالية والتني تحوي في جهة 

اليمين ستة من المفاتيح الرئيسية تدعى عادة مفاتيح 

الجذر ، Root key بالضغط على إشارة + 

بجانب هذه 

المفاتيح تظهر لها مفاتيح فرعية و التي يمكن الوصول 

من خلالها إلى مفاتيح فرعية أخرى،‏ تدعى الرموز التي 

تظهر على القسم اليميني من النافذة بالقيم وهي على 

ثلاثة أنواع ، 

قيم عددية و قيم نصية وقيم منطقية ، 

قبل أن تعدل أي قيمة ما في مسجل النظام عليك أن تعرف ما تفعل لأن بعض التعديلات قد تؤدي إلى توقف النظام 

عن العمل أو تعطيل البرنامج الذي عدلته على الأقل ، يمكنك أن تأخذ نسخة عن مسجل النظام أو عن جزء منه 

ضع حدد بمؤشر الفأرة المفتاح الذي تريد أخذ نسخه منه واختر الأمر Regestry Export ستطالب بإدخال 

اسم ملف ما وسيتم بعدها حفظ نسخة عن المفتاح ، لاستعادة مسجل النظام اضغط مرتين على ملف الملف الذي 

كنت قد حفظته سابقا ً . 

سأشرح بشكل موجز ماهي المعلومات المخزنة في كل مفتاح رئيسي : 

يحوي هذا المفتاح معلومات عن كل أنواع الملفات المعرفة في النظام 

) لا حظ 

: HKEY_ClASSES_ROOT 

أنه يحوي قائمة بجميع امتدادات الملفات التي يتعامل معها ويندوز 

( بالإضافة إلى معلومات عن البرامج القادرة 

على التعامل مع هذه الملفات مثلا ً .jpg أو .Doc ... 

: HKEY_CURRENT_USER يحوي معلومات عن مستخدم النظام والقيم الافتراضية التي أعطاها لبعض 

برامج الويندوز بالإضافة إلى الخصائص لوحة التحكم والبرامج التي تنصبها المستخدم على الجهاز ..... 

: HKEY_LOCAL_MACHINE يحوي معلومات عن جهاز الحاسوب بالكامل بما فيها أنواع الأجهزة 

المستخدمة في الجهاز بالإضافة إلى مشغلات هذه الأجهزة 

( Driver مثلا ً تستطيع معرفة نوعية كرت الشاشة 

) 

المستخدم ونوعية الشاشة المعرفة على الجهاز .... 

يحوي معلومات عن التشكيلات الجانبية للمستخدم 

) الخصائص التي يحددها المستخدم 

: HKEY_USERS 

لألوان سطح المكتب مثلا ً 

، بالإضافة إلى التشكيلات الجانبية الافتراضية التي ستعطى عندما يدخل مستخدم 

( .. 

جديد إلى الويندوز . 

: HKEY_CURRENT_CONFIG يعتبر جزء من المفتاح HKEY_LOCAL_MACHINE ولكن 

بطريقة عرض أخرى . 

Windows NT 

يحوي معلومات عن أجهزة النظام وطرق إعدادها 

) غير موجود في 

: HKEY_DYN_Data 

. ( 

التعامل مع مسجل النظام يسمح لك بالتحكم بالنظام بشكل كامل ولا بد أنك سمعت عن برامج تتحكم بسرعة قائمة 

ابدأ و تغير أسم سلة المحذوفات وتغير الصورة التي تظهر بجانب قائمة ابدأ 

) الصورة المكتوب فيها 

151 

( 

WINDOWS Me مثلا ً و بالإضافة إلى تغير صورة جهاز كمبيوتر و بالإضافة إلى البرامج التي تضيف نفسها



إلى القائمة التي تظهر عند الضغط بزر اليمين على سطح المكتب أو مستكشف ويندوز ، حتى أن البرامج التي 

تدعي أنها تتحكم بسرعة الاتصال انترنت تتعامل مع مسجل النظام 

( ...... 

هذه موجز صغير جدا ً عن Windows Registry وإذا أردت أن تصبح مبرمجا ً محترفا ً عليك قراءة أحد الكتب 

المختصة بهذا الموضوع فكتاب 

التعامل مع Registry في دلفي 

Windows 2000 Registry بحجم 

152 

800 صفحة تقريب ًا 

. 

: 

إذا لم تكن تريد أن تتحكم بنظام ويندوز من داخل برنامجك فأنت بحاجة إلى تخزين بعض المعلومات عن برنامجك 

داخل مسجل النظام الأمر الذي يطرك إلى التعامل مع النظام 

مثال 

. 

: 

سنقوم بإنشاء برنامج يقوم بمعرفة اسم المستخدم الذي سجل النظام باسمه ومن ثم تغيره 

) 

نستطيع معرفة 

اسم المستخدم عن طريق الضغط بزر الفأرة اليميني على أيقونة جهاز الكمبيوتر واختيار خصائص من القائمة 

اسم المستخدم يوجد داخل مسجل النظام تحت المفتاح 

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion] 

افتح البرنامج Regedit للتأكد من ذلك 

ومخزن في القيمة النصية 

. ( 

. ( 

) RegisteredOwner 

ابدأ مشروعا ً جديدا ً وأضف زرين إلى النموذج وعنصر 

، Edit1 

للتعامل مع مسجل النظام عليك إضافة الوحدة Registry إلى القسم 

USES 

للقراءة من مسجل النظام اكتب التعليمات التالية في حدث الضغط على الزر الأول 


Var reg:tregistry ; 

Begin 

إنشاء المتحول وحجز مكان له في الذاكرة//‏ ; tregistry.Create reg:= 

try 

تحديد المفتاح الرئيسي ;// HKEY_LOCAL_MACHINE reg.RootKey := 

reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false ) ; 

قراءة القيمة النصية المخزنة في الوسيط المذكور // reg.ReadString('RegisteredOwner'); edit1.text =: 

وسيطها الثاني 

reg.CloseKey ; 

إغلاق المفتاح // 

Finally 

تحرير الذاكرة بعد استخدام المتحول//‏ ; reg.Free 

end; 

OpenKey تقوم بفتح المفتاح المرر لها كوسيط أول وإذا لم يكن موجودا ً فتقوم بإنشاء هذا المفتاح إذا كان 

.True 

للكتابة إلى مسجل النظام اكتب التعليمات التالية في حدث الضغط على الزر الثاني 

: 


Begin 

إنشاء المتحول وحجز مكان له في الذاكرة //; tregistry.Create reg:= 

try 

تحديد المفتاح الرئيسي ;// HKEY_LOCAL_MACHINE reg.RootKey := 

reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false ) ;



كتابة القيمة المدخلة في عنصر التحرير إلى اسم // ;( reg.WriteString('RegisteredOwner',edit1.Text 

القيمة المحددة 


إغلاق المفتاح // 

Finally 

تحرير الذاكرة بعد استخدام المتحول // ; reg.Free 

end; 

: 

مثال : 2 

سنعود إلى برنامج الهاتف 

يقوم برنامجنا بالترتيب حسب الاسم دائما ً وعلى فرض أن المستخدم يفضل الترتيب حسب الكنية فإن عليه عن 

يضغط على زر الراديو الكنية كلما دخل إلى البرنامج ، سنضيف الآن مفتاح إلى مسجل النظام يقوم بتخزين الخيار 

الافتراضي للمستخدم ، وسنقوم بفحص قيمة هذا المفتاح كلما دخلنا إلى البرنامج : 

سنخزن قيمة عددية تحت أسم IndexBy في المفتاح : 

HKEY_CURRENT_USER\Software\MyPhone 

وعند تشغيل البرنامج سنفحص قيمة هذا المتحول فإذا كان هذا المتحول يحوي قيمة 1 فالفهرسة ستتم حسب الكنية 

وإلا فالفهرسة ستتم حسب الاسم . 

. " 

" 

أضف زر إلى النموذج الأول 

Form1 في برنامج الهاتف وأعطه العنوان 

فهرس دائما ً حسب الكنية 

وفي حدث الضغط على هذا الزر اكتب التعليمات التالية 

تقوم التعليمة 

OpenKey بإنشاء المفتاح إذا لم يكن موجودا ً وتقوم التعليمة 

: 


Begin 

reg:= tregistry.Create ; 

try 

reg.RootKey := HKEY_CURRENT_USER ; 

reg.OpenKey('SOFTWARE\MyPhone',True ) ; 

if button4.Caption = فهرس دائما ً حسب الكنية'‏ ' Then 

reg.WriteInteger ('IndexBy',1 ) 

else reg.WriteInteger ('IndexBy',0 ) 


Finally 

reg.Free ; 

end; 

WriteInteger بإنشاء القيمة 

. 

IndexBy وتخزن فيها القيمة 

1 أو صفر حسب الشرط 

RBTLname 

reg:= tregistry.Create ; 

try 

reg.RootKey := HKEY_CURRENT_USER ; 

reg.OpenKey('SOFTWARE\MyPhone',True) ; 

if reg.ReadInteger ('IndexBy') = 1 then begin 

153 

الآن سنفحص هذا المفتاح عند تشغيل البرنامج :


تفحص 

هذه التعليمات القيمة المخزنة 

IndexBy فإذا كانت تساوي 


RBTLname.Checked := true; 

RBTLnameClick(Sender); 

; ‏'رتب دائما ً حسب الاسم ' =: button5.Caption 

؛end 


Finally 

reg.Free ; 

end; 

154 

1 فإنها تقوم بتحفيز زر الراديو الكنية وتنفيذ 

الحدث الخاص بالضغط على هذا الزر والذي فيه تعليمات تغيير الفهرس بالإضافة إلى تغير عنوان الزر إلى رتب 

دائما ً حسب الاسم 

. 

بهذا نكون قد تعلمنا التعامل مع مسجل النظام 

وظيفة 

. 

: 

فكر بطريقة تقوم بها بإضافة كلمة سر إلى برنامج الهاتف ، حيث ستظهر نافذة عند تشغيل البرنامج 

تطالب المستخدم بإدخال كلمة السر فإذا أدخل كلمة السر الصحيحة فستظهر النافذة الرئيسية وإلا فسيطالب بإدخال 

كلمة السر مرة أخرى وإذا فشل في الدخول ثلاث مرات 

النظام 

متتالية فيتم إغلاق البرنامج 

) 

. ( 

توابع وثوابت الويندوز 

: Windows API 

خزن كلمة السر في مسجل 

توابع وثوابت الويندوز هي مجموعة هائلة من التوابع والثوابت المعرفة في ويندوز والموجودة ضمن مكتبات 

ويندوز في ملفات ذات الامتداد 

.DLL وتستخدم هذه النوافذ للتحكم في ويندوز وفي كل شيء في ويندوز ابتداء 

بلوحة المفاتيح وانتهاء مرورا ً بالذاكرة والمعالج و الشاشة بما في ذلك التحكم بالبرامج والنوافذ وطرق إظهارها 

يمكنك على سبيل المثال التحكم بارتفاع الصوت باستخدام توابع 

) 

Api و معرفة معلومات معينة عن الأجهزة مثل 

معرفة حجم السواقة الصلبة Hard Disk يمكنك الحصول على معلومات في برنامج آخر من برنامجك كأن تحصل 

على معلومات من ملف ورد والمزيد الذي لا يمكن حصره هنا 

سنشرح أمثلة عن التوابع وطرق التعامل معها 

1 إغلاق 

يستخدم التابع 

فيه 

. 

: 

: Windows 

) ExitWindowsEx( لإطفاء الجهاز أو إعادة التشغيل 

ابدأ برنامجا ً جديدا ً واضف زر إلى النموذج واكتب التعليمة التالية 

ExitWindowsEx(ewx_ShutDown,0) ; 

) 

: 

: 

( 

احفظ البرنامج وقم بتنفيذه ولا تضغط على الزر ‏،أغلق البرنامج وشغله من خارج الدلفي 

، اضغط على الزر الآن وسيتم إيقاف تشغيل ويندوز 

لإعادة إقلاع النظام استخدم التعليمة 

. ExitWindowsEx(ewx_Reboot,0) 

. 

: 

2 

التحكم بلغة البرنامج الافتراضية 

: 

من المكان الذي حفظته 

إذا كانت اللغة الافتراضية على الجهاز هي اللغة الإنكليزية فإن برنامجك 

سيظهر المؤشر في عناصر التحرير بحيث يتم الكتابة باللغة الإنكليزية وعلى المستخدم أن يحول إلى أسلوب الكتابة 

بالغة العربية كلما أراد الكتابة ، ويمكن حل هذه المشكلة عن طريق التعليمة 

:


ابدأ مشروعا ً جديدا ً وضع فيه عنصر تحرير 

البرنامج وستلاحظ أن المؤشر أصبح بجهة الكتابة بالغة العربية 

الرقم 


LoadKeyboardLayout('00002801',klf_activate) ; 

OnCreate للنموذج 

. 

Edit وأضف التعليمة السابقة إلى الحدث 

وشغل 

00002801 هو الرقم الذي يرمز إلى لوحة المفاتيح العربية السعودية إذا أردت العودة إلى اللغة الإنكليزية 

الأمريكية بدل هذا الرقم إلى 

تطبيق 

التابع 

. 00000409 

: 

اذهب إلى برنامج الهاتف وأضف هذه التعليمة للحدث OnCreate للنموذج الأول 

. Form1 

يوجد لدينا في النافذة إدخال في برنامج الهاتف حقلين يجب كتابتهما باللغة الإنكليزية هما حقل البريد الإلكتروني 

وحقل موقع الانترنت لذلك يمكنك كتابة التعليمة التالية في الحدث OnEnter لهذين الحقلين : 

LoadKeyboardLayout('00000409 ',klf_activate) ; 

حيث سيتم التحول إلى اللغة الإنكليزية عند دخول المؤشر إلى هذين الحقلين واكت التعليمة التالية في الحدث 

OnExit 

LoadKeyboardLayout('00002801',klf_activate) ; 

إذا أردت أن يعود المؤشر إلى اللغة العربية عن خروج المؤشر من هذين الحقلين . 

: MessageBox 

تعاملنا مع التابعين 

ShowMessage وMessageDlg سابقا ً ولكن مشكلة هذين التابعين أن عناوين الأزرار تظهر 

بالغة الإنكليزية دائما ً لذلك يمكنك استخدام التابع 

تبعا ً للغة النظام 

. 

أكتب التعليمة التالية في حدث الضغط على الزر 

نفذ البرنامج ولاحظ أن الزر Ok سيظهر بالغة العربية 

اكتب التعليمة التالية في حدث الضغط على زر آخر 

MEssageBox من ويندوز 

Api الذي سيظهر عناوين الأزرار 

: 

MessageBox ( هذا عنوان الرسالة ' , ' هذا نصر الرسالة',‏‎0‎ ' , MB_Ok ) ; 

( موافق ) 

إذا كنت تستخدم ويندوز بالغة العربية 

. 

: 

If MessageBox ( تغير لون النافذة ' , ' هل تريد تلوين النافذة باللون الأحمر',‏‎0‎ ' ,Mb_YesNo ) = IDYES 

then 

Form1.color := clred; 

لمزيد من التعليمات ضع المؤشر فوق اسم التابع MessagBox واضغط على . F1 

التعامل مع النوافذ 

: 

لكل نافذة في ويندوز مقبض أو ممسك يدعى Handle وهو من النوع Thandle وهو عبارة عن عدد صحيح 

طويل يتعامل النظام مع هذا المقبض للوصول إلى النافذة 

على النموذج مقبض أيضا ً فهناك مقبض للزر وللعنصر 

) 

لا يقصد بالنافذة هنا النموذج Form فقط بل لكل عنصر 

Edit و....‏ ( 

، المقبض ليس له قيمة ثابتة إذ يعطى للنافذة 

رقم مقبض جديد عند كل إنشاء للنافذة ، عندما تقوم يتحريك نافذة ما على سطح المكتب فإن النظام يستدعي 

مجموعة من توابع Api لتنفيذ هذه الحركة 

. 

يوجد عدد هائل من التوابع المتعلقة بالنوافذ سنذكر بعض منها في هذه العجالة 

: 

155


: 


1 برنامج يعيد أسماء جميع النوافذ الموجودة في الذاكرة 

أضف زر و عنصر 

ListBox إلى النموذج في برنامج جديد واكتب في حدث الضغط على الزر التعليمات التالية 

var h:Thandle; 

p:pchar; 

begin 

getmem(p,250); 

h:= gettopwindow ( getdesktopwindow) ; 

getwindowtext(h,p,250); 

listbox1.Items.Add(p); 

while h > 0 do begin 

h:= getnextwindow( h,gw_hwndnext); 

getwindowtext(h,p,250); 

listbox1.Items.Add(p) ; 

end; 

freemem(p,200); 

end; 

: 

: 

شرح البرنامج 

) Pchar 

في البداية تم تعريف المتحول 

h وهو من النوع 

Thandle بالإضافة إلى المتحول 

P من النوع 

ملاحظة 

( Pchar 

جميع توابع 

Api تتعامل مع النوع 

. p 

التعليمة (200,p GetMem( تخصص 

200 بايت من الذاكرة للمتحول 

: GetDesktopwindow يعيد مقبض سطح المكتب في ويندوز . 

GetTopWindow يعيد النافذة الموجودة في أعلى النوافذ في حيز الذاكرة المخزن فيه مقبض النافذة الذي يمرر 

كوسيط لهذا التابع 

250 

يعيد هذا التابع في المتحول p 

عنوان النافذة التي مقبضها 

h ويعيد نص بطول 

:getwindowtext(h,p,250) 

حرف 

يعيد مقبض النافذة التي تلي النافذة 

h وفي حال وصلنا إلى آخر 

: GetNextWindow( h, gw_hwndnext) 

نافذة فيعيد القيمة . Nil 

2 برنامج إخفاء وإظهار شريط المهام : 

ابدأ مشروعا ً جديدا ً وأضف إليه زرين : 

1 عرف المتحول التالي في القسم Private للوحدة : 

hTaskBar: THandle; 

2 اكتب التعليمة التالية في الحدث 

OnCreate للنموذج : 

hTaskBar := FindWindow('Shell_TrayWnd', nil); 

تعيد هذه التعليمة النافذة التي نوعها مذكور في الوسيط الأول وعنوانها مذكور في الوسيط الثاني 

156


ShowWindow(hTaskBar, SW_HIDE); 

: 

. 


3 أكتب التعليمة في حدث الضغط على الزر الأول 

: 

تقوم هذه التعليمة بإظهار أو إخفاء النافذة تبعا ً للوسيط الثاني 

4 أكتب التعليمة التالية في حدث الضغط على الزر الثاني 

ShowWindow(hTaskBar, SW_SHOW); 

نفذ البرنامج . 


. 

1 للمزيد من المعلومات عن التوابع المذكورة سابقا ً اضغط F1 

فوق بعد وضع المؤشر فوق اسم التابع 

2 للحصول على اسماء معظم توابع 

Windows Api اكتب Windows في أي مكان من محرر الشيفرة و 

ضع النقطة ، فسيتم كتابة جميع الثوابت والتوابع المعرفة في الوحدة 

Windows.pas وهي مرتبطة مباشرة مع 

. Windows Api 

للحصول على معلومات وافرة عن 

Windows Api عليك مراجعة الكتب المختصة أو الحصول على 

3 

. MicroSoft Visual Studio 

مجموعة الأقراص الليزرية المسماة 

MSDN Library والتي تباع مع 

إعداد المهندس : 


157


الجلسة 

إضافة عناصر جديدة 


24 

: ( Add new omponant ) 

قبل إضافة عناصر جديدة إلى دلفي علينا أن نعرف ما هي العناصر:‏ 

لقد تعاملنا مع مجموعة كبيرة من العناصر في دلفي منها المرئي ومنها المخفي وهي عبارة عن كتل برمجيه جاهزة 

يضعها المبرمج على النموذج لإعطاء برنامجه شكل وخصائص معينة،‏ وتختلف العناصر بطبيعتها فمنها البسيط 

العنصر TLabel أو عناصر معقدة كعناصر BDE وعناصر الطباعة 

. 

من المعروف أن لغة الدلفي هي لغة برمجة غرضية التوجه object-oriented programming أي أننا نستطيع 

أن نكتب كتلنا البرمجية اعتمادا ً على كتل أخرى ، فعند إنشاء النموذج لسنا بحاجة إلى كتابة التعليمات لإنشاء 

النموذج وإظهاره ولسنا بحاجة أيضا ً لكتابة التعليمات البرمجية لإظهار كل عنصر على النموذج ، إذ يكفي أن 

نسحب العنصر ونضعه على النموذج لتقوم Delphi بإضافة التعليمات البرمجية اللازمة لإظهار العنصر وطرق 

التعامل مع هذه العناصر 

( 

تنحدر جميع العناصر في دلفي من العنصر 

Tobject 

وهو العنصر الرئيسي 

( الأب ) 

في دلفي حيث تنحدر جميع 

العناصر منه وحيث تأخذ العناصر بعض خواص العنصر Tobject وتضيف إليها خواص جديدة أو تعدل في 

بعض هذه الخواص بما يلائم عمل كل عنصر والشجرة التالية توضح البناء الهيكلي للعناصر 

: 

لماذا يتم إنشاء عناصر جديدة 

: 

يقوم بعض المبرمجين المحترفين أو بعض المبرمجين الهواة بإنشاء عناصر جديدة حتى يجعلوا من البرمجة أمر 

سهل وممتع ، لأنك كمبرمج عادي لا تستطيع أن تبرمج كل شيء بنفسك وعليك أن تعتمد على الغير في أنشاء 

158


برامجك فلا حدود للإمكانيات التي تستطيع العناصر أن تقدمها وكل يوم نسمع عن عناصر جديدة وابتكارات جديدة 


في عالم العناصر . 

طرق إضافة عناصر جديدة إلى لوحة العناصر : 

هناك العديد من الطرق لإضافة عناصر جديدة إلى صفحة العناصر وأفضل طريقة هي قراءة ملفات المساعدة التي 

تأتي مع العنصر ولكننا سنركز على بعض الطرق العامة : 

1 عن طريق استخدام المكتبة .bpl : 

: 

إذا وجدت في فهرس العنصر ملف من النوع bpl 

فاتبع الطريقة التالية لإضافة هذا العنصر إلى صفحة العناصر 

أ من الصفحة Component اختر Install Package 

تظهر عندها النافذة المجاورة اختر منها 

Add واذهب إلى المسار 

الموجود فيه العنصر الذي تريد إضافته واختر ملف .bpl واضغط 

على . Ok 

) مثال 

TIBEAntialiasButton02_all 

. ( 

نفذ الطريقة السابقة على العنصر 

الموجود على الديسك المرفق 

أو حمله من الموقع 

http://www.ibe-software.com 

ستلاحظ أن العنصر وضع نفسه في الصفحة الأخير في لوحة 

العناصر . 

ب الآن يجب إضافة مجلد العنصر إلى مسار المكتبات 

المستخدمة في دلفي : 

من القائمة Tools Environment Options 

ستظهر عندها نافذة أختر منها الصفحة Library 

اضغط على الزر Library path لتظهر النافذة 


اضغط على الزر المجاور لعنصر التحرير بالأسفل 

( ... ) 

159



وحدد مسار العنصر الذي قمت بإضافته 

حدد مسار ملفات 

bpl أو ملفات 

Dcu وملفات ( pas ثم اضغط على 

) 

Ok ومن Add 

بإمكانك الآن استخدام العنصر الجديد بالطريقة التي كنا نستخدمها مع 

أي عنصر سابق من عناصر دلفي ،( 

يفضل 

استعراض الأمثلة التي تأتي مع العنصر عادة في الفهرس ( Demo 

: 

2 استخدام ملفات .Dpk 

إذا وجد مع العنصر ملف من النوع 

ملف حزمة دلفي 

( Delphi Package فاتبع الخطوات التالية 

) .Dpk 

لإضافة هذا العنصر إلى صفحة العناصر : 

: 

القائمة أ من 

File Open حدد الملف ذو الامتداد 

.Dpk واضغط على 

ok لتظهر النافذة التالية 

اضغط منها على الزر 

Install ستظهر عندها رسالة تعلمك 

بأنه قد تم تحميل العنصر . 

ب اعد الخطوة ب الطريقة السابقة . 

ملاحظة قد تظهر بعض المشاكل عن استخدام هذه الطريقة،‏ 

لحل المشكلة اضغط على الزر 

option واختر من الصفحة 

Description وغير في القسم الموضح في النافذة التالية : 

ثم أغلق نافذة الخيارات واضغط على . Install 

‎3‎ في حال العنصر الجديد مكون من ملف واحد من الامتداد : Pas 

أ افتح الملف من القائمة File 

: Open 

اختر القائمة Component Install 

Component تظهر عندها النافذة 

المجاورة 

اختر الصفحة Into New package 

واكتب أي اسم تريد في الحقل 

ok واضغط على Package file name 

تظهر عندها النافذة الموضحة في الطريقة الثانية ، اضغط منها على 

. Install 

160


. 


ب أعد الخطوة ب السابقة 

. 

( Setup 

4 بعض العناصر تأتي مع برنامج تنصيب ) 

وتقوم بتنصيب نفسها تلقائي ًا 

لماذا هذه الطرق المتعددة : 

عمليا ً هناك طريقة واحدة لتركيب العناصر وهي الطريقة الثالثة ولكن بعض المبرمجين يحتاج 

إلى أكثر من وحدة 

، .Dpk 

Unit في عنصره ولذلك يقوم بحزم هذه الوحدات في ملف حزمة 

Package وبالتالي ينشأ عندنا ملف 

عندما تضغط على الزر 

Install في النافذة 

Package في الطريقة الثانية أو الثالثة ، تقوم دلفي بإنشاء الملف ذو 

) 

الامتداد 

Bpl وهو ملف المكتبات في دلفي 

في لغة الفيجول سي أو الفيجول بيسك يتم اعتماد الملفات ذات الامتداد 

. ( OCX أو DLL 

تتميز دلفي عن لغات البرمجة الأخرى بأنه لا حاجة لإضافة ملفات 

Bpl إلى البرنامج عن توزيعه حيث يتم إدراج 

هذه الملفات تلقائيا ً في الملف التنفيذي 

.Exe بينما يجب عليك إدراج ملفات ال 

.DLL وOcx عند استخدام فيجول 

سي أو فيجول بيسك . 

إنشاء العناصر في دلفي : 

: 

‎1‎ الطريقة الأولى : 

سوف نتعرف الآن على أسهل طريقة لإنشاء العناصر في دلفي 

سوف نقوم بإنشاء عنصر تحرير لا يقبل إدخال الأحرف ولعمل ذلك : 

ابدأ مشروعا ً جديدا ً وأضف إليه العنصر 

حدد بعدها العنصر 

Edit واكتب التعليمات التالية في الحدث 

: OnKeyPress 

const s= [ '1','2','3','4','5','6','7','8','9','0',char(Vk_back)]; 

begin 

if not (key in s ) then 

key := char(VK_CAPITAL ) 

end; 

Component Create Component Template واختر Edit1 

تظهر عندها النافذة 


أكتب في الحقل 

Component name اسم العنصر التي تريد 

( TNumEdit في الحقل وحدد Palette Page اسم 

) 

الصفحة التي تريد أن يظهر فيها العنصر 

) بإمكانك أن تكتب 

اسم صفحة جديدة ( 

كما يمكنك تحديد أيقونة للعنصر الجديد عن طريق الضغط 

على الزر . Change 

. 


Ok سيظهر العنصر الجديد في الصفحة التي حددتها 

يمكنك عندئذٍ‏ استخدامه في جميع برامجك اللاحقة . 

. 

2 الطريقة الثانية 

: سنقوم بكتابة نفس العنصر السابق ولكن بطريق أفضل 

أغلق جميع الوحدات في دلفي 

File Close All 

161




: Component New Component 

تظهر عندها النافذة التالية : 

اختر من اللائحة Ancestor type القيمة TCustemEdit 

وهي العنصر الأب الذي سيرث عنصرنا الجديد خواصه . 

في الحقل 

Class Name اكتب اسم الصنف الذي تريده 

لعنصرك أن 

TMyNumberEdit 

) يجب أن يبدأ بحرف ( T 

في الحقل 

Palette Page اكتب اسم الصفحة التي تريد أن 

. ( MyComponent 

يظهر بها العنصر ) 

: 


ok ستظهر الوحدة 

MyNumEdit بالشكل التالي 

unit MyNumberEdit; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Controls, StdCtrls; 

type 

T MyNumberEdit = class(TCustomEdit) 

private 


protected 

{ Protected declarations } 

public 


published 

{ Published declarations } 

end; 

procedure Register; 



begin 

RegisterComponents('Standard', [MyNumberEdit]); 

end; 

end. 

سنشرح كل سطر من هذه الأسطر بشكل مبسط : 

1 class(TCustomEdit) TMyNumberEdit = هذه التعليمة تعرف نوع جديد باسم TMyNumEdit من 

TEdit 

) TEdit 

النوع 

TCustomEdit وهو النوع المشتق منه النوع 

النوع 

TCustomEdit هو النوع 

ولكن بدون أي خاصة أو حدث ، حيث سنقوم بإدخال الأحداث والخصائص المطلوبة بعد قليل 

. ( 

162



يتم في 

: هذا القسم تعريف بعض المتحولات والتوابع والخصائص والتي يمكن الوصول إليها من 

2 protected 

. 

( 

) 

( 

قبل هذه الوحدة ) 

الوحدة المعرفة بها 

ومن أي وحدة مشتقة 

موروثة 

من هذه الوحدة 

أي أننا إذا عرفنا 

متحول في هذه المنطقة فإننا يمكننا قراءة قيمته والكتابة فيه ضمن أي وحدة ترتبط مع الوحدة 

.MyNumberEdit 

يستخدم هذا القسم لتعريف الخصائص وهو يشبه القسم 

Public ويختلف عنه أن الخاصة 

: 

3 published 

... Event 

( Object inspector 

المعرفة هنا ستظهر في محرر الخواص ) 

وفي صفحة 

سيتضح عمله فيما 

بعد . 

4 : procedure Register 

مهمة الإجراء هي استدعاء الإجراء [MyNumberEdit]); RegisterComponents('Standard', 

والذي 

. 

يقوم بإظهار العنصر 

MyNumberEdit في الصفحة 

Standard من صفحات العناصر 

الآن سوف نبدأ بإضافة بعض الخاصة 

About والتي ستظهر في صفحة الخواص الخاصة 

About وفيها اسم 

مبرمج العنصر . 

أضف التعليمة التالية في القسم 

: Public 

constructor Create(AOwner: TComponent); override; 

حيث Constructor هو منهج خاص يستخدم مع Create فقط ويقوم بإنشاء العنصر وتهيئته أي إعطاءه القيم 

. Procedure 

الابتدائية ويمكن اعتباره إجراء تستخدم فيه الكلمة المحجوزة 

Constructor بدلا ً من 

أضف في القسم 

ضع مؤشر التحرير 

Published 

: التعليمة التالية 

Property About : string Read FAbout Write Fabout; 

) 

مؤشر لوحة المفاتيح 

( 

عند هذا السطر واضغط على المفاتيح Ctrl + Shift + C سيضاف 

. private 

عندها المتحول 

FAbout من النوع 

String إلى القسم 

تقوم 

هذه التعليمة بتعريف خاصة من اسمها 

About من النوع 

String تأخذ هذه الخاصة قيمتها أثناء التصميم من 


. Write FAbout وتأخذ قيمتها أثناء التنفيذ من التعليمة Read FAbout 

ضع مؤشر التحرير على المنهج 

Constructor واضغط على المفاتيح Ctrl + Shift + C سيضاف عندها 

هذا المنهج إلى القسم 

Implementation والذي سيبدأ بالتعليمة 

Inherited والتي تجعل هذا التابع يرث جميع 

خواص التابع الأصل المعرف في الوحدة . TCustomEdit 

FABout := 'M.Khaled Nasser Agha'; 

أضف التعليمة التالية بعد التعليمة 

قم بحفظ الوحدة باسم 

: Inherited 

. MyNumberEdit 

افتح النافذة 

Component install component ستظهر النافذة المشروحة في الفقرة الثالثة من طرق 

تركيب عنصر جديد على كل حال افتح الصفحة 

into new package واكتب Editnumber في الحقل 

ok ستفتح عندها نافذة جديدة 

اضغط فيها على أحد الزرين 

Install أو 

Package File Name واضغط على الزر 

163


) Standard 


، Compile سيظهر عندها العنصر في آخر الصفحة 

إذا كنت قد كتبت التعليمات السابقة بدون 

. 

أخطاء ( 

أغلق نافذة واحفظ الملفات إذا ط ٌلب ذلك 

ابدأ مشروعا ً جديدا ً وضع عليه العنصر الجديد ستجد أن أول خاصة له في محرر الخواص هي الخاصة About 

بالإضافة إلى أن الخواص مختصرة بشكل كبير ، افتح الصفحة 

Events ولاحظ عدم وجود أي حدث لهذا العنصر 

. 

سنقوم الآن بإضافة الخاصة Num لهذا العنصر حيث سيتم إدخال رقم إلى العنصر و الحصول منه على رقم من 

. ( TEdit 

خلال هذه الخاصة ) 

ستحل هذه الخاصة محل الخاصة 

Text في العنصر من النوع 

أغلق الآن جميع النوافذ ومن القائمة File ReOpen اختر 

Editnumber.dpk ستظهر الآن النافذة المجاورة،‏ اضغط مرتين 

MyNumberEdit.pas ستظهر عندها هذه الوحدة في محرر 

الشيفرة ، نستطيع الآن إجراء التعديلات التي نريد على هذه الوحدة 

ومن ثم الضغط على الزر 

Compile للتنقل التعديلات إلى العنصر 

... Standard الموجود على الصفحة TMyNumberEdit 

أضف الآن السطر التالي إلى القسم . Published 

property Num: Extended read FNum write SetFNum; 

ضع مؤشر التحرير عند هذا السطر واضغط على Ctrl + Shift + C سيتم عندها تعريف المتحول FNum في 

القسم 

Private وتعريف الإجراء SetNum أيضا ً ، وفي القسم 

Implementation سيتم إضافة جسم الإجراء 

SetNum وستوجد فيه التعليمة التالية 

احفظ الوحدة وعد إلى النافذة السابقة 

FNum := Value : 

أضف إليها التعليمة التالية 

: 

Text := floattostr(value); 

Compile ثم 

) 

ستكون موجودة في الخلف عادة 

( 

اضغط منها على الزر 

Standard ستلاحظ 

أغلق هذه النافذة وابدأ مشروعا ً جديدا ً أضف إليه العنصر MyNumberEdit 

من الصفحة 

أن لهذا العنصر الخاصة Num أدخل فيها أي قيمة عددية لتظهر في العنصر أثناء التصميم ، أدخل مجموعة من 

. 

الأحرف واضغط على الزر 

Enter ستلاحظ عدم قبول هذه الخاصة لإدخال الأحرف 

نفذ البرنامج وأدخل حروف في العنصر ستلاحظ قبول العنصر لها وهذا يدفعنا إلى الخطوة التالية في تطوير 

العنصر وهي منع إدخال الأحرف إليه . 

. MyNumberEdit.pas 

افتح الحزمة 

EditNumber.dpk ثم افتح الوحدة 

سوف نضيف التابع 

KeyPress إلى وحدتنا وهذا التابع معرف في الوحدة 

TCustomEdit وهو المسؤول عن 

استقبال أحرف لوحدة المفاتيح لذلك أضف السطر التالي في القسم 

: Public 

procedure KeyPress(var Key: Char); override; 

اضغط على المفاتيح Ctrl + Shift + C ليضاف جسم الإجراء تلقائيا ً وتضاف فيه التعليمة Inherited 

لكي 

TCustomEdit 

يورث جميع التعليمات الموجودة في الإجراء 

KeyPress الموجود في الوحدة الأب المعرف فيها 

أضف الآن التعليمة التالية فوق التعليمة Implementation مباشرة : 

164


const NumberChar = [ '1','2','3','4','5','6','7','8','9','0','.']; 

: Inherited 

If not (key in NumberChar ) Then key := char(VK_Capital); 

. 

Edit بالإضافة 


وأضف التعليمة التالية في جسم الإجراء KeyPress وبعد التعليمة 

احفظ الوحدة واضغط على الزر Compile في نافذة المجموعة EditNumber.dpk ثم أغلقها 

ابدأ مشروعا ً جديدا ً وأضف إليه عنصرنا الجديد ونفذ البرنامج . 

بقيت مشكلة وحيدة في عنصرنا وهي عدم وجود عدد كبير من الخصائص الموجودة في العنصر 

إلى عدم وجود أحداث ولإضافتها افتح الحزمة Editnumber.dbk 

تحتاجها في عنصرك في القسم Published كما في الشكل 

وأكتب أسماء الخواص والأحداث التي 

property BiDiMode; 

property CharCase; 

property Color; 

property OnEnter; 

property OnKeyPress; 

property OnKeyDown; 

property OnKeyUp; 

: 

واحفظ الوحدة بعدها واضغط على 

الخواص فيه 

وفيما يلي النص الكامل للوحدة 

Compile ثم أضف عنصرنا الجديد إلى مشروع جديد لتلاحظ وجود هذه 

: MynumberEdit.pas 

unit MyNumberEdit; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Controls, StdCtrls; 

type 

TMyNumberEdit = class(TCustomEdit) 

private 

FAbout: string; 

FNum: Extended; 

procedure SetFNum(const Value: Extended); 


protected 

{ Protected declarations } 

public 

constructor Create(AOwner: TComponent); override; 

procedure KeyPress(var Key: Char); override; 


published 

Property About : string Read FAbout Write Fabout; 

property Num: Extended read FNum write SetFNum; 

property BiDiMode; 

property CharCase; 

property Color; 

165 

.


property Enabled; 

property Font; 

property ParentBiDiMode; 

property ParentColor; 

property ParentCtl3D; 

property ParentFont; 

property PasswordChar; 

property ReadOnly; 

property ShowHint; 

property TabOrder; 

property TabStop; 

property Visible; 

property OnChange; 

property OnClick; 

property OnDblClick; 

property OnEnter; 

property OnExit; 

property OnKeyDown; 

property OnKeyUp; 

{ Published declarations } 

end; 


const NumberChar = [ '1','2','3','4','5','6','7','8','9','0','.']; 



begin 

RegisterComponents('Standard', [TMyNumberEdit]); 

end; 

{ TMyNumberEdit } 

constructor TMyNumberEdit.Create(AOwner: TComponent); 

begin 

inherited; 

FABout := 'M.Khaled Nasser Agha'; 

end; 

procedure TMyNumberEdit.KeyPress(var Key: Char); 

begin 

inherited; 

if not (key in NumberChar ) then 

key := char(VK_Capital); 

end; 

procedure TMyNumberEdit.SetFNum(const Value: Extended); 

begin 

FNum := Value; 

Text := floattostr(value); 

end; 

end. 

166 

لغة البرمجة دلفي




: Drag and Drop 

السحب والإفلات : 

1 فهم الوسيط : Sender 

لا بد أنك لاحظت أن الوسيط 

Sender يدخل في جميع معالجات أحداث الصفحة 

Event ففي حدث الضغط على 

الزر يظهر الإجراء التالي والذي له وسيط واحد هو Sender من النوع . TObject 

procedure TForm1.Button1Click(Sender: TObject); 

مهمة هذا الوسيط هي إرجاع اسم العنصر الذي قام بالحدث أي أن قيمته عن الضغط على الزر Button1 هي 

. Button1 

ولفهم أعمق لهذا الوسيط نفذ المثال التالي : 

ابدأ مشروعا ً جديدا ً وأضف إليه زرين : Button 

1 اكتب في حدث الضغط على الزر Button1 أكتب التعليمة التالية 

: 

If sender = Button1 Then Showmessage ( ' You Click On Button1 '); 

If sender = Button2 Then Showmessage ( ' You Click on Button2 '); 

OnClick واختر 

2 

حدد الزر Button2 ثم انتقل إلى الصفحة Event واضغط على السهم المجاور للخاصة 


. Button1Click 

نفذ البرنامج واضغط على الزرين ولاحظ النتائج . 

2 السحب والإفلات : 

: ListBox وعنصر Label 

: 

مثال 1 

أضف إلى النموذج في مشروع جديد ثلاثة عناصر 

سنقوم الآن بكتابة 

التعليمات البرمجة التي تمكننا من سحب العناصر 

Label وإفلاتها فوق العنصر 

ListBox بحيث يصبح لون 

العنصر اللائحة 

LIstBox1 بلون العنصر 

Label المسحوب،‏ لذلك أعط كل من 

العناصر 

Label لون مختلف 

وأعطهم جميعا ً في الخاصة DragMode القيمة . dmAutomatic 

Accept := Source is Tlabel; 

: 

اكتب في الحدث 

OnDragOver للعنصر 

يحوي الإجراء ListBox1DragOver الوسطاء التالية 

ListBox1 التعليمة التالية 

: 

العنصر الذي يستدعي الإجراء وهو . ListBox1 

هنا العنصر 

: Sender 

. 

العنصر الذي يتم سحبه وهو أحد العناصر 

Label في مثالنا 

: Source 

: X,Y إحداثيات مؤشر الفأرة . 

: State يحدد طريقة تحرك الفأرة فوق العنصر . 

عندما يأخذ هذا المتحول القيمة 

True فإن العنصر سوف يكون جاهزا ً لإفلات العنصر فوقه 

) سيتغير 

: Accept 

شكل مؤشر الفأرة ليظهر بالشكل الذي يبين أن الإفلات مقبول 

‏)وإلا فإن العنصر سيرفض إفلات العنصر المسحوب 

. فوقه 

167



. Tlabel 

: Source Is Tlabel 

تعيد هذه التعليمة القيمة True إذا كان المتحول Source من النوع 

اكتب في الحدث OnDragDrop لنفس العنصر التعليمة التالية 

: 

( sender as Tlistbox ).color := (Source as Tlabel ).color ; 

Tlistbox نفسه 

. 

التعليمة Sender As TlistBox تسمح لنا بالتعامل مع الوسيط Sender كما نتعامل مع العنصر 

كذلك بالنسبة للعنصر 

مثال 

. Source As Tlabel 

نفذ البرنامج واسحب أحد العناصر Label وأتركه فوق العنصر ListBox1 ولاحظ النتائج 

. 

: 2 

أضف عنصر صورة 

الخاصة 

Image 

إلى المثال السابق واجعله يظهر صورة ما عن طريق الخاصة 

،Picture أعط 

DragMode القيمة 

في مكان على النموذج 

dmAutomatic سنكتب التعليمات اللازمة التي تمكننا من وضع العنصر 

Image1 

. 

اكتب في الحدث اكتب في الحدث 

OnDragOver للنموذج 

Form1 التعليمة التالية 

: 

accept := Source is Timage; 

اكتب في الحدث OnDragDrop للنموذج التعليمة التالية 

نفذ البرنامج وحرك العنصر 

فوق العنصر 

(Source as Timage).Top := y; 

(Source as Timage).Left := X; 

: 

.ListBox 

Image1 ولاحظ تنقله فوق أي مكان من النموذج ولاحظ أيضا ً أنه لا يمكن إفلاته 

168


: 


الرسم في دلفي 

Timage ويمكننا 

يتم الرسم في دلفي فوق عنصر الكنفا 

Canvas وهو أحد خصائص العنصر TForm والعنصر 

رسم عدد من الأشكال الهندسية بواسطة توابع معرفة فوق عنصر الكنفا . 

رسم مستقيم : 

لرسم مستقيم يجب تحديد نقطة البداية ونقطة للنهاية 

أ يتم تحديد نقطة البداية عن طريق التعليمة Form1.Canvas.MoveTo(x,y) حيث 

x,y هما إحداثيات نقطة 

البداية،‏ إذا أردت من المستخدم أن يحدد نقطة البداية عن طريق الضغط على زر الفأرة فوق النموذج ضع هذه 

التعليمة في الحدث OnMouseDown للنموذج . Form1 

ب يتم تحديد نقطة النهاية للمستقيم ضمن تعليمة رسم مستقيم وهي Form1.Canvas.LineTo(x,y) حيث x,y 

هما إحداثيات نقطة النهاية لمستقيم ، وإذا أردت أن يتم رسم المستقيم في المكان الذي يحرر فيه المستخدم زر 

الفأرة ضع هذه التعليمات في الحدث OnMouseUp للنموذج . Form1 

نفذ الآن البرنامج واضغط على مؤشر الفأرة وأبقه مضغوطا ً ثم حرك الفأرة إلى مكان جديد وحرر زر الفأرة ، 

سيظهر عندها خط مستقيم بين نقطتي البداية والنهاية . 

لإظهار الخط أثناء تحريك الفأرة ضع التعليمة التالية ضمن الحدث 

OnMouseMove والذي يحدث أثناء 

تحريك الفأرة : 

Form1.Canvas.LineTo(x,y); 

تقوم هذه التعليمة بالرسم فوق النافذة عند تحريك الفأرة ، وإذا أردنا الرسم فقط عندما يكون زر الفأرة مضغوطا ً 

يجب إضافة التعليمات التالية:‏ 

أ عدل القسم Var للوحدة بحيث يصبح بالشكل 

ب عدل التعليمات في الحدث 

var 

Form1: TForm1; Drawing : boolean = false; 

: 

Drawing := True; 

Canvas.MoveTo(x,y); 

: 

if Drawing Then Form1.Canvas.LineTo(x,y); 

: 

Drawing := false; 

: 

OnMouseDown لتصبح بالشكل 

ج عدل التعليمات في الحدث OnMouseMove لتصبح بالشكل 

د عدل التعليمات في الحدث OnMouseUp لتصبح بالشكل 

نفذ البرنامج واضغط على زر الفأرة وارسم الخط 

. 

إن مشكلة الحدث 

OnMouseMove هو أنه يرسم خط منحني ولا يرسم مستقيم بين نقطتين يحددهما المستخدم 

ولذلك نضيف متحول جديد على الوحدة يقوم بحفظ النقطة التي ضغط عليها المستخدم وهذا المتحول من النوع 

. 

TPoint هذا النوع عبارة عن سجل يحوي متحولين 

X,y من النوع 

Integer يخزن فيهما إحداثيات النقطة 

: 

أ أضف تعريف المتحول على القسم 

private كما يلي 

Origin : TPoint; 

169


: 

Drawing := True; Canvas.MoveTo(x,y); 

Origin := point(x,y); 


ب عدل التعليمات في الحدث 

OnMouseDown لتصبح بالشكل 


: 

If Drawing then Begin 

Canvas.MoveTo(origin.X,origin.y) ; Form1.Canvas.LineTo(x,y); 

end; 

د عدل التعليمات في الحدث OnMouseUp لتصبح بالشكل : 

Canvas.MoveTo(origin.X,origin.Y); 

canvas.LineTo(x,y); 

Drawing := false; 

نفذ البرنامج واضغط على زر الفأرة وحركها سيتم رسم العديد من المستقيمات من نقطة التي ضغطت عليها إلى 

النقطة التي يتحرك مؤشر الفأرة فوقها ، ولكننا نريد فقط أن يظهر في النهاية المستقيم الذي يرسمه الحدث 

OnMouseUp ‏،لذلك سنقوم بمسح المستقيمات التي ترسم في الحدث 

لحذف مستقيم معين لذلك سنقوم برسم خط جديد فوق الخط الذي يرسم في الحدث 

، OnMouseMove لكن لاتوجد تعليمة 

OnMouseMove ولكن بلون 

الأرضية وبهذا يبدوا عمليا ً أن الخط قد تم مسحه،‏ ولتحقيق ذلك عدل التعليمات في الوحدة لتغدو بالشكل 

أ أضف على القسم 

: 

Private المتحول 

Movept من النوع Tpoint الذي سنخزن فيه قيمة آخر نقطة مر عليها 

الحدث OnMoseMove وبالتالي هي نفسها إحداثيات نهاية الخط الذي رسم باستخدام هذا الحدث 

ب أضف التعليمة في نهاية تعليمات الحدث الحدث 

. 

Origin,Movept :Tpoint; 

Movept := Point(x,y); 

: 

OnMouseDown 


عندما غيرنا الخاصة 

If Drawing then begin 

canvas.Pen.Mode := pmNotXor; 

canvas.MoveTo(origin.X,origin.y) ; 

Canvas.LineTo(Movept.x,movept.y); 

Canvas.moveto(origin.X,origin.y) ; 

Canvas.LineTo(x,y); 

end; 

movept := point(x,y); 

Canvas.Pen.Mode := pmCopy; 

end; 

: 

Mode للقلم 

pen وأعطيناها القيمة 

pmNotXor فإننا بذلك طلبنا دمج الخط مع عنصورات 

الأرضية وبذلك سيرسم الخط بنفس لون الأرضية وسيبدو وكأنه ممسوح وقد أعدنا القيمة 

تعليمة لكي يكون القلم جاهز لرسم الخط النهائي عندما نحرر زر الفأرة 

. 

1 

2 

PmCopy في آخر 

170


التعليمتان 1 تقومان برسم خط بين النقطة التي حددها المستخدم وبين آخر نقطة مرت فوقها الفأرة 


النقطة ) 

المخزنة في المتحول 

وسيكون لون الخط بلون الأرضية 

) بما أننا نرسم خط جديد فوق خط سابق لونه 

( Movept 

( 

أسود فإن الخاصة 

mode ذات القيمة 

pmNotXor ستقوم بطرح اللونين من بعضهما وإعادة لون الخلفية 

التعليمتان 

2 تقومان برسم خط جديد بين النقطة التي ضغط عليها المستخدم والنقطة التي تتحرك الفأرة فوقها 

وسيظهر الخط باللون الأسود.‏ 

OnMouseMove 

( 

إذا أردت أن تتأقلم مع التعليمات السابقة ) 

أن تفهمها بشكل جيد 

عدل التعليمات في الحدث 

لتصبح بالشكل : 

If Drawing then begin 

canvas.Pen.Color := form1.Color ; 

canvas.MoveTo(origin.X,origin.y) ; 

Canvas.LineTo(Movept.x,movept.y); 

canvas.Pen.Color := clblack; 

canvas.moveto(origin.X,origin.y) ; 

Form1.Canvas.LineTo(x,y); 

end; 

movept := point(x,y); 

لكن عليك أن تعيدها على شكلها السابق لكي نكمل برنامجنا بالطريقة الصحيحة ... 

حتى الآن استطعنا أن نرسم مستقيم ولرسم بقية الأشكال الهندسية سنقوم بإضافة شريط أدوات للبرنامج للتمكن من 

: 

اختيار 

الشكل الذي نريد رسمه 

إضافة شريط أدوات للشكل : 

New Button من القائمة ، كرر 


Toolbar إلى الشكل واضغط عليه بزر الفأرة اليميني واختر 

العملية لإضافة أربع أزرار.‏ 

يجب إعطاء كل زر من الأزرار السابقة صور ما تدل على العمل الذي سيقوم به الزر،‏ فإذا كنت تملك أيقونات 

جاهزة فبإمكانك استخدامها وإلا فعليك أن ترسم هذه الأيقونات بنفسك ، قبل البدء بإنشاء الإيقونات قم بحفظ 

. ( Painting 

المشروع ) 

احفظ الوحدة باسم 

Gragh واحفظ المشروع باسم 

إنشاء أيقونات جديدة : 

اختر من القائمة Tools الأمر Image Editor سيظهر 

عندها برنامج تحرير الصور كما في الشكل : 

اختر File New icon File 

ستظهر لك نافذة اختر منها Small Icon و 16 Color 

ستظهر عندها النافذة 

Icon1.ico كما في الشكل المجاور 

فيها مربع الأخضر وهو يدل على المساحة الشفافة في 

الأيقونة 

171



استخدم أداة رسم خط لرسم خط بين الزاوية اليسرى العلوية والزاوية اليمنى السفلية وبهذا نكون قد رسمنا أيقونة 

لزر رسم خط احفظ الملف باسم Line.ico وأغلقه ، ثم أنشأ الأيقونات الأخرى جديدة بنفس الطريقة بحيث تظهر 

الأشكال التالية فيها 

: 

لاتنس أن تحفظ كل أيقونة باسم مناسب 

نعود الآن إلى مشروعنا 


172 

. 

: 

ImageList من الصفحة 

الأيقونات الأربعة التي رسمتها 

اختر العنصر 

Win32 واضغط عليه مرتين تظهر عندها نافذة أختر منها 

Add وأضف 

. 

Toolbar1 واعط القيمة 

على لكي تظهر الأيقونات بالترتيب التالي 

حدد العنصر ToolBars وأعط الخاصة 

Imagelist1 للخاصة 

. True القيمة Flat 

: 

حدد الأزرار الأربعة سوية وأعطها في الخاصة 

وأعطها في الخاصة 

زرين مضغوطين بنفس الوقت 

Grouped 

tbsCheck القيمة Style 

. 

Images ثم عدل الخاصة 

ImageIndex لكل زر 

القيمة ،True لتجميع هذه الأزرار مع بعضها 

، هذه الخاصة ستجعل أحد الأزرار مضغوطا ً فقط ولايمكن أن نبقي 

عندما نضغط على أحد الأزرار فإننا سنحدد الشكل الذي سترسمه الفأرة أثناء تحريكها لذلك سنعرف متحول يأخذ 

قيمة مختلفة عند الضغط على كل زر من الأزرار وأفضل طريقة هي تعريف نوع معطيات تعدادي ، هذا النوع 

سيربط بين سلسلة رمزية وبين رقم داخلي ويستبدله تلقائيا ً ‏،لذلك صرح عن نوع المعطيات التالي في القسم 

من الوحدة 

ملاحظة 

Type 

type 

TDrawingTool = (dtLine, dtRectangle, dtEllipse, dtRoundRect); 

TForm1 = class(TForm) 

: 

const 

dtLine = 0; 

dtRectangle = 1; 

dtEllipse = 2; 

dtRoundRect = 3; 

: Private 

DrawingTool: TDrawingTool; 

: 

DrawingTool := dtLine; 

: 

DrawingTool := dtRectangle; 

: 

: Gragh 

: 

تعريف هذا النوع يكافئ التعريف التالي 

بما أننا عرفنا نوع فعلينا تعريف متحول من هذا النوع،‏ لذلك أضف تعريف المتحول التالي للقسم 

أكتب التعليمة التالية في حدث الضغط على الزر الأول 

والتعليمة التالية في حدث الضغط على الزر الثاني 

والتعليمة التالية في حدث الضغط على الزر الثالث


DrawingTool := dtEllipse; 

DrawingTool := dtRoundRect; 

. 

OnMouseUp 

173 

: 


والتعليمة التالية في حدث الضغط على الزر الرابع 

وبهذا نكون قد أعطينا قيمة محددة للمتحول DrawingTool عند الضغط على كل زر من الأزرار 

الآن علينا أن نفحص قيمة DrawingTool عند رسم الأشكال لذلك نعدل التعليمات في الحدث 

للنموذج كما يلي 

case DrawingTool of 

dtLine: 

begin 

Canvas.MoveTo(Origin.X, Origin.Y); 

Canvas.LineTo(X, Y) 

end; 

dtRectangle: Canvas.Rectangle(Origin.X, Origin.Y, X, Y); 

dtEllipse: Canvas.Ellipse(Origin.X, Origin.Y, X, Y); 

dtRoundRect: Canvas.RoundRect(Origin.X, Origin.Y, X, Y, 

(Origin.X - X) div 2, (Origin.Y - Y) div 2); 

end; 

Drawing := False; 

End; 

ولكي نستطيع مشاهدة الشكل الذي يرسم أثناء تحريك الفأرة نعدل التعليمات في الحدث OnMuseMove لتصبح 

if Drawing then 

begin 

Canvas.Pen.Mode := pmNotXor; 

case DrawingTool of 

dtLine: begin 


Canvas.LineTo(MovePt.X, MovePt.Y); 


Canvas.LineTo(X, Y); 

end; 

dtRectangle: begin 

Canvas.Rectangle(Origin.X, Origin.Y, MovePt.X, MovePt.Y); 

Canvas.Rectangle(Origin.X, Origin.Y, X, Y); 

end; 

dtEllipse: begin 

Canvas.Ellipse(Origin.X, Origin.Y, X, Y); 

Canvas.Ellipse(Origin.X, Origin.Y, X, Y); 

end; 

dtRoundRect: begin 

Canvas.RoundRect(Origin.X, Origin.Y, X, Y, 


Canvas.RoundRect(Origin.X, Origin.Y, X, Y, 

بالشكل :


شرح بعض التعليمات الواردة في الحدثين السابقين 

تعليمة رسم مستطيل 



end; 

end; 

end; 

MovePt := Point(X, Y); 

Canvas.Pen.Mode := pmCopy; 

end; 

: 

: ( Rectangle ) 

تقوم هذه التعليمة برسم مستطيل بمعرفة إحداثيات نقطتي البداية والنهاية لأحد أقطاره 

تعليمة رسم قطع ناقص 

. 

: ( Ellipse) 

تقوم هذه التعليمة برسم قطع ناقص أو دائرة بمعرفة ‏:إحداثيات نقطتي قطر المستطيل الذي يمس القطع الناقص 

أقطاره الأربعة أضلاع 

تعليمة رسم مستطيل ذو زوايا مستديرة 

: ( RoundRect ) 

تقوم هذه التعليمة برسم مستطيل ذو زوايا مستديرة بمعرفة نقطي القطر كما في رسم مربع 

الأولى 

) 

( 

تغير شكل الخط 

ومعرفة الطول الذي سيأخذه القوس من ارتفاع وعرض المستطيل 

. 

: 

يمكننا التحكم بشكل الخط،‏ حيث يمكن أن يظهر بشكل منقط أو خطوط متتالية أو خط ونقطة 

التحكم بلون الخط وعرضه.‏ 

الوسطاء الأربعة 

... 

، كما يمكننا 

سنضيف الآن شريط أدوات جديد للتحكم بشكل الخط،‏ هذا الشريط سيبقى مخفيا ً حتى يضغط المستخدم على زر في 

شريط الأدوات السابق ولتحقيق ذلك 

: 

أ أضف شريط ادوات Toolbar من الصفحة Win32 وأعط الخاصة 

. False القيمة Visible 

ب أضف الآن ستة أزرار عن طريق الضغط على زر الفأرة اليميني والضغط على الزر 

ج أضف عنصر ImageList1 جديد واربط العنصر 

الصور إلى هذا العنصر 

اذهب إلى المجلد 

. New Button 

Toolbar2 معه 

) 

وأضف مجموعة من الأيقونات أو 

C:\Program Files\Borland\Delphi6\Demos\Doc\Graphex 

: 

solid.bmp - dashed.bmp - dotted.bmp - dashdot.bmp - dashdot2.bmp - clear.bmp 

: 

واضف الصور التالية منه على الترتيب 

بحيث يصبح في النهاية بالشكل 

حدد الأزرار الستة وأعط الخاصة Grouped لها القيمة 

د اضغط بزر الفأرة اليميني على العنصر 

الصور التالية إلى العنصر ImageList1 من المجلد السابق 

tbsCheck القيمة Style والخاصة True 

New Separator واختر toolbar1 

: 

174 

ثم أضف زر جديد وأضف


أعط هذا الزر في الخاصة 


pen.bmp - brush.bmp 

: 

tbsCheck القيمة Style 

ه في حدث الضغط على هذا الزر أكتب التعليمة التالية 

toolbar2.Visible := not toolbar2.Visible ; 

عند الضغط هذا الزر فسيظهر شريط الأدوات الثاني وسيختفي إذا كان ظاهرا ً . 

أكتب التعليمة التالية في حدث الضغط على الزر الأول في شريط الأدوات الثاني 

والتعليمة التالية في حدث الضغط على الزر الذي يليه 





: Toolbar2 

canvas.Pen.Style := pssolid; 

canvas.Pen.Style := psDash; 

canvas.Pen.Style := psdot; 

canvas.Pen.Style := psdashdot ; 

canvas.Pen.Style := psdotdot ; 

canvas.Pen.Style := psclear ; 

: 

: 

: 

: 

: 

تغير لون القلم 

175 

: 

يمكن أن نرسم بألوان مختلفة باستخدام عنصر القلم Tpen ولتحقيق ذلك 

أ أضف العنصر ColorDialog إلى النموذج 

ب أضف إلى 

التعليمة التالية 

: 

. 

( Separator 

Toolbar2 فاصل ) 

: 

ج أعط هذا الزر أيقونة مناسبة 


تغير عرض القلم 

ومن ثم زر جديد وفي حدث الضغط على هذا الزر أكتب 

if ColorDialog1.Execute then 

Canvas.Pen.Color := ColorDialog1.Color; 

. ( 

) 

. 

: 

الأيقونة 

colors.bmp من الفهرس السابق 

لكي يتمكن برنامجنا بالتحكم بعرض الخط المرسوم أضف ما يلي 

أ عنصر Edit ضعه فوق العنصر 

: 

. ToolBar2 

ب عنصر UpDown من الصفحة Win32 أعطه في القيمة Edit1 في الخاصة 

ج أضف التعليمة التالية في الحدث 

تغير نوع الفرشاة 

: Associate 

للعنصر :Edit1 OnChange 

canvas.Pen.Width := strtoint(edit1.Text ); 

: 

تستخدم الفرشاة في دلفي لتحديد النمط الذي ستمتلئ به الأشكال في دلفي 

:


سنضيف الآن شريط أدوات جديد للتحكم بالفرشاة على غرار شريط الأدوات المستخدم للتحكم بالقلم ولتحقيق ذلك 

أ أضف شريط أدوات جديد إلى النموذج 


: 

. 

ب أضف زر جديد إلى شريط الأدوات Toolbar1 وأعط الخاصة Style لهذا الزر القيمة 

tbsCheck واكتب 

في حدث الضغط عليه التعليمة التالية : 

Toolbar3.Visible := Not Toolbar3.Visible ; 

ج أضف إلى شريط الأدوات الجديد تسعة أزرار ، حدد الأزرار الثمانية الأولى منها وأعط الخاصة Grouped 

لها القيمة 

True والخاصة Style القيمة 

tbsCheck وأعطها صور من المجلد السابق بحيث تظهر بالشكل 

: 

أكتب في حدث الضغط على الزر الأول التعليمة التالية 

وفي حدث الضغط على الزر التالي القيمة 

وفي حدث الضغط على الزر التالي القيمة 

: 

canvas.Brush.Style := bssolid; 

: 

canvas.Brush.Style := bsclear; 

: 

canvas.Brush.Style := bshorizontal; 

: 

bsVertical – bsFdiagonal – bsbdiaognal – bsColor – bsDiagCross 

كرر التعليمة وغير القيمة المحلقة بالمنهج Style للأزرار الباقية على التوالي 

تغيير لون الفرشاة 

: 

اكتب التعليمة التالية في حدث الضغط على الزر التاسع في شريط الأدوات 

: ToolBar3 

If ColorDialog1.Excetue then canvas.Brush.Color := ColorDialog1.Color ; 

إضافة شريط الحالة إلى النموذج 

: 

يستخدم شريط الحالة Status bar لإظهار معلومات عن حالات معينة ضمن التطبيق،‏ سيظهر برنامجنا معلومات 

عن موقع المشيرة الحالي بالإضافة إلى النقطة البدائية التي ضغط عليها المستخدم ولتحقيق ذلك 

أ أضف العنصر StatusBar من الصفحة 

: 

. Win32 

2 

إضغط عليه بزر الفأرة اليميني واختر Panel Editor ستظهر عندها نافذة تحرير اللوحات اضغط فيها على 

الزر Add New مرتين لإضافة لوحتين 

3 حدد اللوحة 0 وأعطها في الخاصة 

4 أضف التعليمة التالية في حدث 

5 أضف التعليمة التالية في الحدث 

Width القيمة . 150 

OnMouseDown للنموذج : 

StatusBar1.Panels[0].Text := Format ('origin = %d , %d',[x,y]); 

OnMouseMove للنموذج : 

StatusBar1.Panels[1].Text := Format ('Point = %d , %d',[x,y]); 

. 

176


26 


الجلسة 

الرسم على عنصر صورة 

: 

بما أننا نرسم على النموذج مباشرة فلن نستطيع إجراء عمليات على الصور المرسومة كالنسخ واللصق والحفظ 

والطباعة،‏ لذلك علينا تطوير برنامجنا ليكون قادرا ً على الرسم فوق عنصر الصورة ، قبل إضافة عنصر الصورة 

إلى الشكل عليك 

. 

1 إضافة مساحة قابلة للتدرج 

: 

بما أنك سترسم فوق عنصر صورة فقد يكون حجم الصورة أكبر من حجم النموذج وبالتالي علينا إضافة أشرطة 

تمرير لكي يمكن المستخدم من الوصول إلى أجزاء الصورة الغير ظاهرة على النموذج ولتحقيق ذلك:‏ 

أضف العنصر ScrollBox من الصفحة Win32 وأعط الخاصة 

. alClient القيمة Align 

2 إضافة عنصر صورة Image فوق العنصر ScrollBox1 وأعطاه الخصائص التالية 

True 

0 

True 

0 

AutoSize 

Left 

Stretch 

Right 

تحديد الحجم والصورة الابتدائية لعنصر الصورة 

: 

عندما وضعنا صور على الشكل فإننا لم نحدد صورة لعرضها ولكننا حددنا مكان لتعرض فيه الصورة،‏ وما علينا 

الآن إلا وضع صورة فارغة في الخاصة 

Picture للعنصر 

Image1 ويمكن تحقيق ذلك بطريقتين 

1 أثناء التصميم : إضافة صورة فارغة ذات لون أبيض ذات امتداد .Bmp إلى الخاصة 

الصورة 

: 

Picture لعنصر 

. 

2 أثناء التنفيذ 

التالية في الحدث 

: 

الرسم على عنصر الصورة 

إنشاء عنصر صورة نقطية Bitmap وإلحاقة بالصورة Image1 ولتحقيق ذلك اكتب التعليمات 

Var 

Bitmap : TBitmap ; 

Begin 

Bitmap := Tbitmap.Create ; 

Bitmap.Width := 200; 

Bitmap.Height := 200; 

Image1.Picture.Graphic := Bitmap; 

Bitmap.Free ; 

OnCreate للنموذج : 

: 

لن يختلف الرسم على عنصر الصورة عن الرسم على النموذج ، فعنصر الصورة يملك الخاصة 

الرسم بدون إجراء تغيرات كبيرة في البرنامج نفذ مايلي 

Canvas ولتحقيق 

: 

177



1 ضع مؤشر التحرير في أول الوحدة 

Graph واختر من 

الأمر Search Replace فتظهر النافذة : 

Canvas 

اكتب في الحقل Text To Find 

القيمة 

واكتب في Replace With القيمة Image1.Canvas 

واضغط على الزر Replace All 

سيتغير الآن كل سطر في الوحدة من Canvas.pen… مثلا ً 

Event واضغط 

إلى Image1.Canvas.pen.. 

2 حدد عنصر الصورة وأذهب إلى الصفحة 

السهم المجاور للحدث 

OnMousemove واختر من القائمة 

Form1MouseUp للنموذج 

، FormMouseMove كذلك أربط الحدث 

OnMouseup للصورة مع الحدث 

وكذلك الأمر بالنسبة للحدث .. OnmouseDown 


. 

178



إضافة قائمة إلى برنامج الرسم 

: 

سنضيف الآن قائمة إلى برنامج الرسم للتحكم بعنصر الصورة 

: 

أضف العنصر MainMenu من الصفحة Standard وأنشأ القائمة 

الموضحة بالشكل 

وأنشأ فيها القائمة 

File تحوي الأوامر 

: 

Edit التي يجب أن تظهر كما في الشكل 

: 

سنكتب الآن الأوامر التي يجب تنفيذها عند الضغط على كل زر من أزرار القائمة 

: 

: 

File 

Exit 

1 في حدث الضغط على الزر في القائمة اكتب التعليمة التالية 

Close ; 

2 عندما يضغط المستخدم على الزر New ستظهر نافذة تطلب من المستخدم تحديد ارتفاع وعرض الصورة 

الجديدة وعندما يضغط على الزر موافق سيتم إنشاء صورة فارغة 

أنشأ نموذج جديدا ً وأعطه الخواص المناسبة بحيث يبدو كما في 

الشكل 

: 

: 

أضف المتحول التالي في القسم 

الأولى 

Public للوحدة ) Graph الوحدة 

CurrentFile : String; 

( 

سنستخدم هذا المتحول لحفظ الملف لاحقا ً 

. 

في حدث الضغط على الزر New أكتب التعليمة التالية 

وفي حدث الضغط على الزر موافق في النموذج الثاني أكتب التعليمات التالية 

وفي حدث الضغط على الزر إلغاء الأمر أكتب التعليمة 


وأنشأ صورة جديدة 

: 

Form2.ShowModal; 

: 

var bitmap : tbitmap; 

begin 

Bitmap := Tbitmap.Create ; 

Bitmap.Width := strtoint(edit1.Text ); 

Bitmap.Height := strtoint(edit2.Text ); 

form1.Image1.Picture.Graphic := Bitmap; 

bitmap.Free ; 

Form1.CurrentFile := '' ; 

close; 

Close; : 

. 

179


4 عند الضغط على الزر Open سيقوم البرنامج بفتح صورة في العنصر Image وبالتالي يمكن تحرير هذه 

الصورة أو الرسم فوقها 


180 

: 

أضف العنصر OpenPictureDialog من الصفحة 


3 عندما يضغط المستخدم على الزر 

CurrentFile أما إذا كان 

Open من القائمة 

. Dialog 

File اكتب التعليمة التالية 

: 

if OpenPictureDialog1.Execute then 

begin 

CurrentFile := OpenPictureDialog1.FileName; 

Image1.Picture.LoadFromFile(CurrentFile); end; 

CurrentFile = '' 

: Saveas1Click 

Save سنقوم بحفظ الصورة في اسم الملف المخزن في المتحول 

فهذا يعني أن الصورة جديدة وبالتالي نستدعي الأجراء 

اكتب التعليمات التالية في حدث الضغط على الزر . Save 

if CurrentFile '' then 

Image1.Picture.SaveToFile(CurrentFile) 

else SaveAs1Click(Sender); 

4 عندما يريد المستخدم أن يحفظ الصورة في ملف جديد فإنه سيضغط على الزر : Save As 

اضف العنصر SavePictureDialog إلى النموذج واكتب في حدث الضغط على الزر 

File التعليمات التالية 

5 طباعة الصورة 

Save As من القائمة 

if SavePictureDialog1.Execute then 

begin 

CurrentFile := SavePictureDialog1.FileName; 

Image1.Picture.SaveToFile(CurrentFile); end; 

: 

تعاملنا سابقا ً مع الصباعة باستخدام صفحة العناصر 

سنستخدم أسلوبا ً جديد ًا 

) 

أ أضف الوحدة Printers إلى القسم 

File اكتب التعليمات التالية 

علما ً أن التعامل مع Qreport يبقى أفضل 

: ( 

Uses للوحدة 

: 

يستخدم المنهج BeginDoc لإعطاء الطابعة إيعاز تبدأ عمليات الطباعة 

يستخدم المنهج Canvas.Draw لنسخ 


،QReport وبإمكننا استخدام هذه الصفحة للصباعة هنا ولكن 

Graph وفي حدث الضغط على الزر Print من القائمة 

printer.BeginDoc ; 

printer.Canvas.Draw(0,0,image1.Picture.Graphic ); 

printer.EndDoc ; 

. 

( رسم ) 

EndDoc 

الصورة Image1 في الخاصة Canvas لعنصر الطابعة 

لإنهاء تكليف الطابعة وعند هذا الأمر تبدأ عملية الطباعة 

. 

إذا أردت أن تتحكم بحجم الصورة استخدم التعليمة StretchDraw بدلا ً من التعليمة Draw مثال 

حيث التابع 

: 

printer.Canvas.StretchDraw(rect(0,0,4000,4000),image1.Picture.Graphic ); 

Rect يحدد المستطيل الذي ستتمدد الصورة فيه .


استخدام الحافظة Clipboard في برنامجنا 


: 

سنستخدم الحافظة لكي نتمكن من نسخ صورة ولصقها بلإضافة إلى قصها في برنامجنا 

: 

استخدمنا الحافظة سابقا ً للتعامل مع العنصر DbImage حيث كان لهذا العنصر المنهجين 

CopyToClipbord و 

CutToClipord بالإضافة إلى PasteFromClipboard ولكن للأسف العنصر Image المستخدم في برنامجنا 

لا يملك هذه المناهج ولذلك علينا التعامل مع الوحدة ClipBrd للتعامل في برنامجنا مع الحافظة ، لذلك أضف 

الوحدة ClipBrd إلى القسم 

1 نسخ الصورة إلى الحافظة 

Graph للوحدة Uses 

: 

اكتب التعليمة التالية في حدث الضغط على الزر 

تقوم هذه التعليمة بإلحاق هدف الصورة بهدف الحافظة 

Copy 

Clipboard.Assign(Image.Picture); 

. Clipboard 

2 قص الصورة إلى الحافظة 

181 

: 

لقص الصورة إلى الحافظة نقوم أولا ً بنسخ الصورة إلى الحافظة ومن ثم مسح الصورة 

اكتب التعليمات التالية في حدث الضغط على الزر 

النوع 

: 

: Cut 

Var ARect :TRect ; 

Clipboard.Assign(Image.Picture); 

image1.Canvas.CopyMode := cmwhiteness; 

ARect :=rect(0,0,image1.Width,image1.Height); 

image1.Canvas.CopyRect( ARect,image1.Canvas,ARect); 

image1.canvas.copymode := cmsrccopy; 

TRect عبارة عن نوع مستطيل وهو يعرف مستطيل من خلال معرفة إحداثيات البداية والنهاية للمستقيم 

الذي يمثل أحد الأقطار.‏ 

: Canvas.CopyMode := cmWhiteness 

أن الصورة ستصبح بيضاء 

تعني أن عملية نسخ صورة إلى الحافظة ستتم باللون الأبيض 

) 

. ( 

: ARect := Rect ( 0,0,…) 

تحدد أبعاد المستطيل بأبعاد العنصر 

Image الحالية . 

: Canvas.CopyRect( ARect,Image.Canvas,ARect) 

أي 

عملية نسخ إلى المستطيل المحدد بالوسيط الأول 

ARect من الكنفا المحددة بالوسيط الثاني والوسيط الثالث يحدد أبعاد المستطيل الذي سينسخ من الكنفا الأصل 

. 

بكلمات أخرى تقوم هذه التعليمة بنسخ مستطيل بحجم الصورة من عنصر الكنفا إلى عنصر الكنفا نفسه وستكون 

النتيجة صورة بيضاء لأننا الخاصة 

التعليمة الأخيرة 

. CopyMode := cmWhiteness 

: Canvas.CopyMode := cmsrcCopy 

تعيد الخاصة 

CopyMode 

. 

لصق الرسومات من الحافظة 

: 

عملية لصق صورة من الحافظة هي عملية معاكسة لعملية نسخ صورة إلى الحافظة وتتم بالتعليمة التالية 

إلى قيمتها الافتراضية 

:


ولكن تظهر لدينا هنا المشكلة التالية 

أي برنامج تحرير نصوص 


image1.Picture.Bitmap.Assign(clipboard) ; 

) 

: 

( 

تصور أن الحافظة تحوي عنصر نص 

قد تكون نقلت نص إلى الحافظة في 

وبالتالي ستكون التعليمة السابقة تطلب لصق نص فوق عنصر صورة الأمر الذي 

سيظهر رسالة خطأ ولذلك علينا فحص نوع المعلومات في الحافظة قبل إجراء عملية اللصق 

اكتب التعليمات التالية في حدث الضغط على الزر 

تعيد التعليمة 

: 

if Clipboard.HasFormat(cf_BITMAP) then 

image1.Picture.Bitmap.Assign(clipboard) ; 

. 

: Paste 

(CF_BITMAP) HasFormat إذا كانت هناك صورة في الحافظة 

بهذا نكون قد انهينا برنامج الرسم وسننتقل الآن للتعامل مع الوسائط المتعددة 

: في دلفي ( الملتميديا ) 

برمجة الأوساط المتعددة 

: 

إن مصطلح الأوساط المتعددة يشير إلى أي شكل من أشكال العروض المتحركة 

في الحاسب ، 

يستخدم العنصر 

( الأفلام ) 

MediaPlayer 

ا تشغيل ملفات الأصوات 

مثال 

في الصفة System للتعامل مع الأوساط المتعدد في دلفي 

: 

: 

: 1 

أبدأ مشروعا ً جديدا ً وأضف إليه العنصر 

MediaPlayer وأعطه الخصائص التالية 

: 

C:\WINDOWS\MEDIA\ CHORD.WAV 

True 

Filename 

Autoopen 

والصوت والمستخدمة 

تحديد الملف الصوتي الذي سيعرضه 

العنصر 

إمكانية التشغيل التلقائي 

نفذ البرنامج واضغط على الزر الأخضر وستسمع الصوت إذا كانت أجهزة الصوت في حاسوبك جاهزة 

. 

مثال‎2‎ : 

تحديد الملف الصوتي أثناء التنفيذ 

: 

أضف زر وعنصر OpenDialog إلى النموذج السابق وفي حدث الضغط على الزر اكتب التعليمات التالية 

عدل الخاصة 

: 

Filter للعنصر 

OpenDialog1 بحيث يعرض ملفات من الامتداد 

.WAV و الامتداد 

.MP3 فقط 

. 

أكتب التعليمة التالية في حدث الضغط على الزر 

التعليمة الأولى تعمل على إيقاف عمل العنصر 

MediaPlayer1.Close ; 

if openDialog1.Execute then begin 

MediaPlayer1.FileName := Opendialog1.FileName ; 

MediaPlayer1.Open ; 

end; 

MediaPlayer إذا كان يعرض ملف صوتي عند ضغط الزر . 

182


والتعليمة الأخرى تسند أسم ملف جديد إلى العنصر MediaPlayer ‏،أما التعليمة 

جعل العنصر فعالا ً ، نفذ البرنامج وحدد ملف ما واضغط على الزر الأخضر 

عرض ملفات الفيديو 


Mediaplayer.Open فمهمتها 

. 

: 

لعرض ملفات الفيديو أضف العنصر 

Display القيمة 

Panel1 ‏،ثم عدل الخاصة 

Panel إلى النموذج السابق وأعط العنصر MediaPlayer في الخاصة 

Filter للعنصر 

OpenDialog1 بحيث يعرض ملفات 

.AVI و 

. .MPG و .DAT 

نفذ البرنامج الآن واضغط على الزر وحدد الملف 


Play وشاهد العرض 

سماع الصوت بدون استخدام العنصر 

ابدأ مشروعا ً جديدا ً وأضف إليه الزر 

أضف الوحدة MMSystem للقسم 

طبعا ً إذا كنت لا تملك غيره 

: ( 

) 

C:\Program Files\Borland\Delphi6\Demos\CoolStuf\ speedis.avi 

. 

: MediaPlayer 

: SpeedButton 

Uses واكتب التعليمات التالية في الحدث 

OnMouseUP للعنصر 

SpeedButton 

PlaySound('C:\WINDOWS\MEDIA\DING.WAV',0,0) 

طبعا ً بإمكانك تحديد اسم الملف الذي تريد في الوسيط الأول . 

183


27 


الجلسة 

التعامل مع الملفات 

ا نسخ ملف 

مثال 

: 

: 

: 

أنشئ صورة باستخدام برنامج الرسام واحفظها على القرص 

\:C باسم 

Test.Bmp وأنشأ المجلد 

وأبدأ مشروعا ً جديدا ً واكتب في حدث الضغط على زر التعليمات اللازمة لنسخ هذا الملف إلى المجلد 

الوسيط الأول 

الوسيط الثاني 

،C:\temp 

: C:\temp 

copyfile('c:\Test.bmp','c:\Temp\Test.bmp',False) ; 

. ( 

: 

هو الملف المصدر 

: هو الملف الهدف 

) 

) 

الملف الذي سيتم نسخه 

أيضا ً تغير اسم الملف الهدق أي يمكن أن يكون الوسيط الثاني 

C:\test.bmp إلى الملف 

البيانات 

الملف الذي سيتم إنشاءه وسيكون نسخة عن الأصل في الملف الأول 

( 

. 

: الوسيط الثالث 

يمكن 

'C:\Temp\Des.bmp' وبهذا سيتم نسخ الملف 

C:\temp\des.bmp وبالتالي سيكون للملفين أسمين مختلفين ولكنهما سيحويان نفس 

في حال أعطيت هذا الوسيط القيمة 

True فإن التابع سيفشل في حال كان هناك ملف بنفس الأسم 

في المجلد الهدف وأما أن كانت قيمته False فهذا يعني أنه ستتم الكتابة فوق الملف الهدف إذا كان موجودا ً 

2 نقل ملف 

. 

: 

تقوم التعليمة التالية بنقل الملف من مكان إلى آخر مع إمكانية تغيير أسمه 

) : 

: 

أضف زر إلى المشروع السابق 

واكتب فيه التعليمة التالية 

Movefile('c:\temp\test.bmp','c:\movetest.bmp'); 

الوسيط الأول هو الملف الأصل ، والوسيط الثاني هو الملف الهدف ، سيفشل التابع في حال كان الملف الأصل غير 

موجود أو في حال كان الملف الوجهة موجودا ً 

3 حذف ملف 

) 

ليس هناك هنا اكانية للكتابة فوق الملف 

. ( 

: 

لحذف ملف ما استخدم التعليمة التالية 

DeleteFile('c:\movetest.bmp'); 

: 

4 طرق أنشاء الملفات والتعامل معها في دلفي 

: 

1 

ملفات لغة الباسكل 

: 

يمكنك إنشاء الملفات النصية والملفات محددة النوع والملفات غير محددة النوع 

) 

( Untyped File 

باستخدام التعليمات المعروفة في لغة تربو باسكل مثل(‏ 

AssignFile و Reset و Rewrite و 

Readln و Writeln و 

ولكن تفضل الطرق الأخرى 

. 

2 

التعامل مع مقابض الملف في ويندوز 

.. CloseFile )، تعتبر هذه الطريقة غير متوافقة مع ويندوز ولكنها تعمل على أية حال 

: ( File Handles ) 

ثم يتم التعامل مع هذا المقبض حيث تستدعي التوابع المستخدمة في هذه الحالة توابع 

وجميع هذه التوابع موجودة في الوحدة 

يتم تعين مقبض للملف عند إنشاءه أو فتحة ومن 

Windows Api لإتمام عملها 

. 

SysUtils 

184


: File Streams ‏(معنى كلمة 


3 ملفات ستريم 

Stream هو نهر أو جدول أو سيل ولا أعرف كيف أترجمها 

في هذه الحالة وقد جرت العادة بين المبرمجن الحديث عنها ب ستريم فيل ( 

هذه الملفات من النوع TFileStream 

وهي ملفات تستطيع أن تخزن فيها أي نوع من البيانات كما يمكن أن تحفظ فيها بياناتك بطريقة مشفرة بحيث لا 

يستطيع أحد غيرك الإطلاع عليها تتعامل هذه الملفات مع النوعين TStream و TMemoryStream وهذا يمكنك 

من التعامل مع الذاكرة بشكل مباشر ويمكنك تحميل بياناتك إلى الذاكرة ومن ثم تخزينها في ملف أو يمكنك تحميلها 

بياناتك إلىالذاكرة ليتشارك عليها أكثر من جزء من برنامجك . 

: ( Working With File Handles 

التعامل مع الملفات عن طريق المقبض ) 

سنوضح مثالا ً يبين طريقة التعامل مع هذه الملفات : 

: 

( 

أ الكتابة إلى ) 

ملف في 

أكتب في حدث الضغط على زر التعليمات التالية 

في البداية نستخدم التعليمة 

: 

var FileHandle:integer; 

S:string; 

Begin 

if Not FileExists('c:\MyFile.mka') then 

FileHandle:= FileCreate('c:\MyFile.mka') Else 

FileHandle:= FileOpen('c:\MyFile.mka',fmOpenReadWrite) ; 

s:= 'khaled Nassr Agha' ; 

FileWrite(FileHandle,Pointer(s)^,length(s )); 

Fileclose(FileHandle); 

end; 

FileExists التي تعيد القيمة 

True في حال كان الملف موجودا ً وفي حال عدم وجود 

، FileHandle أما 

الملف نستخدم التابع 

FileCreate التي ينشأ الملف ويعيد رقم مقبض هذا الملف في المتحول 

في حال وجود الملف سابقا ً فنستخدم التابع 

FileOpen الذي يقوم بفتح الملف ويعيد رقم مقبض هذا الملف في 

المتحول 

، FileHandle والوسيط الثاني fmOpenReadWrite هو أحد القيم التي يأخذها هذا الملف ويعني انه 

سنستخدم الملف للقراءة والكتابة وهناك عدة قيم أخرى راجع ملفات المساعدة للحصول على 

معلومات عنها.‏ 

FileHandle وبطول 

التابع 

FileWrite يقوم بكتابة القيمة 

S والتي هي من نوع مؤشر في الملف ذو المقبض 

المتحول الثالث والذي يشير هنا إلى طول السلسلة . S 

. 

التعليمة الأخيرة 

FileClose تقوم بإغلاق الملف المفتوح 

ب القراءة من ملف : 


Memo و زرا ً 

جديدا ً واكتب في حدث الضغط عليه التعليمات التالية 

: 

var FileHandle,FileSize : integer; 

s:string; 

begin 

if FileExists ('c:\MyFile.mka') then begin 

FileHandle:= FileOpen('c:\MyFile.mka',fmOpenReadWrite) ; 

185


للتنقل ضمن الملف تستخدم التعليمة 

و Offset مقدار الإزاحة عن 


FileSize:=getfilesize(FileHandle,nil); 

setlength(s,FileSize); 

Fileread(FileHandle,pointer(s)^,FileSize); 

Memo1.Text := s; 

Fileclose(FileHandle); 

end; 

: SeekFile ( Handle, Offset ,origin) 

Origin ويأخذ 

Origin القيم التالية 

: 

حيث Handle هو مقبض الملف 

186 

0 

يتم اعتبار الإزاحة Offset من أول الملف 

. 

1 

يتم اعتبار الإزاحة Offset من موقع المؤشر الحالي 

. 

2 

يتم اعتبار الإزاحة Offset من آخر الملف 

. 

م ثلا ً التعليم ة SeekFile(FileHandle,0,0) ت ضع مؤش ر المل ف ف ي بداي ة المل ف و التعليم ة 

Seekfile(FileHandle,12,2) تضع مؤشر الملف على بعد 12 حرف من آخر الملف 

. 

الملفات ستريم : File Stream 

سنأخذ مثالا ً بسيطا ً عن كيفية أنشاء هذا النوع من الملفات زمن القراءة والكتابة إليها 

إنشاء ملف من النوع TFileStream والكتابة إليه 

: 

: 

أضف زر إلى نموذج جديد واكتب في حدث الضغط على الزر التعليمات التالية 


TFileStream.Create تنشأ الملف 

: 

Var FileStream : TFileStream ; 

buffer : String; 

begin 

FileStream := TFileStream.Create('c:\MyStream.tst',fmCreate) ; 

Buffer := ' This Line Will Be Save to File ' ; 

FileStream.Write(pointer(Buffer)^,Length(Buffer)); 

FileStream.Free ; 

end; 

MyStream.Tst على القرص 

C أما الوسيط 

بإنشاء الملف إذا لم يكن موجدا ً وفي حال كان موجودا ً يفتح الملف في وضع للكتابة فقط 



القراءة من ملف 

. 

: FileStream.Write 

تقوم بكتابة النص في المتحول 

) 

Buffer 

لا تتعامل إلا مع المؤشرات 

fmCreate فإنه يقوم 

( 

: FileStream.Free 

تقوم بتحرير المتحول FileStream وإغلاق الملف المرتبط معه 

. 

: TFileStream 

أضف عنصر Memo إلى النموذج السابق واكتب التعليمات التالية في حدث الضغط على زر جديد 

: 

Var FileStream : TFileStream ; 

buffer : String; 

FileSize : integer; 

begin 

FileStream := TFileStream.Create('c:\MyStream.tst',fmOpenRead) ; 

FileSize := (FileStream.size );


قمنا اولا ً بفتح الملف للقراءة فقط في التعليمة 

الملف وأعطينا المتحول 

Buffer ووضعنا النتيجة في العنصر 


Setlength(Buffer,FileSize); 

FileStream.read(pointer(Buffer)^,FileSize); 

memo1.text := Buffer; 

FileStream.Free ; 

end; 

Create ومن ثم استخدمنا التعليمة 

Buffer حجم هذا الملف عن طريق التعليمة 

. Memo1 

FileStream.Size لتحديد حجم 

SetLength ثم قرأنا من الملف إلى المتحول 

( Origin 


التعليمة 1 

راجع الوسيط 

: FieStream.Seek 

Origin للتعليمة 

تقوم التعليمة Seek لنقل مؤشر الملف لمسافة محددة تبعا ً للوسيط 

SeekFile للإطلاع أكثر على وسطاء هذه التعليمة 

.( 

معلومات مفيدة 

187 

: 

ا تشغيل برنامج آخر من داخل برنامجك 

: 

بفرض أنك تريد تستدعي برنامج الآلة الحاسبة ضمن برنامج 

الملف 

: 

من المعلوم أن برنامج الحاسبة يتم تنفيذة عن طريق 

Calc.exe الموجود ضمن فهرس الويندوز ولاستدعاء هذا البرنامج من برنامج اكتب التعليمة التالية في 

حدث الضغط على زر 

WinExec('C:\Windows\Calc.exe' ,Sw_Show) ; 

: 

تقوم هذه التعليمة بإظهار بتشغيل برنامج الآلة الحاسبة . 

: ملاحظة 

تفترض هذه التعليمة أن مجلد الويندوز على جهازك هو 

عند تنصيب Windows 98 وMe Windows أما الفهرس الافتراضي ل 

C:\Windows وهذا يحصل بشكل افتراضي 

Windows و Windows 2000 

Xp فهو 


C:\Win32 وكما تعلم يمكن للمستخدم تغير هذه الفهارس أثناء تنصيب نظام التشغيل لذلك تستخدم عادة 

GetWindowsDirectory 

للوصول إلى فهرس نظام التشغيل مثال 

GetWindowsDirectoy 

: 

;(200,p) حيث 

GetMem(p,200) 

p من النوع 

Pchar وسيكون فيه اسم مجلد الويندوز 

قبل هذه التعليمة والتعليمة 

2 تشغيل ملف تابع لبرنامج آخر من برنامج 

) 

FreeMem(p,200) بعدها . 

: 

بقرض أنك تريد من برنامجك أن يشغل برنامج مايكروسوفت وورد 

لتحقيق ذلك استخدم التعليمات التالية 

( Microsoft Word ) 

: 

لاتنس استخدام التعليمة 

أضف أولا ً الوحدة ShellApi إلى القسم Uses ومن ثم أكتب التعليمة التالية في حدث الضغط على زر 

ويعرض أحد الملفات 

. 

shellapi.ShellExecute(0 ,'Open','C:\My Documents\Test.doc',Nil,Nil,0) ; 

تقوم هذه التعليمة بفتح الملف Test.doc الموجود في المجلد 

إذا أردت من برنامجك فتح الملف وطباعته مباشرة استبدل الوسيط 

. My Document 

. 'Print' بالوسيط 'Open'



تقوم هذه التعليمة بالعودة إلى بيئة ويندوز لمعرفة البرنامج الافتراضي الذي تستخدمه لفتح هذا النوع الملفات ومن 

ثم تقوم بتشغيل البرنامج وفتح الملف بداخله فإذا اخترت استخدمت في التعليمة الملف C:\Mypicture.jpg ستقوم 

التعليمة التعليمة بالبحث عن البرنامج الافتراضي الذي يفتح هذا النوع من الصور فقد يكون فوتوشوب أو Internet 

. Explorer 

استخدام التعليمة السابقة لفتح مجلد ما : 

إذا أردت فتح مجلد ما في مستكشف ويندوز أكتب التعليمة التالية 

تقوم التعليمة السابقة بفتح مجلد 

: 

shellapi.ShellExecute(0 ,'Open','C:\My Documents',Nil,Nil,0) ; 

. C:\My Document 

188


الجلسة 



27 

: 

سنقوم الآن بكتابة برنامج يشابه برنامج المفكرة في ويندوز 

( Notepad ) 

ويختلف عنه بأنه سيتعامل مع ملفات 

من النوع Rtf بالإضافة إلى الملفات ، Txt كما أنه سيكون من النوع MDI بحيث يمكننا أن نفتح أكثر من ملف 

. بنفس الوقت 

أبدأ مشروعا ً جديدا ً وأضف إليه العنصر 

MainMenu والعنصر 

: 

عنصر النموذج 

الخاصة 

: Form1 

bdRightToLeft 

BiDiMode 

Caption 

FormStyle 

Name 

Position 

عنصر القائمة 

أعط الزر ‏(ملف 


fsMDIForm 

MainForm 

poDesktopCenter 

: MainMenu 

أنشئ في هذا العنصر القائمة 

) 

OpenDialog وأعط الخصائص التالية للعناصر 

القيمة 

) والقائمة ( ملف 

) 

): إطار 

( 


‏&جديد 

‏&فتح 

‏&خروج 


أعط الزر ‏(إطار)‏ في الخاصة 


ترتيب 

تتالي 

FileMenu وأضف إليه الأوامر 

: التالية ( الأزرار 

Name القيمة 

Caption 

New 


Name 


Shortcut 

OpenFile 

CloseApp 


Window1 وأضف إليه الأوامر 

: التالية ( الأزرار ) 

Caption 


Name 


Shortcut 

- 

العنصر 

: OpenDialog1 

.rtf 

DefaultExt 

Filter 

ضع في الخاصة Filter الأسطر التالية 

: 

Filter Name 

Filter 

Rich Text 

*.rtf 

Text File 

*.Txt 

All File 

*.* 

احفظ الوحدة باسم Main.pas والمشروع باسم 

. MyTextEditor.Dpr 

189


أضف إلى المشروع نموذجا ً جديد ًا File New Form وأضف أليه العناصر التالية 

و عنصر RichText من الصفحة 

أعط النموذج الجديد الخصائص التالية 


MainMenu : 

190 

عنصر 

.FontDialog وعنصر PrintDialog و SaveDialog وعنصر Win32 

: 

bdRightToLeft BiDiMode 

fsMDIChild FormStyle 

EditForm Name 

أنشئ في العنصر MainMenu1 ثلاث قوائم باسم 

حسب الجدول التالي 

أعط الزر ‏(ملف 


‏&جديد 

‏&فتح 

حفظ 

حفظ باسم 

طباعة 

إغلاق 

‏&خروج 

( تنسيق ) و ( تحرير ) و ( ملف ) 

: 

( 

أعط الزر ‏(تحرير 


نسخ 

قص 

لصق 

تحديد الكل 

أعط الزر ‏(تنسيق 



FileMenu وأضف إليه الأوامر 

( الأزرار ) 

وأنشئ في كل منها أزرار 

: التالية 

Caption 


Name 


Shortcut 

New 

OpenFile 

Ctrl+S 

Save 

SaveAs 

PrintFile 

CloseFile 

CloseAll 

في الخاصة ( 

EditMenu القيمة Name 

وأضف إليه الأوامر 


Caption 


Name 


Shortcut 

Ctrl+C 

CopyText 

Ctrl+X 

Cuttext 

Ctrl+V 

PasteText 

Ctrl+A 

SelectAll 

( 


محاذاة إلى اليسار 

محاذاة إلى اليمين 

محاذاة إلى الوسط 


EditMenu القيمة Name 

وأضف إليه الأوامر 


Caption 

Left1 


Name 


Shortcut 

Right1 

Center1 

WordWrap1 

Font1 

- 

التفاف تلقائي 

خط 

حدد الأزرار الثلاثة الأولى من القائمة تنسيق وأعطها في الخاصة RadioItem القيمة True هذا سيجعلها تبدو


كأزرار الراديو ولا يمكن اختيار إلا واحد منها في ذات الوقت 

أعط العنصر Richedit1 الخصائص التالية 


. 

: 

alClient 

Editor 

Align 

Name 

أعط العنصر Savedialog1 الخصائص التالية 

: 

.rtf 

DefaultExt 

Filter 

ضع في الخاصة 

Filter الأسطر التالية 

Filter Name 

Rich Text 

Text File 

: 

Filter 

*.rtf 

*.Txt 

_ 

احفظ البرنامج وسمي الوحدة الجديدة باسم 

EditText.pas 

اكتب التعليمة التالية في حدث الضغط على الزر جديد في القائمة ملف للنموذج : MainForm 

TEditForm.Create(Self); 

الوسيط Self وسيط معرف يعود إلى النموذج الذي يطلب فيه هذا الوسيط 

. 

- اكتب التعليمة التالية في حدث الضغط على الزر جديد في القائمة ملف للنموذج :EditForm 

TEditForm.Create(Self); 

- في الحدث OnClose للنموذج EditForm اكتب التعليمة التالية 

Action := CaFree ; 

CaMinimized حيث 

: 

تمكننا هذه التعليمة من إغلاق النافذة الابن وتكون قيمتها الافتراضية في النموذج الابن هي 

يتم تصغير النموذج الابن بدلا ً من إغلاقه عند الضغط على الزر إغلاق 

عندما يقوم المستخدم بالضغط على الزر فتح من القائمة 

ابن جديدة وسنقوم تحميل الملف إلى العنصر 

الملف الذي نفتحه 

. 

) 

سواء في النافذة الأب أو الابن 

( 

( TrichEdit ) Editor 

. 

قبل البدء بكتابة التعليمات الخاصة بفتح ملف سنقوم بتعريف ما يلي 

عرف المتحول PathName من النوع String في القسم 

: 

سنقوم بإنشاء نافذة 

، كما سنغير عنوان النافذة ليكون باسم 

. EditText للوحدة Private 

عرف الثابت _ 

const 

‏;'بدون عنوان'‏ = DefaultFileName 

: 

_ 

أضف تعريف الإجراء التالي في القسم 

: EditText 

Procedure Open(const AFileName: string); 

public للوحدة 

ضع مؤشر لوحة المفاتيح عند السطر السابق واضغط الأزرار Ctrl+Alt+C سيتم عندها إضافة التابع السابق 

إلى القسم 

، Implementation اكتب التعليمات التالية في جسم التابع 

: 

PathName := AFileName; 

191


التابع 


Caption := ExtractFileName(AFileName); 

with Editor do 

begin 

Lines.LoadFromFile(PathName); 

SelStart := 0; 

Modified := False; 

end; 

. 

: ExtractFileName ( AFileName) 

التعليمات ضمن الكتلة 

يعيد اسم الملف مع امتداده وبدون ذكر المسار 

End; With Editor Do begin …. تكافئ التعليمات : 

Editor.Lines.LoadFromFile(PathName); 

Editor.SelStart := 0; 

Editor .Modified := False; 

أي أننا نستخدم التعليمة Width لنتخلص من ذكر العنصر في كل سطر من سطور البرنامج . 

التعليمة =: 0 Editor.selstart ضع مؤشر التحرير للعنصر Editor في بداية الملف 

التعليمة Editorr.Modified تأخذ القيمة 

. 

True في 

حال عدل المستخدم في أي نقطة من الملف المفتوح 

في حدث الضغط على الزر فتح في القائمة ملف للنموذج MainForm اكتب التعليمة التالية 

. 

: 

If OpenDialog1.Execute Then 

TeditForm.Create(Self).Open(OpenDialog1.FileName ) ; 

تقوم التعليمة بعد Then بإنشاء نافذة جديدة ومن ثم طلب تنفيذ الإجراء Open الذي كتبناه سابقا ً . 

في حدث الضغط على الزر فتح في القائمة ملف للنموذج EditForm اكتب التعليمة التالية 

: 

MainForm.Openfile.Click ; 

_ 

الحدث 

عند إنشاء ملف جديد سنعطي عنوان النافذة التي تفتح هذا الملف اسم افتراضي لذلك اكتب التعليمات التالية 

: EditForm للنموذج OnCreate 

أي أن المتحول PathName سيدل على الاسم الافتراضي للملف الجديد 

حفظ الملف 

العنصر 

بامتداد 

في 

PathName := DefaultFileName; 

. 

: 

Editor وهو من النوع 

rtf أو بالامتداد 

TRichEdit يقوم بحفظ الملفات بامتداد 

Txt لذلك سنستخدم متحول من النوع 

rtf فقط وعلى برنامجنا حفظ الملف 

Tstrings لنقل أسطر العنصر 

حفظ أسطر هذا المتحول على ملف ‏÷ذا طبعا ً عند اختيار المستخدم حفظ الملف بالامتداد 

. .Txt 

في حدث الضغط على الزر حفظ في القائمة ملف للنموذج EditForm اكتب التعليمات التالية 

Editor إليه ومن ثم 

: 

var S: Tstringlist; 

begin 

if PathName = DefaultFileName then 

SaveAsClick(Sender) 

else 

begin 

if uppercase(rightstr(PathName,3)) = uppercase( 'rtf' ) then 

Editor.Lines.SaveToFile(PathName) else 

try 

192


تقوم التعليمات السابقة بفحص المتحول 

PathName فإذا كانت قيمته هي القيمة الافتراضية أي 


S:=Tstringlist.Create ; 

s.AddStrings(Editor.Lines ) 

finally 

s.SaveToFile(PathName) ; 

end; 

Editor.Modified := False; 

end; 

‏"بدون عنوان"‏ 

يعني أن الملف جديد ولم يتم حفظه سابقا ً ‏،مما يستدعي طلب التعليمات التي تنفذ عند الضغط على حفظ باسم أما أذا 

كان PathName لا يساوي القيمة الافتراضية مما يدل أن للملف مسار وأسم محددين وسندرس هنا احتمالين 

1 أن يكون امتداد الملف هو rtf وبالتالي ننفذ التعليمة 

واضح أن الشرط الذي يسبق هذه التعليمة يقارن الأحرف الثلاثة الأخيرة في المتحول 

بعد تحويل القيمتين على أحرف كبيرة 

) 

: 

Editor.Lines.SaveToFile(PathName) 

PathName مع القيمة 

'rtf' 

. 

2 

أن يكون امتداد الملف هو Txt وبالتالي ننشئ المتحول S من النوع TStringList وننقل أسطر العنصر 

Editor إليه ومن ثم نحفظه ، ثم نعيد القيمة 

الحفظ الأخير 

False للخاصة 

. 

حفظ الملف باسم 

: 

Editor.Modified أي أن الملف لم يتم تعديله بعد 

اكتب التعليمات التالية في حدث الضغط على الزر حفظ في القائمة ملف للنموذج : EditForm 

SaveDialog1.FileName := PathName; 

if SaveDialog1.Execute then 

begin 

PathName := SaveDialog1.FileName; 

Caption := ExtractFileName(PathName); 

SaveClick(Sender); 

end; 

التعليمة الأولى تجعل صندوق الحوار حفظ باسم أن يظهر الاسم الحالي للملف كاسم افتراضي والتعليمات التالية 

تقوم بوضع اسم الملف الذي اختاره المستخدم في صندوق الحوار حفظ باسم في المتحول 

عنوان النافذة ليأخذ اسم الملف الجديد ‏.ومن ثم تستدعي الإجراء 

الامتداد الذي اختاره المستخدم 

إغلاق الملف 

PathName وتغير 

) Sender SaveClick ( ليتم حفظ الملف وفق 

. 

: 

اكتب التعليمة التالية في حدث الضغط على الزر إغلاق في القائمة ملف للنموذج : EditForm 

الخروج من البرنامج 

Close; 

: 

اكتب التعليمة التالية في حدث الضغط على الزر خروج في القائمة ملف للنموذجMainForm‏:‏ 

Close; 

193



اكتب التعليمة التالية في حدث الضغط على الزر خروج في القائمة ملف للنموذج : EditForm 

MainForm.CloseApp.Click ; 

يتم إغلاق جميع النوافذ الأبناء عند إغلاق النموذج الأب . 

أمامنا الآن مشكلة جديدة ، افرض أن المستخدم قد عدل الملف ثم ضغط على الزر إغلاق بدون حفظ الملف ، 

سيقوم البرنامج في هذه الحالة بإغلاق الملف دون حفظ ولذلك علينا إظهار رسالة حوار تسأل المستخدم إذا كان 

يريد أن يحفظ الملف أم لا . 

اكتب التعليمة التالية في حدث الضغط على الحدث 

: EditForm للنموذج OnCloseQuery 

Const 

‏;'هل تريد حفظ التغيرات المدخلة على الملف'‏ = SWarningText 

begin 

if Editor.Modified then 

begin 

case MessageDlg(Format(SWarningText + #13 + '%s', [PathName]), mtConfirmation, 

[mbYes, mbNo, mbCancel], 0) of 

mrYes: SaveClick(Self); 

mrCancel: CanClose := False; 

end; 

end; 

end; 

يتم تنفيذ الحدث OnCloseQuery عندما يضغط المستخدم على زر إغلاق وقبل أن يتم إغلاق النموذج ويجود مع 

هذا الحدث الوسيط 

CanClose والذي يأخذ قيمة افتراضية 

True ‏،وعند إعطاءه القيمة 

False يرفض البرنامج 

إغلاق النافذة . 

نفحص عندها المتحول 

Editor.Modified ‏(الذي يأخذ القيمة 

True إذا قام المستخدم بإجراء أي تعديل على 

: 

الملف ( 

، وعندها نظهر صندوق حوار يسأل المستخدم إذا كان يريد حفظ الملف وهذا الصندوق ذو ثلاث أزرار 

. SaveClick إذا ضغط المستخدم على هذا الزر فإنه يريد حفظ الملف ونستدعي عندها التابع : Yes 

: No إذا ضغط المستخدم على هذا الزر فإنه لا يريد حفظ الملف وسيتم إغلاق النافذة . 

CanClose إذا ضغط المستخدم على هذا الزر فإنه لا يريد إغلاق الملف وبالتالي نغير قيمة الوسيط : Cancel 

. 

إلى 

False وبالتالي لن يستجيب البرنامج لحدث الضغط على الزر إغلاق 

الرمز 

#13 في التابع 

MessageDlg يجعل اسم الملف يظهر في السطر الثاني من الرسالة ، هذا يكافئ كتابة نص 

. 

الرسالة ومن ثم الضغط على زر 

Enter ومن ثم كتابة اسم الملف 

برمجة القائمة تحرير : 

Editor.CopyToClipboard; 

Editor.CutToClipboard; 

اكتب التعليمة التالية في حدث الضغط على الزر نسخ في القائمة تحرير 

اكتب التعليمة التالية في حدث الضغط على الزر قص في القائمة تحرير 

اكتب التعليمة التالية في حدث الضغط على الزر لصق في القائمة تحرير 

: 

: 

: 

194



Editor.PasteFromClipboard; 

اكتب التعليمة التالية في حدث الضغط على الزر تحديد الكل في القائمة تحرير : 

Editor.SelectAll; 

من الواضح أن الزرين نسخ و قص يجب أن يكونا غير فعالين إذا لم يحدد المستخدم نصا ً ما في العنصر ، Editor 

كما أن الزر لصق يجب أن يكون غير فعال في حال كانت الحافظة فارغة 

لتحقيق ذلك أكتب التعليمات التالية في حدث الضغط على الزر تحرير 

وأضف الوحدة ClipBrd إلى القسم 

المنهج 

حرف 

SelLength يعيد عدد الأحرف المحددة في العنصر 

) 

أو في حال كانت فيها صورة 

، ( 

: 

Copytext.Enabled := editor.SelLength > 0; 

Cuttext.Enabled := editor.SelLength > 0; 

Pastetext.Enabled := clipboard.HasFormat(CF_text); 

. EditForm في للوحدة uses 

. 

برمجة القائمة تنسيق 

: 

اكتب في حدث الضغط على الزر محاذاة إلى اليسار التعليمات التالية 

ثم حدد الزرين 

Editor وهي تساوي الصفر إذا لم يحدد المستخدم أي 

: 

with Sender as TMenuItem do Checked := True; 

with Editor.Paragraph do 

if Left1.Checked then 

Alignment := taLeftJustify 

else if Right1.Checked then 

Alignment := taRightJustify 

else if Center1.Checked then 

Alignment := taCenter; 

OnClick في 

( 

) 

محاذاة إلى اليمين 

( 

و(محاذاة إلى اليسار 

الصفحة Event من محرر الخواص واختر من القائمة 

ثم أضغط على السهم المجاور للحدث 

. Left1Click 

اكتب التعليمة التالية في حدث الضغط على الزر التفاف تلقائي 

: 

with Editor do 

begin 

WordWrap := not WordWrap; { toggle word wrapping } 

if WordWrap then 

ScrollBars := ssVertical 

else 

ScrollBars := ssBoth; 

WordWrap1.Checked := WordWrap; { set menu item check } 

end; 

اكتب التعليمات التالية في حدث الضغط على الزر خط : 

FontDialog1.Font := Editor.Font; 

if FontDialog1.Execute then 

Editor.SelAttributes.Assign(FontDialog1.Font); 

195



يتميز العنصر RichEdit عن العنصر 

Memo بإنه يمكن تحديد نمط خط لكل سطر أي أنه يمكن تنسيق النص 

. 

المكتوب بداخله على عكس العنصر 

Memo الذي يمكنك استخدام خط وتنسيق واحد لكل الأسطر 

.TRichEdit 

والمنهج 

SelAttributes يعطيك أمكانية التحكم بتنسيق السطر المحدد في العنصر 

) 

برمجة القائمة إطار في النموذج : MainForm 

في البداية تلاحظ أن هذه القائمة لن تظهر أثناء تنفيذ البرنامج إذا كان أحد الأبناء ظاهرا ً 

أغلق جميع النوافذ الأبناء 

المفتوحة ولاحظ ظهور القائمة إطار من جديد ( 

هذا يحدث لأن قائمة النموذج الابن تأخذ مكان قائمة النموذج الأب 

: 

وإذا أردنا إظهار قوائم النموذج الأب بجوار قوائم النموذج الابن علينا استخدام ما يدعى بدمج القوائم ولتحقيق ذلك 

. GroupIndex 

افتح محرر القوائم في النموذج الأب وحدد الزر إطار ثم اكتب القيمة 

1 في الخاصة 

لاحظ أن جميع قوائم النافذة الابن تأخذ القيمة الافتراضية 

0 في هذه الخاصة وإذا أعطيت القيمة 

1 لأحد هذه القوائم 

GroupIndex فإنها 

فإنها ستأخذ مكان القائمة إطار ، أما إذا أعطيت أحد قوائم النافذة الاين القيمة 

2 في الخاصة 

ستظهر بعد القائمة إطار . 

. 

إذا ً الخاصة 

GroupIndex تستخدم لدمج وترتيب القوائم بين النموذج الأب والنماذج الأبناء 

اكتب التعليمة التالية في حدث الضغط على الزر ترتيب الكل في القائمة إطار 

تقوم هذه التعليمة بترتيب النوافذ الأبناء بشكل أفقي 

: 

MainForm.Tile 

. 

) 

عليك أن تفتح أكثر من نافذة ابن لتلاحظ النتائج 

MainForm.Cascade; 

اكتب التعليمة التالية في حدث الضغط على الزر تتالي الكل في القائمة إطار:‏ 

تقوم هذه التعليمة بصف النوافذ فوق بعضها البعض 

. 

إظهار أسماء النوافذ الأبناء ضمن القائمة إطار : 

عند 

الضغط على القائمة إطار في برنامج الوورد تظهر في نهاية القائمة أسماء جميع ملفات النصوص المفتوحة 

ولتحقيق ذلك في برنامجنا حدد النموذج MainForm ثم اذهب إلى الخاصة 

WindowsMenu وأعطاها القيمة 

اسم زر القائمة إطار 

، نفذ البرنامج الآن وافتح أكثر من ملف 

واضغط على القائمة إطار ستلاحظ 

( 

) Window1 

ظهور أسماء جميع هذه الملفات في القائمة الإطار ويمكنك التنقل بين هذه الملفات عن طريق الضغط على اسم 

الملف في هذه القائمة . 

أحفظ البرنامج الآن وانتقل إلى الخطوة التالية وهي عمل برنامج تنصيب 

لتوزيع برنامج المفكرة 

. 

( Setup 

) 

196


: 



Install Shelled Express 

بعد أن يصبحك برنامجك جاهزا ً وخاليا ً من الأخطاء عليك أن تحضره ليعمل على أي حاسب وبأسهل طريقة 

ممكنة،‏ فليس من المعقول أن يكون المبرمج موجودا ً لتنصيب البرنامج على عند كل مستخدم للبرنامج لذلك جرت 

العادة على استخدام معالجات تنصيب 

وهي عبارة عن مجموعة من صناديق الحوار تسأل المستخدم عن مسار 

البرنامج واللغة المستخدمة ومكان وضع الاختصارات ..... 

تستطيع أن تكتب برنامج التنصيب بنفسك فهو في النهاية عبارة عن نسخ ملفات من قرص مرن أو قرص ليزري 

إلى الحاسب ولكن هناك برامج مختصة بهذه العملية ، ويأتي مع قرص دلفي البرنامج Install Shelled Express 

وهو نسخة مجانية من البرنامج Install Shelled Professional ولكنه يفي بالغرض . 

سنشرح الآن بشكل سريع البرنامج Install Shelled Express 

عمل برنامج تنصيب لبرنامج المفكرة : 

عليك أولا ً تنصيب البرنامج 

Install Shelled Express من قرص دلفي ومن تشغيله من القائمة 

: 

Start Program IntallShelled Express – Borland Limited Edition . 

تظهر عندها نافذة اختر منها : Create new project 

في الصندوق Project name and location أكتب C:\My Documents\MySetups\MyNotpad.ism ثم 

اضغط على الزر . Create 

تظهر عندها نافذة تتألف من نافذة تحوي شجرة على اليسار وتظهر في النافذة اليمنى خصائص الفرع المختار من 

هذه الشجرة . 

: 

اختر 

General Information من الشجرة فستظهر الخصائص التالية في النافذة المجاورة 

هناك بعض الخواص الواضحة 

والتي ليست بحاجة إلى شرح 

لذلك سأشرح أكثر الخصائص 

أهمية : 

: INSTALLDIR تحدد هذه 

الخاصة المجلد الافتراضي 

الذي سيتم فيه تنصيب 

البرنامج بالضغط على هذه 

الخاصة تظهر القيم التي يمكن 

أن تأخذها هذه الخاصة،‏ كما 

يمكنك كتابة المجلد الذي تريد 

لتنصيب برنامجك داخله . 

تحدد هذه الخاصة اسم البرنامج وسيظهر اسم البرنامج عند بداية التنصيب 

. 

: Product Name 

197



اختر Setup Types من الشجر ة اليسارية فتظهر نافذ على اليسار تستخدم لتحديد نوع التنصيب وهناك ثلاث 

أنواع عادة لتنصيب الملف وهي إما تنصيب نموذجي 

أو تنصيب اصغري 

( Minimal أو تنصيب 

) 

( Typical 

) 

مخصص 

( Custom تتحكم طرق التنصيب بالملفات التي سيتم نسخها إلى الحاسب وبما أن برنامجنا مؤلف من 

) 

. 

ملف واحد فلا حاجه لأن يكون هناك ثلاث أنوا من التنصيب لذلك اختر فقط 

Typical من النافذة 

اختر 

Files من الشجرة تظهر عندها أربع نوافذ متجاور إلى في النافذة اليسرى ، سنحدد هنا الملفات التي سيتم 

نسخها إلى القرص الصلب وهي ملفات التي يحتاجها البرنامج 

) معظم البرامج المكتوبة بالغة دلفي لا تحتاج إلا إلى 

الملف ذو الامتداد 

.Exe إلا إذا كان برنامجك يتعامل مع ملفات خارجية،‏ كملفات صور أو نصوص أو صوت أو 

قاعدة بيانات ... 

اضغط بزر الفأرة اليميني على 

Destination Computer في النافذة اليسرى في الأسفل ستظهر لك قائمة حدد 

منها ، INSTALLDIR حدد بعدها الفهرس الذي حفظت فيه برنامج المفكرة في النافذة Source Computer's 

. Folder 

Destination إلى النافذة Source Computer's Files 

ثم أنقل الملف من 

TextEditor.Exe من النافذة 

Computer Files عن طريق سحب الملف إفلاته . 

: 

اختر : Object/ Merge Modules 

وحدد من النافذة المجاورة المكتبات التي يتعامل معها برنامج وأهمها 

حدد هذا الخيار إذا كان برنامجك يستخدم العناصر في الصفحة 

BDE في دلفي وبمجرد تحديد هذا 

: BDE_ent 

. 

الخيار يظهر نموذج حوار لتحديد نوع قاعدة المعطيات المستخدمة ولإنشاء 

Alias إذا كنت بحاجة لذلك 

... . QuickRep حدد هذا الخيار إذا استخدمت في برنامجك العناصر في الصفحة : QuickReport 

: 

اختر بعدها : Shortcuts /folder's 

فتظهر عندها النافذة التالية 

اضغط بزر الفأرة اليمني على القائمة 

Program Menu واختر New Folder وسم المجلد الجديد باسم شركتك ثم 

اضغط على بزر الفأرة اليميني على المجلد الجديد واختر من القائمة 

، New Shortcut أعط هذا الاختصار الاسم 

. 

Notepad ثم حدد الخصائص لهذا الاختصار كما هو موضح في الأعلى وهذا شرح 

لهذه الخصائص 

تظهر هذه الخاصة تلميح عندما يقف مؤشر فوق أيقونة الاختصار في Win2000 :Description 

تحدد هذه الخاصة الملف الذي سيتم تشغيله عند الضغط على الاختصار 

) لا حظ أن هذا الاختصار 

: Target 

يجب أن يحدد على الكمبيوتر الهدف وليس على حاسبك لذلك وضع داخل . INSTALLDIR\TextEditor.exe 

يتم تحديد في هذه الخاصة الأيقونة التي سيحملها الاختصار 

. 

: IconFile 

198



تحدد مجلد عمل البرنامج 

) هذه الخاصة ضرورية جدا ً إذا كان البرنامج يستدعي ملفات 

: Working Directory 

من مجلد البرنامج ). 

يمكنك عمل أكثر من اختصار لنفس الملف ، كما يمكنك أن تظهر اختصار لبرنامج على سطح المكتب و إذا أردت 

لبرنامجك أن يعمل في بداية تشغيل ويندوز ضع اختصارا ً له في القائمة . Startup 

اختر 

Registry من الشجرة اليسارية إذا كان برنامجك يتعامل مع ملف تسجيل ويندوز 

) إذا كان برنامجك يحتاج 

إلى إضافة قيم إلى مسجل النظام ليعمل بشكل جيد ( . 

اختر 

Dialog من الشجرة اليسارية لتحدد النوافذ التي ستظهر أثناء تشغيل برنامج التنصيب ، حدد منها النوافذ التي 

تريد أن تظهر ولاتنس أن تتحكم بخصائص هذه النوافذ 

) لا حظ أن كثرة النوافذ ستؤدي إلى زيادة حجم ملفات 

برنامج التنصيب ( . 

اختر 

إذا كان برنامجك مخصص ليعمل على نظام تشغيل محدد 

ويندوز 

2000 فقط مثلا ً 

( أو 

) 

Requirement 

انه بحاجة إلى معالج من طراز معين ، أو بحاجة إلى حد معين من الذاكرة ليعمل و...‏ 

اختر 

Build your release واختر Custom من النافذة المجاورة وحدد الخصائص من النافذة المجاورة وفيما 

يلي شرح مختصر لهذه الخواص : 

حدد هنا حجم وسيلة التخزين التي تريد أن تخزن عليها برنامج التنصيب 

) إذا كان قرص مرن 

: Media Size 

أعط القيمة ( 1.38 . 

يمكنك أن تختار بين 

Mb أو Gb أي أن الحجم الذ‎1‎ي حددته في الخيار الأول سيقاس 

: Media Size Unite 

بالميغا بايت أو . 

في جيغا بايت 

. 

يمكنك أن تختار 

512 أو 1024 تبعا ً لوسيط التخزين المستخدم 

: Cluster Size 


True لهذه الخاصة ليتم ضغط ملفات برنامجك و(‏ 

يفضل أن تفعل ذلك إذا كنت 

: Compress Media 

تريد حجم التخزين أصغر ما يمكن ( . 

في برامج التنصيب الحديثة لم يعد الملف 

Setup.exe هو الملف المسؤول عن تنصيب البرنامج 

: Setup.exe 

ويقوم بتنصيب البرنامج الملفات ذات الامتداد 

Msi ومهمة البرنامج 

Setup.exe هي تحديد نظام التشغيل وتسليم 

العمل إلى برامج تنصيب ملفات 

Msi المناسبة،‏ يفضل أن تعطي هذه الخاصة القيمة 

True لأن أغلب المستخدمين 

تعود على تشغيل ملفات . Setup.exe 

سيضيف هذا الخيار الملف 

instmsia.exe وهو يقوم بتنصيب البرنامج الذي 

: Include Msi Win9x engine 

يستطيع التعامل مع ملفات 

الملف ذو الامتداد 

Msi ليس ملف تنفيذي ولذلك هو بحاجة لبرنامج آخر لتشغيله 

) Msi 

فإذا قمت بتنصيب برنامجك على حاسوب لا يحوي برنامج تشغيل ملفات 

Msi فلن يتم تنصيب البرنامج،‏ لذلك 

عليك أن تضيف الملف 

instmsia.exe الذي يحوي البرنامج المسؤول عن فتح الملفات من نوع 

، إذا كنت 

( Msi 

ستستخدم القرص المرن كوسيلة تخزين فأعط هذا الخيار القيمة . True 

. 

سيضيف هذا الخيار الملف 

.... instmsiw.exe نفس الشرح السابق 

: Include Msi Windows Nt engine 

199 

أعط هذا الخيار القيمة 

True إذا كنت ستنسخ برنامج إلى قرص ليزري أو قرص 

: Generate AutoRun.inf 

. DVD


اختر الآن Build Custom من القائمة 

هذا يعني أن لم يحدث أي أخطاء أثناء عملية بناء ملفات التنصيب 


. 

Build سيتم عندها إنشاء ملفات التنصيب ويجب أن تكون الرسالة الأخيرة 

build completed with 0 errors, 0 warnings 

Run Your 

اختر بعد ذلك 

Test Your Release من الشجرة واضغط على Custom في النافذة الجديدة ومن ثم 

، Setup سيتم الآن تنصيب البرنامج بشكل كامل لا حظ الخطوات وتأكد من أنها تعمل بشكل صحيح وإذا تم العمل 

بدون رسائل أخطاء ، ستجد الاختصارات التي وضعتها في القائمة أبدا ، كما يمكنك إزالة البرنامج من النافذة 

إضافة إزالة البرامج من لوحة التحكم . 

. 

في حال حدوث أخطاء يجب عليك التأكد من القيم التي اخترتها في النوافذ السابقة وإعادة بناء البرنامج ومن تجربته 

بعد الانتهاء ستجد نسخة من برنامج التنصيب في الفهرس الذي حددته لحفظ برنامج التنصيب وهو غاليا ً من الشكل 

C:\My Documents\MySetups\MyNotpad\Express\Custom\DiskImages\DISK1 

Distributed your release 

: 

حدد الخيار 

واختر Custom من الشجرة المجاورة ومن ثم حدد المكان الذي تريد 

أن تضع فيه برنامج التنصيب ‏،ليكن القرص \:A مثلا ً ... 

Install Shelled 

ملاحظة 

‏:هذه النسخة من 

لا تدعم اللغة العربية وفي حال استخدام اللغة العربية في عمليات 

إعداد برنامج التنصيب من المحتمل أن تشاهد الكثير من رسائل الأخطاء . 

وآخر دعواهم أن الحمد الله رب العالمين 

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا إنك أنت الغفور الرحيم 


200



المراجع 


مجموعة محاضرات في كلية الهندسة المعلوماتية جامعة 

حلب 

المهندس ياسر عقاد 

أسامة معراوي 


احتراف 


Visual Basic .Net 

http://www.arabdevelopers.com 

مواقع على الانترنت 

من أول وأقوى مواقع الدلفي ولكنه للأسف لا يعمل في 

الوقت الحالي 

الفريق العربي للبرمجة 

موقع إنكليزي ولكنك بالتأكيد ستحب الدلفي إذا فهمت 

http://www.arabteam2000.com 

http://www.delphiforfun.com 

برامج هذا الموقع 

201

لغة البرمجة دلفي Delphi

Create successful ePaper yourself

Delete template?

Save as template?