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 à 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
Delphi 10.4.1 - Lazarus
Utilisation de la VCL
Bonjour,
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; //...
Philippe.
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
Delphi 10.4.1 - Lazarus
Utilisation de la VCL
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
Delphi 10.4.1 - Lazarus
Utilisation de la VCL
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager