06-04-2018, 08:36 PM
ما رأيكم في تعريف هذه خاصية Propertie والكود
أن فيكم من هم على دراية واسعة في البرمجة
بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
انشاء خاصية Propertie غير مرئية
في قسم التصريح بالمتغيرات والدوال
صرحت بفئة class بالكلمة type داخل الفئة class
اثنان منهجان Methodes الاول الاجراء والثاني دالة
ومتغير حرفي .
الاجراء SetTest الاول يأخذ قيمة ويضعها في المتغير الحرفي fa
الدالة GetTest تأخذ القيمة من المتغير الحرفي fa.
الخاصية Propertie تقرأ القيمة من الدالة GetTest ،
وتكتب بالاجراء SetTest في المتغير الحرفي fa.
وباختصار هذه الخاصية تأخذ قيمة ثم تقوم بعرضها
===================================
أن فيكم من هم على دراية واسعة في البرمجة
بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
انشاء خاصية 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;