البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
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 />
end;<br />
وبقي علينا كتابة أجسام المناهج <strong>في</strong> قسم ال implementation<br />
.<br />
: تذكير<br />
لكتابة أجسام المناهج نضيف إسم الصنف مفصولا بنقطة عن إسم<br />
المنهج <strong>في</strong> الترويسة<br />
: مثال .<br />
procedure TDate.SetValue (y, m, d: Integer);<br />
begin<br />
أما شفرة المناهج فهي بغاية السهولة ويمكن الإعتماد على بعض تعليمات التاريخ المعرفة <strong>في</strong> الوحدة<br />
لاحظ إسم الصنف قبل إسم المنهج // ...<br />
end;<br />
DateUtils<br />
fDate := EncodeDate (y, m, d);<br />
S:= DateToStr (fDate);<br />
B:= IsInLeapYear(fDate);<br />
fDate := RecodeYear (fDate, Value);<br />
Result := YearOf (fDate);<br />
يقوم بتحويل ثلاث متحولات صحيحة تدل على اليوم والشهر<br />
والسنة إلى متحول من النوع<br />
. TdateTime<br />
يقوم بالتحويل من النمط TdateTime إلى النمط<br />
(مشابة ل<br />
، String<br />
InttoStr مثلا)<br />
يعيد قيمة بوليانية إذا كانت السنة كبيسة أولا<br />
يضبط قيمة السنة <strong>في</strong> التاريخ عن طريق تمرير القيمة الجديدة<br />
للسنة بالمتحول<br />
Value<br />
يعيد قيمة السنة <strong>في</strong> متحول التاريخ<br />
fDate<br />
تصبح شفرة الوحدة كاملة<br />
:<br />
unit Dates;<br />
interface<br />
uses SysUtils;<br />
type<br />
TDate = class<br />
private<br />
fDate: TDateTime;<br />
١٨
Change language