1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

' ' Is not a valide date

Signaler
-
 ELKADER -
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

Réponse 1 / 1

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
Signaler

Merci cs_sagitarius.
Répondre Posez votre question