Discussion :

[zano972]

Bonjour tout le monde,

Ben oui à défaut de pouvoir se chauffer les miches au soleil, je fais chauffer les 2 neurones qui me restent ... Et j'ai une question qui me turlupine depuis un petit moment à vous soumettre:

Ca concerne la structure de gestion des exceptions et plus particulièrement le fameux bloc:

TRY
...
FINALLY
...
END;

Bon comme tout le monde, j'ai lu un peu partout que cette structure assure dans tous les cas l'exécution des instructions comprises entre le FINALLY et le END, erreur ou pas erreur...

OK mais j'ai un sérieux doute dans le cas d'un bout de code qui ressemblerait à celui ci par exemple:

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
 
procedure Tartempion(const FileName: string; const: NombreX: DWord);
var 
  RAMStream : TMEmoryStream;
  zahler : dword;
begin
  RAMStream :=  TMEmoryStream.Create;
  RAMStream.LoadFromFile(FileName);
  try
  for zahler := 0 to NombreX do
     begin
        Intruction N... ;
        procedure X;
       if not ValueX or evenement Z then exit;
     end;
  finally
     RAMStream.Free;
end;

A cause de l'instruction Exit placé dans la boucle - et qui donc force une sortie immédiate de la procédure dans le cas où le test if réussit -, j'ai vraiment un super gros doute que les instructions placées dans le finally end; soient exécutées... puisque cet exit équivaut à un GOTO (qui n'en a pas le nom)

Quelqu'un parmi vous pourrait-il éclairer ma lanterne à ce sujet ? Merci d'avance et A+++

[tourlourou]

Il suffit de faire un code test qui reproduise la séquence et permette de valider le passage dans le 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
procedure TestFinally(aSortie: Boolean);
var
  i: integer;
begin
  try
    for i:=1 to 100
    do begin
      if (i>200) or aSortie
      then Exit;
    end;
  finally
    ShowMessage('J''y passe !');
  end;
end;

[Andnotor]

Penser que Try..Finally est un gestionnaire d'exception est la première erreur. A ne pas confondre avec Try..Except
C'est un bloc de code exécuté quelque soit le mode de sortie : exception, exit, break. Il est inconditionnel.

Exit n'est pas un Goto (saut à une adresse). Exit demande d'ignorer le code suivant jusqu'à la sortie de la procédure, mais il ne déroge pas au contrôle de flux imposé par un bloc Finally.
Avec Goto, il n'est d'ailleurs pas possible d'entrer ou de sortir d'un bloc Try.

Il y a une erreur dans ton code :

Code :

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

1
2
3
4
5
6
7
RAMStream := TMemoryStream.Create;
RAMStream.LoadFromFile(FileName);
try
  ...
finally
   RAMStream.Free;
end;

Rien ne dit en effet que le fichier existe ou qu'il n'est pas verrouillé (exclusif) et que LoadFromFile ne pourrait pas échoué. Cet appel devrait être dans le Try sous peine de ne pas libérer RamStream :

Code :

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

1
2
3
4
5
6
7
RAMStream := TMemoryStream.Create;
try
  RAMStream.LoadFromFile(FileName);
  ...
finally
   RAMStream.Free;
end;

on crée l'objet et on "blinde" tout appel.

[e-ric]

Ben oui à défaut de pouvoir se chauffer les miches au soleil, je fais chauffer les 2 neurones qui me restent ... Et j'ai une question qui me turlupine depuis un petit moment à vous soumettre:

Ca commence bien, avec 2 neurones, on va pas aller loin

Penser que Try..Finally est un gestionnaire d'exception est la première erreur. A ne pas confondre avec Try..Except

eh oui... on parle de bloc de protection de ressource.

Pour ta question, c'est expliqué dans la documentation standard.

@+

[zano972]

Re,

Un grand merci à vous trois pour les précisions concernant l'utilisation de cette structure... Réponses et explications plus que pertinentes. Je vais donc mettre de suite vos suggestions en oeuvre.

(je viens de gagner un neurone de plus... Nom de dieu ça va barder...

Bonne continuation et A+++

Affaire classée.

[peter27x]

Enfin un sujet que j'ai compris de A à Z.
Faut dire, ni P.Toth ni le S.LeTroll ne sont passés par là.

[Paul TOTH]

Enfin un sujet que j'ai compris de A à Z.
Faut dire, ni P.Toth ni le S.LeTroll ne sont passés par là.

quoi ? nos explications ne sont pas limpides ?!

[peter27x]

quoi ? nos explications ne sont pas limpides ?!

Ha si elles le sont, mais faut avoir un bon niveau !