+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعل مكون Edit يقبل تاريخ Date فقط (/showthread.php?tid=5934)
كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 10-02-2014
السلام عليكم
إخواني الكرام عندي مشكل صغير و هو
عندي edit خاص بكتابة التاريخ
لكنه يقبل أي كتابة مثلا لو تكتب 32/13/2014 يقبلها عادي كيف لي
أن أصلح هذا المشكل
و جزاكم الله خيرا
كيف اجعل مكون Edit يقبل تاريخ Date فقط - Najy Ibraheem - 10-02-2014
السلام عليكم...
استعمل المكون DateTimePicker المخصص للتاريخ و/أو الوقت.
سلام.
كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 10-02-2014
شكرا جزيلا
لكني أعلم أن هناك طريقة و **** أن أتعلمها
كيف اجعل مكون Edit يقبل تاريخ Date فقط - لؤي - 10-02-2014
السلام عليكم
عند الكتابة في 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;يبقى لك تسير الأخطاء في حالة تاريخ غير صحيح
كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 10-02-2014
شكرا لك
لكنها لم تنجح
كيف اجعل مكون Edit يقبل تاريخ Date فقط - لؤي - 11-02-2014
ما الذي لم ينجح ؟
كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 11-02-2014
لؤي كتب :السلام عليكم
عند الكتابة في 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;
يبقى لك تسير الأخطاء في حالة تاريخ غير صحيح
السلام عليكم
لقد قمت بما نصحتني به
لكن دون جدوى
و ليكن في علمك أنني مبتدأ
كيف اجعل مكون Edit يقبل تاريخ Date فقط - لؤي - 11-02-2014
حاول بالملف المرفق
المحتوى:
كود :
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;كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 11-02-2014
بارك الله فيك أخي لؤي
سوف أجربه إن شاء الله
كيف اجعل مكون Edit يقبل تاريخ Date فقط - hallal02 - 11-02-2014
هذه المرة فهمتها جيدا
و حللت المشكل
بارك الله فيك