كيف اجعل مكون Edit يقبل تاريخ Date فقط

[hallal02]

السلام عليكم
إخواني الكرام عندي مشكل صغير و هو
عندي edit خاص بكتابة التاريخ
لكنه يقبل أي كتابة مثلا لو تكتب 32/13/2014 يقبلها عادي كيف لي
أن أصلح هذا المشكل
و جزاكم الله خيرا

[Najy Ibraheem]

السلام عليكم...

استعمل المكون DateTimePicker المخصص للتاريخ و/أو الوقت.

سلام.

[hallal02]

شكرا جزيلا
لكني أعلم أن هناك طريقة و **** أن أتعلمها

[لؤي]

السلام عليكم

عند الكتابة في Edit حاول التحقق من محتوى النص:

كود :

var Form2: TForm2; [color=Red]mydate:TDateTime;[/color] implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin mydate:=strtodate(edit1.Text); ShowMessage(DateToStr(mydate)); end;

يبقى لك تسير الأخطاء في حالة تاريخ غير صحيح

[hallal02]

شكرا لك
لكنها لم تنجح

[لؤي]

ما الذي لم ينجح ؟

[hallal02]

السلام عليكم

عند الكتابة في edit حاول التحقق من محتوى النص:

كود :

var form2: Tform2; [color=red]mydate:tdatetime;[/color] implementation {$r *.dfm} procedure tform2.button1click(sender: Tobject); begin mydate:=strtodate(edit1.text); showmessage(datetostr(mydate)); end;

يبقى لك تسير الأخطاء في حالة تاريخ غير صحيح

السلام عليكم
لقد قمت بما نصحتني به
لكن دون جدوى
و ليكن في علمك أنني مبتدأ

[لؤي]

حاول بالملف المرفق

المحتوى:

كود :

function IsValidDateCheck(const AValue: String): Boolean; var dtTemp: TDateTime; begin Result := False; if Length(AValue) = 10 then if (AValue[3] = '/') and (AValue[6] = '/') then Result := TryStrToDate(AValue, dtTemp); end; procedure TForm2.Button1Click(Sender: TObject); var tempstr:string; begin tempstr:=Edit1.Text; if IsValidDateCheck(tempStr) then ShowMessage(tempStr + ' is a valid date.') else ShowMessage(tempStr + ' is not a valid date.'); end;

[hallal02]

بارك الله فيك أخي لؤي
سوف أجربه إن شاء الله

[hallal02]

هذه المرة فهمتها جيدا
و حللت المشكل
بارك الله فيك