انشاء خاصية Propertie غير مرئية

ali 6/4/2018, 10:14 pm

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله

انشاء خاصية Propertie غير مرئية

في قسم التصريح بالمتغيرات والدوال
صرحت بفئة class بالكلمة type داخل الفئة class
اثنان منهجان Methodes الاول الاجراء والثاني دالة
ومتغير حرفي .
الاجراء SetTest الاول يأخذ قيمة ويضعها في المتغير الحرفي fa
الدالة GetTest تأخذ القيمة من المتغير الحرفي fa.

الخاصية Propertie تقرأ القيمة من الدالة GetTest ،
وتكتب بالاجراء SetTest في المتغير الحرفي fa.

وباختصار هذه الخاصية تأخذ قيمة ثم تقوم بعرضها

الكود:: unit UnitTest; interface type TestClass = class private fa: string; procedure SetTest(const val: string); function GetTest: string; public property pTest: string read GetTest write SetTest; end; implementation { TestClass } function TestClass.GetTest: string; begin Result := fa; end; procedure TestClass.SetTest(const val: string); begin fa := val; end; end.

===================================

الكود:: uses UnitTest; procedure TForm1.Button1Click(Sender: TObject); var ts: TestClass; begin ts := TestClass.Create; try ts.pTest := '2018'; caption := ts.pTest; finally ts.Free; end; end;