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;
2 juin 2018 à 13:01