Discussion :

[OutOfRange]

Bonsoir

Pour gérer une exception, on a 2 solutions
Avec try..finally, les instructions du second bloc d'instruction sont toujours exécutées.
Avec try..except, les instructions du second bloc d'instruction ne sont exécutées que s'il y a eu une exception dans le bloc protégé. Le couple try..except propose en plus de traiter l'exception en fonction de sa classe.

Mon pb, c'est que si je choisis la 1ère solution, par sécurité, par exemple pour être sûr de libérer un objet créé dans le 1er bloc d'instructions, je ne peux pas traiter l'exception à ma guise en fonction de sa classe
En plus, on a droit à un immonde message d'erreur incompréhensible pour le prophane : par ex '§ n'est pas une valeur entière correcte'

Est-il possible de combiner les 2 méthodes, c'est à dire à la fois gérer l'exception avec un

Code :

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

on EConvertError do

et s'assurer qu'un bloc d'instruction sera toujours exécuté ?

[archonte]

Si je traduis bien ta question, tu souhaites faire un

Code :

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

1
2
3
4
5
6
7
8
// code non valide !!
Try
...
Except
...
Finally
...
End;

tu peux essayer d'enchainer 2 blocs l'un dans l'autre :

Code :

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

1
2
3
4
5
6
7
8
9
Try
  Try
  ...
  Except
  ...
  End;
Finally
...
End;

[Andnotor]

Pour gérer une exception, il n'y a qu'une possibilité, try..except .

Try..finally n'est pas lié aux exceptions mais permet d'executer du code quel que soit le mode de sortie du bloc. ça peut bien sûr être dû à une exception, mais aussi à un Exit, Break, etc.

Code :

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

1
2
3
4
5
6
7
8
9
begin
  try
    Exit;
  finally
    ShowMessage('Je suis exécuté malgré l''Exit');
  end; //<-- Exit effectif ici
 
  ShowMessage('Je ne suis jamais exécuté');
end;

[OutOfRange]

Pour gérer une exception, il n'y a qu'une possibilité, try..except .

Try..finally n'est pas lié aux exceptions mais permet d'executer du code quel que soit le mode de sortie du bloc. ça peut bien sûr être dû à une exception, mais aussi à un Exit, Break, etc.

Très juste
La rectification est importante, je m'étais mal exprimé

tu peux essayer d'enchainer 2 blocs l'un dans l'autre

Simple et efficace

Je me demande quand même comment font les pros

Merci pour votre aide

[Gilbert Geyer]

Bonjour,

Variante réalisant la combinaison :

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
label Achever;
begin
             Try
                 ...
                 GoTo Achever;
             Except
                 on EMonErreur do 
                 begin ShowMessage('Exception'); 
                       GoTo Achever; 
                 end;
             end;
 
           Achever:
                instructions pour achever finalement
                ShowMessage('Finally'); 
end;

A+.

[Andnotor]

Le code de Archonte n'est utile que si l'exception est remontée (Raise). Sinon finally ne sert à rien puisque l'exception a déjà été gérée .

Sinon, on fera l'inverse. protection du code avant gestion de l'exception.

Code :

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

1
2
3
4
5
6
try
  try
  finally
  end;
except
end;

Gilbert, je ne vois pas bien l'utilité de ton label goto .

[Paul TOTH]

Le code de Archonte n'est utile que si l'exception est remontée (Raise). Sinon finally ne sert à rien puisque l'exception a déjà été gérée .

Sinon, on fera l'inverse. protection du code avant gestion de l'exception.

Code :

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

1
2
3
4
5
6
try
  try
  finally
  end;
except
end;

les deux mon capitaine tout dépend de ce que tu veux traper

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 traitement;
begin
  obj := TObject.Create;
  try
    try
      obj.Proc;
    except
      ShowMessage('erreur dans obj.Proc');
    end;
  finally
   obj.Free;
  end;
end;

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 traitement;
begin
  try
    obj : = TObject.Create;
    try
      obj.Proc;
    finally
      obj.Free;
    end;
  except
    ShowMessage('erreur dans le traitement');
  end;
end;

Code :

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

1
2
Gilbert, je ne vois pas bien l'utilité de ton label goto :koi:.

ça sert à faire du code pas beau

[Andnotor]

Bien sûr Paul .

Mais en l'état, ton premier exemple égale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure traitement;
begin
  obj := TObject.Create;
 
  try
    obj.Proc;
  except
    ShowMessage('erreur dans obj.Proc');
  end;
 
  obj.Free;
end;

[Paul TOTH]

Bien sûr Paul .

Mais en l'état, ton premier exemple égale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure traitement;
begin
  obj := TObject.Create;
 
  try
    obj.Proc;
  except
    ShowMessage('erreur dans obj.Proc');
  end;
 
  obj.Free;
end;

là oui, en effet, mais je préfère ajouter un TRY/FINALLY pour le jour ou le code entre les deux pourrait provoquer une exception non monitorée ou un bête Exit

[Gilbert Geyer]

Re-salut,

label :

ça sert à faire du code pas beau

bigre! Vous n'allez quand même pas me dire que ça existe un code "beau".

A+.

[mick605]

Re-salut,

label :
bigre! Vous n'allez quand même pas me dire que ça existe un code "beau".

A+.

Ah si, un code peut etre beau ou pas ... Ya des trucs qui rendent un code beau ou pas. Les labels goto c'est pas beau ... les Exits ou Abort c'est pas beau ... Enfin c'est mon point de vue

[Gilbert Geyer]

Bonjour,

A Mick605 : En fait s'il fallait définir ce qu'est un code "beau" je dirais qu'il s'agit d'un code qui en en très peu de lignes réalise ce qu'un autre réalise sous forme d'une usine à gaz.

A+.

[mick605]

Bonjour,

A Mick605 : En fait s'il fallait définir ce qu'est un code "beau" je dirais qu'il s'agit d'un code qui en en très peu de lignes réalise ce qu'un autre réalise sous forme d'une usine à gaz.

A+.

Ouais je suis assez d'accord ... mais il y a quand meme des trucs qui rendent le code moins beau et moins facile a comprendre. En plus, avec les labels, on rend le code plus long

Enfin, c'est mon point de vue !