كيف نعرف عنوان Object ما في في الذاكرة؟

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني معرفة عنوان object في الذاكرة ؟
مثلا :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  Date1: TDate;
  Date2: TDate;
begin

end; 


بصيغة اخرى : كيف يمكنني معرفة قيمة التي يأخدها date1 و date2 ؟

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

var
  Date1: TDate;
  Date2: TDate;
begin
  ShowMessage(IntToHex(Integer(Addr(Date1)), 8));
  ShowMessage(IntToHex(Integer(@Date2), 8));
//طريقتين كلاهما صحيح 


كيف كان درس المؤشرات في المجلة ؟

[hanipino]

السلام عليكم

اضافتا لما قاله الاخ kachwahed

ان الصنف TDate هو مشتق من الصنف TDateTime و هذا الاخير من صنف Double و هذا الاخير هو ذو حجم 8 بايت
و بالتالى اذا ذهبنا الى عنوان المتغير الذى هو من نوع TDate فان اول 8 بايت هى القيمة التى تعبر عن التاريخ .. و هذه القيمة هى من نوع Double ... .
و هذه الصـــــــــــــورة توضح ما قلناه و كيفية قراءة القيمة Double التى منها يستخرج التاريخ .

بالتوفيق.

[abdelmalek]

بارك الله فيكم

الاخ كش واحد :

كيف كان درس المؤشرات في المجلة ؟

هههههه دسم إطلعة عليه قبل ان اطرح السؤال .

الاخ hanipino :
بارك الله فيك على المعلومات الاضافية روعة .

المسئلة بنوع من التفصيل :
لحظ الصورة :

انا لم اقصد عنوان المؤشير بل قيمة المؤشر ؟؟
من المفروض ان :
Date1 و Date2 : تأخد القيمة nil .
Date3 : يأخد قيمة وهي عنوان object Date في الذاكرة؟ كيف احصل على تلك القيمة:(

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  Date1: TDate;
  Date2: TDate;
  Date3: TDate;
begin
   Try
     Date3 := TDate.Create;
     ShowMessage(.........);
     ShowMessage(.........);
     ShowMessage(.........);
   Finally
     FreeAndNil(Date3);
   End;
End; 


انا دوما احاول ان اجرب ماذا اقراء ..
لحظ هده الاسطر من كتاب عروة عيسى :

[محمد عبد العزيز]

وعليكم و السلام ورحمة الله

الاخ عبد المالك لديك لبس أو مغالطة
الTDate ليس object وانما نوع متغير في الأصل مؤشر على متغير Double كما قال اخي هاني
ومنه لا يمكنك انشائه باستدعاء Create
قيمته تكون صفرا فرضا مثل أغلب المتغيرات
باختلاف هذا النوع يعرض بشكل اليوم/الشهر/السنة
تحديدا الصفر هو عدد الأيام منذ التاريخ 30/12/1899 راجع الHelp

TDate représente un type spécial de valeur TDateTime sans partie décimale. Une valeur TDate représente le nombre de jours qui se sont écoulés depuis le 30 décembre 1899.

[abdelmalek]

شكرا اخي لكن TDate انا من صنعه ...

PHP كود :

unit UTest;

interface

Type
  TDate = Class
    public
    Day: byte;
    Month: byte;
      Year: Integer;
    Procedure SetValeur(D,M: byte; y: integer);
    Function leapyear: boolean;
  End;

  
implementation

Uses
   SysUtils;

Procedure TDate.SetValeur(D,M: byte; y: integer);
Begin
  day   := d;
  month := m;
  year  := y;
end;

Function TDate.leapyear:boolean;
begin 
  Result := isleapyear(year);
end;


End. 


[COLOR="DarkOrange"]لا مشكلة نأخد المسئلة بصفة عامة :
لحظ الكود التالي :[/COLOR]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  Obj1: TMyObject;
  Obj2: TMyObject;
  Obj3: TMyObject;
begin
   Try
     Obj3 := TMyObject.Create;
     ShowMessage(.........);
     ShowMessage(.........);
     ShowMessage(.........);
   Finally
     FreeAndNil(Obj3);
   End;
End; 


انا لم اقصد عنوان المؤشير بل قيمة المؤشر ؟؟
من المفروض ان :
Obj1 و Obj2 : تأخد القيمة nil .
Obj3 : يأخد قيمة وهي عنوان object Obj3 في الذاكرة؟ كيف احصل على تلك القيمة

بارك الله فيكم

[محمد عبد العزيز]

لكن TDate انا من صنعه ...

لم تذكر ذلك بسؤالك!
+ ابتعد عن الاسماء الموجودة سابقا بدلا من TDate سمي اسم أخر

انا لم اقصد عنوان المؤشير بل قيمة المؤشر ؟؟

يعني لم تفهم شيئ مما سبق
ان كان للمؤشر عنوان فله قيمة وهي ماهو مو جود بالمكان المؤشر اليه حسب نوعه.
ان كان Nil يعني لا يؤشر على شيئ= لاتوجد قيمة

عندما تستدعي Create لاي Object فهي تقوم بالازم بما في ذلك وضع قيمة ابتدائية

لكل Object دالة/اجراء Constructor و Destructor

[abdelmalek]

بارك الله فيك على المعلومات القيمة .

كما دكر اخي كش واحد سبقا دالة تعيد عنوان المؤشر :

PHP كود :

ShowMessage(IntToHex(Integer(Addr(Date1)), 8)); 


لكن ماهي الدالة التي ترجع لي قيمة المؤشر وليس عنوانه ؟

[محمد عبد العزيز]

بكل بساطة Date1 من نوع TDate تاريخ لإظهارها يكفي ShowMessage مع DateToStr للتحويل من تاريخ الى نص

كود :

ShowMessage(DateToStr(Date1));

[abdelmalek]

يا اخي Tdate فقط اتخدته كمثال ......

PHP كود :

ShowMessage(IntToHex(Integer(Addr(Obj1)), 8)); 


الدالة السابقة ترجع عنوان المؤشر .

لكن ماهي الدالة التي ترجع لي قيمة المؤشر وليس عنوانه ؟