IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

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


Sujet :

Delphi

  1. #1
    Membre régulier

    Homme Profil pro
    Direction financière et formateur en gestion et contrôle de gestion
    Inscrit en
    Mai 2003
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Direction financière et formateur en gestion et contrôle de gestion
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2003
    Messages : 184
    Points : 119
    Points
    119
    Par défaut 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
    Delphi 10.4.1 - Lazarus
    Utilisation de la VCL

  2. #2
    Expert confirmé
    Avatar de Ph. B.
    Homme Profil pro
    Freelance
    Inscrit en
    Avril 2002
    Messages
    1 784
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2002
    Messages : 1 784
    Points : 5 915
    Points
    5 915
    Par défaut
    Bonjour,
    Citation Envoyé par patrice@ Voir le message
    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;
    //...
    Philippe.

  3. #3
    Membre régulier

    Homme Profil pro
    Direction financière et formateur en gestion et contrôle de gestion
    Inscrit en
    Mai 2003
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Direction financière et formateur en gestion et contrôle de gestion
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2003
    Messages : 184
    Points : 119
    Points
    119
    Par défaut
    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

  4. #4
    Membre régulier

    Homme Profil pro
    Direction financière et formateur en gestion et contrôle de gestion
    Inscrit en
    Mai 2003
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Direction financière et formateur en gestion et contrôle de gestion
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2003
    Messages : 184
    Points : 119
    Points
    119
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. HQL génère une Exception
    Par nader1987 dans le forum Développement Web en Java
    Réponses: 1
    Dernier message: 31/05/2012, 18h44
  2. Accès au bundle génère une exception
    Par *alexandre* dans le forum JSF
    Réponses: 2
    Dernier message: 02/06/2009, 16h58
  3. DropDownList1.SelectedItem.Text génère une exception
    Par insane_80 dans le forum ASP.NET
    Réponses: 7
    Dernier message: 30/04/2009, 18h58
  4. Réponses: 6
    Dernier message: 03/07/2008, 16h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo