EDBEDITERROR
asciidefond
Messages postés
8
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
7 septembre 2007
-
5 mai 2006 à 17:25
cs_dugueclin Messages postés 66 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 10 juillet 2012 - 6 mai 2006 à 11:53
cs_dugueclin Messages postés 66 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 10 juillet 2012 - 6 mai 2006 à 11:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37451-edbediterror
https://codes-sources.commentcamarche.net/source/37451-edbediterror
6 mai 2006 à 11:53
Merci de m'avoir répondu,c'est très sympat, je vais essayer ton code.
Sincères salutations et bon codding.
Dugueclin.
5 mai 2006 à 17:25
Une petite solution pour la gestion avec un message des erreurs sur des dates non valides.
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;
@+