Créer une exception

Bonjour à tous,

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

Code:

---

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+.

Code:

---

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

---

Code:

---

1 2	type ECoherenceDonneesLigne = class(Exception);

---

On peut faire comme cela ...

Merci, c'est exactement ce que je voulais.

A+.

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

Code:

---

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;

---

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.