السلام عليكم
إخواني الكرام عندي مشكل صغير و هو
عندي edit خاص بكتابة التاريخ
لكنه يقبل أي كتابة مثلا لو تكتب 32/13/2014 يقبلها عادي كيف لي
أن أصلح هذا المشكل
و جزاكم الله خيرا
السلام عليكم...
استعمل المكون DateTimePicker المخصص للتاريخ و/أو الوقت.
سلام.
شكرا جزيلا
لكني أعلم أن هناك طريقة و **** أن أتعلمها
السلام عليكم
عند الكتابة في 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 حاول التحقق من محتوى النص:
كود :
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;
بارك الله فيك أخي لؤي
سوف أجربه إن شاء الله
هذه المرة فهمتها جيدا
و حللت المشكل
بارك الله فيك