' ' Is not a valide date

- - Dernière réponse :  ELKADER - 2 juin 2018 à 13:01
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:=true
else
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 .
Afficher la suite 

1 réponse

0
Merci
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
Commenter la réponse de Utilisateur anonyme