البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>البرمجة</strong> <strong>الغرضية</strong> <strong>التوجه</strong> <strong>في</strong> دل<strong>في</strong><br />
عروة عيسى<br />
وإستخدامة سيكون بمنتهى السهولة<br />
:<br />
TheDate.increase;<br />
إن كل من الإحداث السابقة يجب أن يكون مرئيا من كل الوحدات ويستطيع المستخدم إستخدامة بشكل<br />
طبيعي، وبالتالي يجب أن يعرف تحت التوجية<br />
. Public<br />
وما أصبحنا نعرفة الآن أننا نملك صنف Tdate لة المناهج العامة السابقة وبالتالي أصبح التعريف سهلا<br />
المرحلة يمكننا أن نكتب التعريف كالتالي<br />
،<br />
:<br />
وحتى هذة<br />
type<br />
TDate = class<br />
public<br />
procedure SetValue (y, m, d: Integer); overload;<br />
procedure SetValue (NewDate: TDateTime); overload;<br />
function LeapYear: Boolean;<br />
function GetText: string;<br />
procedure Increase;<br />
end;<br />
الخصائص المطلوبة<br />
للقراءة وإجرائية للكتابة<br />
Year و Month و<br />
Day تحتاج إلى قراءة وكتابة بالتأكيد<br />
،<br />
.<br />
فإذا سمينا تابع القراءة GetYear وإجرائية الكتابة SetYear ستصبح التعاريف الثلاثة كالتالي<br />
:<br />
وسأختار هنا الحالة العامة وأضع تابع<br />
property Year: Integer read GetYear write SetYear;<br />
property Month: Integer read GetMonth write SetMonth;<br />
property Day: Integer read GetDay write SetDay;<br />
<br />
بالتأكيد بما أن الخواص يجب أن تكون ظاهرة للمستخدم ولبقية الوحدات فهي <strong>في</strong> قسم<br />
Public كذلك ،<br />
١٦