البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
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 />
SetYear هي مناهج محلية ولايجب على المستخدم أن يراها ويستعملها لإنة يستعمل الخاصة الأساسية مباشرة<br />
سنقوم بتعريفها بشكل محلي ضمن التوجية<br />
GetYear ,<br />
،<br />
private<br />
، حيث لن تكون مرئية خارج هذة الوحدة<br />
.<br />
وبالتالي<br />
بقي لدينا الآن شيء وحيد لم نأخذة بالحسبان وهو المتحول الذي سوف نخزن قيمة التاريخ <strong>في</strong>ة<br />
،<br />
لا تنسى أنك تضبط<br />
قيمة الصنف مرة واحدة ثم تستدعي المناهج السابقة للتاريخ المحفوظ ضمنة ،وبالتالي نحن بحاجة لمتحول لحفظ التاريخ<br />
وليكن هذا المتحول هو<br />
كذلك<br />
fDateمن النمط<br />
.<br />
،<br />
TdateTime<br />
وطبعا لاحظت أنة يجب أن يعرف محليا ضمن قسم<br />
Private<br />
.<br />
أصبح الآن شكل التعريف النهائي الذي سنضعة <strong>في</strong> قسم ال Interface كالتالي :<br />
type<br />
TDate = class<br />
private<br />
fDate: TDateTime;<br />
procedure SetDay(const Value: Integer);<br />
procedure SetMonth(const Value: Integer);<br />
procedure SetYear(const Value: Integer);<br />
function GetDay: Integer;<br />
function GetMonth: Integer;<br />
function GetYear: Integer;<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 />
property Year: Integer read GetYear write SetYear;<br />
property Month: Integer read GetMonth write SetMonth;<br />
property Day: Integer read GetDay write SetDay;<br />
١٧