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

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

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.