Relancer l'instruction ayant générée une exception

Version imprimable

05/07/2015, 15h24
patrice@

Relancer l'instruction ayant générée une exception

Bonjour à tous,
Je souhaite reboucler sur l'instruction ayant généré une exception

try
result := a div b;
except
>>> COMMENT REVENIR SUR L'INSTRUCTION AYANT GENEREE L'ERREUR POUR RECOMMENCER ?
end;

Merci à tous de votre aide

Bonjour,

Citation:

Envoyé par patrice@

Je souhaite reboucler sur l'instruction ayant généré une exception

Code:

1
2
3
4
5
   try
      result := a div b;
   except
      >>> COMMENT REVENIR SUR L'INSTRUCTION AYANT GENEREE L'ERREUR POUR RECOMMENCER ?
   end;

Ne pas oublier la balise [ CODE ] ... [ / CODE] pour plus de clarté... ;)

On pourrait écrire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  b_corrige: String;
  Ok: Boolean;
//...
 
  repeat
    try
      Ok := True;
      Result := a div b;
    except
       //>>> COMMENT REVENIR SUR L'INSTRUCTION AYANT GENEREE L'ERREUR POUR RECOMMENCER ?
       On E:EDivByZero do
       begin
         Ok := False;
         InputQuery(e.Message, 'Saisissez une valeur non nulle :', b_corrige);
         b := StrToIntDef(b_corrige, 0);
       end;
    end;
  until Ok;
//...

05/07/2015, 17h12
patrice@

Ok Philippe, après une première publication de ma réponse, j'ai relu le code et OK, tout simple, rajouter un marqueur ...
Bon j'essaye dans ma vrai appli, et je reviens pour marquer résolu ou poser un complément de question
05/07/2015, 17h59
patrice@

Bon voilà, tout bête, un drapeau et une boucle!
Merci Philippe pour la rapidité et la justesse de la réponse
C'est résolu pour moi