Discussion :

[looping]

Bonjour,

Besoin de conseil sur le code suivant:

Si la condition est vrai est que le "raise Exception.Create" est activé, ou va ensuite le pointeur de programme ?
Après le "end" du finally ?

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
 
try //finally
 
try //except
 
if condition=true then raise Exception.Create('Erreur xxxx');
 
except
 
 on EvariantTypecastError do
    begin
    if ibtransaction1.InTransaction=true then IBTransaction1.Rollback;
    showmessage('Erreur convertion de données ligne');
    end;
 
 on E: Exception do
    begin
    if ibtransaction1.InTransaction=true then IBTransaction1.Rollback;
    showmessage(E.ClassName + ': '+ E.Message);
    end;
 
   else
   begin
   if ibtransaction1.InTransaction=true then IBTransaction1.Rollback;
   end;
 
end;   //fin except
 
finally
 
end; //fin finally

cordialement

[Papy214]

Le raise va envoyer dans le except, passer le code, puis aller dans le finally

[looping]

Merci pour l'info,

Donc si j'ai bien compris , la partie "else" qui suit ne sera pas exécutée ?

Code :

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

1
2
3
4
5
 
else
   begin
   if ibtransaction1.InTransaction=true then IBTransaction1.Rollback;
   end;

A+

[Paul TOTH]

il compile ton code ?! à quoi se rapporte le ELSE ?

[Papy214]

si c'est EvariantTypecastError qui est déclenchée, le code ne passe pas dans dans le type générique Exception !

si c'est une exception générique, on passe dans le "on E: Exception do"

Si vraiment t'as pas de bol, tu passeras dans le "else" mais c'est une situation qui n'arrive jamais.
A ce point là, amha, le programme est pas loin d'exploser en vol !

[Papy214]

il compile ton code ?! à quoi se rapporte le ELSE ?

J'ai eu le même reflexe que toi .
Mais oui, ça compile

D'ailleurs, bizarrement:

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
 
  try
  except
 
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
 
    else
    begin
      ShowMessage('au secours');
    end;
 
  end;

Delphi accepte qu'on mette (ou pas) un ; avant le else

[tourlourou]

Tiens, je viens d'apprendre ici qu'on pouvait mettre une clause else dans des blocs on Exception.

Le else ne servira ici à rien puisque une exception est toujours une exception et traitée dans le on E: Exception !