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

اذهب الى الأسفل

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

مُساهمة  ali1 في 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;



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 858
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى