Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Le mieux pour expliquer mon soucis, c'est de montrer mon code à l'heure actuelle (qui fonctionne).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure TForm1.SaveDonnees;
Begin
  Try
    ........
   ..........
     If not aLigne.TestCoherenceDonneesLigne then
            StrToInt('A'); // declenchement volontaire d'une Exception
   ......
   ......
  Except
      ReInitialiser();
      MessageDlg('Fichier corrompu. L'enregistrement a échoué.',mtError,[mbOk],-1);
  End;
End;

En gros je voudrais qu'en plus des exceptions standards qui pourrait survenir, s'ajouter mes tests personnels (ici TestCoherenceDonneesLigne ) et obtenir le même comportement (réinitialiser(),...)
Pour l'instant je provoque une exception pour aller directement aux lignes de code que je souhaite, mais ça m'a l'air de ne pas franchement être propre...Tout comme l'utilisation du goto ne me parait pas être une bonne idée.

Existe-t-il un moyen de faire ça "professionnellement"?

Merci, A+.

[ShaiLeTroll]

Code :

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

1
2
If not aLigne.TestCoherenceDonneesLigne then
  raise ECoherenceDonneesLigne.Create();

Code :

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

1
2
type
  ECoherenceDonneesLigne = class(Exception);

On peut faire comme cela ...

[PadawanDuDelphi]

Merci, c'est exactement ce que je voulais.

A+.

[Eric Boisvert]

il y a aussi les assert()....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
  i, j: integer;
Begin
  i := 0;
  j := 0;
  Try
    i := i + 1;
    assert(i = j); //== ATTENTION, Il y a une Option du compilateur
                   //== pour inclure ou non les assert
  Except
    MessageDlg('i<>j!', mtError, [mbOk], -1);
  End;

[sjrd]

Les assert n'ont pas le même rôle que les exceptions. Une exception est susceptible de survenir, et peut même parfois être un comportement normal.
Un assert faux, en revanche, est une erreur de programmation : les assert sont là pour vérifier que le code est correct, et ne fait pas de fausse manip'.

C'est pourquoi, en général, pour la release publique, on supprime par option de compilation les assert.