Salut.
En suivant la discussion sur le test sur une date, j'ai utilisé les deux méthodes de test la première par l'utilisation de TryStrToDate et en gérant classiquement l'exeption Try telles que proposé par ShaileTroll et SergioMaster.
J'arrive à utilser TryStrToDate, mais lorsque j'utilise la méthode classique, je déclence une classe d'exception EconvertError, je n'arrive pas à déterminer mon erreur.
Voilà le code que j'utilise où se situe mon erreur s'il vous plait?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ADate : TDateTime; begin if not TryStrToDate(Edit1.Text, ADate) then begin Showmessage('date invalide'); end else begin Showmessage('date valide'); end; end; procedure TForm1.Button2Click(Sender: TObject); var ADate : TDateTime; begin Try ADate:=StrToDate(Edit1.Text); except // Showmessage('date invalide'); end; end; end.
Partager