Discussion :

[patrice@]

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

[Ph. B.]

Bonjour,

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

Code :

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

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 :

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
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;
//...

[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

[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