البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>البرمجة</strong> <strong>الغرضية</strong> <strong>التوجه</strong> <strong>في</strong> دل<strong>في</strong><br />
عروة عيسى<br />
أولا علي أن أقوم ببناء صنف جديد بالإسم ،<br />
Tdate وقد تعلمنا ذلك سابقا وهو سهل :<br />
type<br />
TDate = class<br />
- منهج<br />
"ضبط القيمة" لن يرجع أي قيم بل سنمرر لة القيم على شكل بارامترات<br />
إجرائية Procedure وليس تابعا<br />
نريد<br />
نريد إجرائيتين مختلفتين لضبط القيمة<br />
،<br />
، Function<br />
،<br />
. "<br />
لذلك من الأنسب أن يكون<br />
ولكن تذكر أنة بإمكاننا إستخدام نفس الإسم لكلا الإجرائيتين وذلك<br />
بالإستفادة من خاصية التحميل الزائد <strong>في</strong> دل<strong>في</strong> (حيث سيكون الفرق بالبرامترات) ، وسأختار إسما مناسبا لهما وليكن<br />
SetValue"<br />
فإذا سيبدو إستدعاء كل من الإجرائيتين بعد الإنتهاء بالشكل :<br />
الإجرائية الأولى // 1); (2004, 7, TheDate.SetValue<br />
TheDate.SetValue(now);<br />
الإجرائية الثانية //<br />
Now) يعيد قيمة التاريخ الحالي من النوع<br />
(TdateTime<br />
- نريد أيضا منهج ليعرف إذا كانت السنة كبيسة أو لا<br />
،<br />
المناسب أن يكون تابعا Function وليس إجرائية Procedure وليكن إسمة<br />
الإنتهاء كالتالي<br />
من الملاحظ أنة سيعيد قيمية بوليانية واحدة<br />
،<br />
، " LeapYear"<br />
:<br />
لذلك من<br />
وسيبدو شكلة بعد<br />
If (TheDate. LeapYear) then showmessage('Leap Year');<br />
منهج إخراج التاريخ بشكل نصي مشابه لحالة تابع السنة الكبيسة لإنة سيعيد قيمة نصيه واحدة ، وبالتالي سيكون<br />
تابعا وسيكون شكلة بعد الإنتهاء كالتالي<br />
showmessage(TheDate.GetText);<br />
:<br />
- منهج زيادة اليوم ليس بحاجة أصلا لبارامترات<br />
،<br />
فقط عند كل مرة يتم إستدعاءة <strong>في</strong>ها ، وليكن إسمة<br />
لإن مقدار الزيادة محددة سلفا حيث سيزيد التابع يوم واحد<br />
"Increase "<br />
١٥
Change language