' ' 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 

Votre réponse

1 réponse

Messages postés
64
Date d'inscription
samedi 26 août 2017
Dernière intervention
7 août 2018
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 cs_sagitarius

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.