Utilisation Correcte de l'exception TRY

**damene** · 13/05/2008, 18h08

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?

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.

Merci

**qi130** · 13/05/2008, 18h17

C'est quand tu exécutes ton prog depuis l'IDE ?

**damene** · 13/05/2008, 19h03

Envoyé par qi130

C'est quand tu exécutes ton prog depuis l'IDE ?

Effectivement le programme se compile correctement.
Le test avec le boutton:'Button1' se fait correctement.

C'est lorsque je clicke sur le boutton :'Button2' que je déclenche la classe d'exception EconvertError et cela lorsque je saisis une date incorrecte bien sur.
Merci

**Aka Guymelef** · 13/05/2008, 22h01

Il n'y a pas d'erreur, c'est justement le comportement normal, si la chaîne passée à StrToDate n'est pas correcte comme date, une exception est générée, à la différence TryStrToDate qui est plus gentil est renvoi seulement False quand la date est invalide.

D'ailleurs je penses que ShaiLeTroll avait dit que StrToDate appelait TryStrToDate.

**damene** · 13/05/2008, 22h30

Envoyé par Guymelef

Il n'y a pas d'erreur, c'est justement le comportement normal, si la chaîne passée à StrToDate n'est pas correcte comme date, une exception est générée, à la différence TryStrToDate qui est plus gentil est renvoi seulement False quand la date est invalide

Je suis perdu.

L'intérêt de Try est justement de ne pas générer de sortie de l'application.

Moi je pensais que Try-Except attirée l'attention sur la non validité de la date, et n'exécutait pas le second bloc dixit help Delphi. ce qui permettait par exemple d'annuler la saisie (réinitialisation de Edit1.Text), mais on reste dans l'Application.

Mais si bien qu'utilisant Try-Except l'application est arrêtée, autant ne rien utiliser.

**Frank** · 13/05/2008, 22h37

Compiles ton code, puis lances l'executable de ton programme sans passer par Delphi.

Je pense que l'erreur ne se produira pas.

**Teo** · 14/05/2008, 00h49

Slt

Dans l'editeur désactiver l'option "arreter si exception"

**SergioMaster** · 14/05/2008, 07h54

+1 @Teo

Dans l'editeur désactiver l'option "arreter si exception"

**qi130** · 14/05/2008, 10h15

Un peu expéditif, mais ça marche !

Je crois me souvenir qu'on peut aussi choisir les classes d'exception à ignorer...(?)

**damene** · 14/05/2008, 13h41

Envoyé par Frank

"Compiles ton code, puis lances l'executable de ton programme sans passer par Delphi.

ça marche Merci. ça me rassure dans mes capacités à poursuivre avec Delphi (Je vous rappelle je suis autodidacte).

Merci aussi à SergioMaster,Téo et qi130.

Comment désactiver l'option "arreter si exception" ? Je suis allé à Outils/Option de l'Editeur et je n'ai pas pu trouver cette option.

Merci

**dd_garion** · 14/05/2008, 13h47

Ce n'est pas dans outil/option de l'éditeur mais dans outil/option du debuggeur (le menu du dessous)

**Aka Guymelef** · 14/05/2008, 14h16

En fait pour bien comprendre ce qu'il se passe, effectivement positionné un bloc try...except va permettre de capturer une exception si elle se déclenche et l'empêcher de remonter (sauf si vous faites un raise dans le bloc du except).

Cependant si vous exécutez votre application en mode débuggage, si une exception se déclenche l'EDI prend la main et arrête l'exécution vous ramenant au point où c'est déclenché l'exception mais avant que le bloc except ne soit exécuté. Donc si vous faites F9 à ce moment là pour sauter cette exécution vous pouvez vous rendre compte qu'il n'y a pas de boîte de dialogue avertissant d'une exception.
Et en mode exécution sans débuggage, c'est complètement transparent, l'exception est bien attrapée et l'utilisateur ne voit rien.

Pour changer le comportement de l'EDI vis à vis des exceptions il faut effectivement soit désactiver la fonctionnalité soit rajouter la classe d'exception parmi celles à ignorer par le debugger.

**damene** · 14/05/2008, 14h44

Citation dd garion :

Ce n'est pas dans outil/option de l'éditeur mais dans outil/option du debuggeur (le menu du dessous)

Je n'arrive pas à trouver dans outil/option du debuggeur l'option "arrêter si exception". Peux-tu me le préciser STP.

**ShaiLeTroll** · 14/05/2008, 19h40

case à cocher "Arrêter sur exceptions Delphi" dans l'onglet "Exception du Langage"

sinon, tu fais F1, onglet "Rechercher", tu mets dans le champ "1 Entrer les mots que vous voulez rechercher" le texte "Arrêter sur exceptions Delphi", tu as ce moment, une seule et unique rubrique "Page Exceptions du langage", et tu lis la page ...

Je décoche cette option 90% du temps, surtout qu'il est vrai que l'on s'arrête souvent sur les problèmes de conversion de date, et puis selon sa façon de programmer, soit en utilisant des erreurs via retour de fonction, soit en utilisant l'exception comme gestionnaire d'erreur, et bien, on se retrouve à avoir des messages en permance, j'active cette option, pour ma part quand j'ai une difficulté à débugger un programme (le EAccessViolation ou le EConvertError font parti de mes exclusions habituels ...)

D'ailleurs, il est bien qu'il y ait de plus en plus les Versions des fonction en TryStrToXXX ... c'est souvent utile ... mais du coup lorsque l'on revient sur un Delphi antérieur (lol j'ai du code qui peut tourner sur D3, et puis je suis à 80% sur D7 et 20% sur D6 au bureau), c'est fonction "Try..." manque

**damene** · 14/05/2008, 20h40

Envoyé par ShaiLeTroll

case à cocher "Arrêter sur exceptions Delphi" dans l'onglet "C"

sinon, tu fais F1, onglet "Rechercher", tu mets dans le champ "1 Entrer les mots que vous voulez rechercher" le texte "Arrêter sur exceptions Delphi", tu as ce moment, une seule et unique rubrique "Page Exceptions du langage", et tu lis la page ...

Pas de chance. Ni l'une ni l'autre ne marchent.

Je travaile avec Delphi 7 sous Windows XP.

La première méthode : Outils/Option débogueur/Arrêter sur exceptions Delphi, je n'ai pas de case à cocher "Arrêter sur exceptions Delphi" .

Avec la deuxième méthode F1/Rechercher, " le texte "Arrêter sur exceptions Delphi", donne "aucune rubrique trouvée".

**Aka Guymelef** · 14/05/2008, 21h12

Avec Delphi 7 cette option se trouve normalement dans Outils->Options du débogueur puis dans l'onglet "Exceptions du langage" ici se trouve les classes d'exceptions ignorées ainsi que la case à cocher "Arrêter sur exceptions Delphi".

**damene** · 14/05/2008, 22h05

Envoyé par Aka Guymelef

Avec Delphi 7 cette option se trouve normalement dans Outils->Options du débogueur puis dans l'onglet "Exceptions du langage" ici se trouve les classes d'exceptions ignorées ainsi que la case à cocher "Arrêter sur exceptions Delphi".

Comme je le disais précédemment les cases à cocher dans Outils->Options du débogueur->Exceptions du langage ne comporte pas "Arrêter sur exceptions Delphi".

Les seules cases existantes sont :
"Exceptions EAbort de la VCL"
"Exceptions EIDconnClosedGraceFully Indi"
"Exceptions DAO Microsoft"
"Exceptions Internes VisiBroker"
"Exceptions Système CORBA"
"Exceptions Utilisateur CORBA"

**ShaiLeTroll** · 15/05/2008, 11h10

Baisse les yeux, en dessous la TCheckListBox ... et oh, tu verras la case, ...

Ah, j'ai D7 Pro, et ce que je t'ai dit pour l'aide fonctionne parfaitement, enlève tes moufles ...

**dd_garion** · 15/05/2008, 11h20

Pour info, cette case à cocher existe déjà sous Delphi 6 (et probablement les version précédentes).

Damene, tu devrais essayer de te trouver un bon livre ou un tutorial sur Delphi, je pense que cela t'aidera sincèrement à comprendre cette IDE.

**damene** · 15/05/2008, 12h00

Envoyé par ShaiLeTroll

Baisse les yeux, en dessous la TCheckListBox ... et oh, tu verras la case, ...

Ah, j'ai D7 Pro, et ce que je t'ai dit pour l'aide fonctionne parfaitement, enlève tes moufles ...

Exact

Ils ont des yeux et ils ne voient pas

disait Jésus

Merci à tous

Utilisation Correcte de l'exception TRY

Delphi

Discussions similaires

Partager

Partager