Discussion :

[Andry]

je voudrais avoir ce genre de function :
function DateIsValide(SDate: string; var : Cdate : TDate) : boolean;
qui retourne true si la SDate valide et renvoi dans CDate la valeur en type TDate sinon false .

J'ai déjà essaye la fonction StrTodate(SDate) mais je ne sais pas comment savoir si la date est valide ou pas.

Merci

[Lung]

Et comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
try
   StrToDate(UneDate);
except
   ShowMessage('Ca n''a pas marché !!');
end;

[Andry]

merci Ling
Mais ce Except ne marchera qu'en dehors de Delphi.
Ou bien je me trompe.
Merci encore

[Lung]

Bin, pourquoi ?

[Andry]

car chaque fois que je met
try

except

end;

il n'execute pas le code dans Except si on lance depuis Delphi, il te sors une boite de dialogue : ErrorConvert, un truc comme ça. Par contre l'except marce très bien si on lance l'appli via Explorateur.

Ah je crois que j'ai trouvé, il faut enlever les traitement des exceptions par delphi dans menu débogage je crois.

Merci encore

[Lung]

Certes, Delphi déclanche son propre message, mais si tu continue l'exécution de l'application (F9), ton message s'affichera et l'application poursuivra son exécution ...