كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة

[hallal02]

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة
كمثال

كود :

if dbedit4.Text='' then begin messagedlg('entree LA DATE ',mterror,[mbok],0); abort; end

[M_Mori2010]

اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :

if (length(dbedit4.text)=0) then begin
messagedlg('entree LA DATE ',mterror,[mbok],0);
Exit;
end; 


[hallal02]

اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :

if (length(dbedit4.text)=0) then begin
messagedlg('entree LA DATE ',mterror,[mbok],0);
Exit;
end; 


بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

[hallal02]

بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

و للتوضيح أكثر هذا المثال الذي أعمل عليه

كود :

procedure TForm8.BitBtn8Click(Sender: TObject); var dt1,dt2:Tdate; begin if sdateedit3.Text:='' then begin showmessage('enter la date') else adoquery1.Close; adoquery1.SQL.Text:=('Select [COD COMPTES], Sum(Debit)as Sumdebit from DEBIT where LADATE Between :Dt1 and :Dt2 GROUP BY [COD COMPTES]'); adoquery1.Parameters.ParamValues['Dt1']:=strtodate(sdateedit3.text); adoquery1.Parameters.ParamValues['Dt2']:=strtodate(sdateedit4.text); adoquery1.Open; bitbtn16.Enabled:=true; end; end;