وضع الشهر فقط في مربع النص؟

[ALG2009]

السلام عليكم
تقبل الله صيام الجميع
ما سبب عدم ظهور الشهر في مربع النص وظهور التاريخ بهذه الصوره 04/01/1900
ماهي أفضل طريقة لوضع الشهر فقط في مربع النص Edit1.Text

[bouh25]

استعمل الدالة DecodeDateTime
كمثال

var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin

myDate := StrToDate('29/12/2000');
myDate := IncMonth(myDate);
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));

end;

[ALG2009]

عذر لم أضع الكود الذي به الخطأ

كود :

  decodeDAte(date,Year,Month,day);   (Edit1.text:=datetostr(Month);

يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي 
لم تعمل DecodeDateTime

---

عذر لم أضع الكود الذي به الخطأ

كود :

   decodeDAte(date,Year,Month,day);    (Edit1.text:=datetostr(Month);

يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي 
لم تعمل DecodeDateTime

[ALG2009]

أريد أن أعرف ما السبب


عند كتابة هذا الكود تتم العملية بنجاح

كود :

var     Day,Month,Year :Word; begin decodedate(now,Year,Month,Day); edit1.text:=FormatFloat('00',month);

ولكن عند حذف [size=small]FormatFloat يعطيني تاريخ قديم!!![/size]

[size=small]لماذا  [/size]

[larbiparadox]

كود :

uses       DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := intTOstr(  DayOf(Date())  ); Edit2.Text := intTOstr(  MonthOf(Date())  ); Edit3.Text := intTOstr(  YearOf(Date())  ); end;

[ALG2009]

تقبل الله صيامكم
وجزاكم الله خير

---

أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها

لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ

كود :

edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));

[larbiparadox]

تقبل الله صيامكم
وجزاكم الله خير

---

أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها

لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ

كود :

edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));

تقبل الله من جميعا و اياكم

كود :

edit4.text:=format('%2.2d',[ MonthOf(Date())]);

[ALG2009]

الله يرضى عليك
سأحاول البحث على format لفهمها أكثر مادمت مهتم بالدلفي هته الايام