انشاء خاصية Propertie غير مرئية
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
انشاء خاصية Propertie غير مرئية
بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
انشاء خاصية 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;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» حساب Factorial العاملي عن طريق خاصية Propertie
» انشاء ملف دي ال ال dll واستدعائه
» مثال بسيط لتوضيح كيف تعمل خاصية
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» انشاء مجلد
» انشاء ملف دي ال ال dll واستدعائه
» مثال بسيط لتوضيح كيف تعمل خاصية
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» انشاء مجلد
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى