' ' Is not a valide date

Question

Bonjour, 
Je travaille sur BDE TABLE et je veux faire u filtrage sur une table qui contient les champs suivants:
(  nom_cand,  prenom_cand, date_n_cand )
j'essai avec ce code :
if edit1.text<>'' then begin table1.filter:='nom_cand='+quotedstr(edit1.text+'*');table1.filtered:=trueelse table1.filtered:=false ;
Mais il ya un probleme si aucun enregistrement ne correspend aux caracteres tapes dans le edit1
les probleme est : '' is not a valide date ;
Aider mois s'ils vous pliez .

cs_sagitarius · Answer

bonsoir,
essaye ce code:
procedure TForm1.DateExit(Sender: TObject);
Var
Resultat:String;
ResulMess: Integer;
Begin
try
DateTimeToString(Resultat,('dd/mm/yy'),(StrToDate(Date.Text)));
except
ResulMess:=MessageBoxA(0,Pchar('('+Date.Text+')  N''EST PAS UNE DATE VALIDE')
,Pchar('ERREUR SUR LA DATE'),MB_OK+MB_ICONWARNING+MB_TASKMODAL);
Abort;
end;
end;

Bon codding

' ' Is not a valide date

1 réponse

Votre réponse