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 :

Fonction Exit (<code d'erreur>)


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    frTRYER
    Inscrit en
    Avril 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : frTRYER

    Informations forums :
    Inscription : Avril 2006
    Messages : 52
    Par défaut Fonction Exit (<code d'erreur>)
    Slt,
    existe t il l'équivalent en pascal de la fonction Exit(<code d'erreur>) qui permet de sortir d'une fonction en indiquant un code d'erreur ?
    Sinon peut on l'implémenter facilement ?

    Merci

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 236
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    try
      // générère une exception avec un message personnalisé
      raise.Exception.Create('Mon message');
    finally
      exit;
    end;
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  3. #3
    Membre émérite Avatar de slimjoe
    Homme Profil pro
    Inscrit en
    Juin 2005
    Messages
    647
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Canada

    Informations forums :
    Inscription : Juin 2005
    Messages : 647
    Par défaut
    Citation Envoyé par Malatar
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    try
      // générère une exception avec un message personnalisé
      raise.Exception.Create('Mon message');
    finally
      exit;
    end;
    raise ne va-t-il pas lui même faire en sorte de sortir de la méthode ? En d'autres mots le exit est-il superflu ?

  4. #4
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 236
    Par défaut
    Citation Envoyé par slimjoe
    raise ne va-t-il pas lui même faire en sorte de sortir de la méthode ? En d'autres mots le exit est-il superflu ?
    Je n'utilises pas souvent cette méthode donc je ne pourrais pas te répondre.
    Mais bon, ca depend où il veut intercepter l'erreur : à l'interrieur de la fonction ou à l'extérieur ?
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  5. #5
    Membre averti
    Profil pro
    frTRYER
    Inscrit en
    Avril 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : frTRYER

    Informations forums :
    Inscription : Avril 2006
    Messages : 52
    Par défaut
    oui bien sur on peut utiliser les exception pour y parvenir mais je trouve ça un peu "lourd" pour faire qqchose de finalement trés simple.
    N'y aurait il pas une autre solution ? (un peut comme la Halt mais au niveau des fonctions)

    merci

  6. #6
    Membre émérite Avatar de slimjoe
    Homme Profil pro
    Inscrit en
    Juin 2005
    Messages
    647
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Canada

    Informations forums :
    Inscription : Juin 2005
    Messages : 647
    Par défaut
    Citation Envoyé par franckgar
    oui bien sur on peut utiliser les exception pour y parvenir mais je trouve ça un peu "lourd" pour faire qqchose de finalement trés simple.
    N'y aurait il pas une autre solution ? (un peut comme la Halt mais au niveau des fonctions)

    merci
    En quoi est-ce que raise est lourd ?

  7. #7
    Membre averti
    Profil pro
    frTRYER
    Inscrit en
    Avril 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : frTRYER

    Informations forums :
    Inscription : Avril 2006
    Messages : 52
    Par défaut
    et bien au lieu d'écrire ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    try
       if <Erreur> then raise MonException.Create(<code d'erreur>);
    except
    On E: MonException do Result := MonException.<code d'erreur>;
    end;
    je voudrais écrire ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       if <Erreur> then Exit(<code d'erreur>);
    ce qui me parrait plus simple d'écriture (.... mais on est d'accord ça fait la même chose).

  8. #8
    Membre émérite Avatar de slimjoe
    Homme Profil pro
    Inscrit en
    Juin 2005
    Messages
    647
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Canada

    Informations forums :
    Inscription : Juin 2005
    Messages : 647
    Par défaut
    Citation Envoyé par franckgar
    et bien au lieu d'écrire ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    try
       if <Erreur> then raise MonException.Create(<code d'erreur>);
    except
    On E: MonException do Result := MonException.<code d'erreur>;
    end;
    je voudrais écrire ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       if <Erreur> then Exit(<code d'erreur>);
    ce qui me parrait plus simple d'écriture (.... mais on est d'accord ça fait la même chose).
    Ok je comprends mieux... toutes tes méthodes sont des fonctions et toutes ces fonctions retournent des entiers c'est ça ?

    En gros, tu voudrais que Result := 123 te sorte de la fonction c'est ça ? Un peu comme le return de d'autres langages ?

    Et ça est-ce que ça t'irais ce code ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    procedure Exit(out Result: integer; const Code: integer);
    begin
      Result := Code;
      Abort;
    end;
    Pour l'appeller :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    function MaFonction: integer;
    begin
      if <erreur> then Exit(Result, 123);
    end;
    J'ai rien testé tout est improvisé alors il est possible que ça plante .

    [EDIT]
    Bon je viens de tester et Abort semble être une mauvaise idée....

  9. #9
    Membre émérite

    Profil pro
    Inscrit en
    Mai 2003
    Messages
    582
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Mai 2003
    Messages : 582
    Par défaut
    Citation Envoyé par franckgar
    je voudrais écrire ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       if <Erreur> then Exit(<code d'erreur>);
    et pourquoi pas ca:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    if <Erreur> then begin result:=<Code erreur>;Exit; End;
    C'est pas Exit(code) mais bon, c'est toujours moin pire que try-raise-except?
    Comment dupliquer un disque...ça vous intéresse?
    Tutoriel et code source delphi ici

  10. #10
    Membre émérite Avatar de slimjoe
    Homme Profil pro
    Inscrit en
    Juin 2005
    Messages
    647
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Canada

    Informations forums :
    Inscription : Juin 2005
    Messages : 647
    Par défaut
    Peut-être est-ce que tu pourrais t'inspirer de Abort qui soulève une exception silencieuse. J'imagine une classe dérivée de EAbort qui conserverait un numéro d'erreur et une fonction Abort(Code: integer) qui la soulèverait.

Discussions similaires

  1. [Code::Blocks] Erreur fonction résultat
    Par Lastshadow dans le forum Code::Blocks
    Réponses: 1
    Dernier message: 24/01/2012, 21h31
  2. [PHP 5.2] Fonction pour recuperer code erreur d'une URL (404, 500, etc.)
    Par KingSora dans le forum Langage
    Réponses: 1
    Dernier message: 08/01/2010, 00h50
  3. [pop3] fonction pour recupérer le code d'erreur d'un "delivery status" en php ?
    Par barxool2 dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 12/06/2007, 14h38
  4. [Oracle][ADO_QRY] Récupérer le code d'erreur
    Par Cryonie dans le forum Bases de données
    Réponses: 4
    Dernier message: 04/06/2004, 13h18
  5. fonction redonnant le code ascii d'un entier ???
    Par abignon dans le forum MFC
    Réponses: 4
    Dernier message: 29/01/2004, 12h32

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