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 :

Absence d'erreur déroutante avec StrToFloat


Sujet :

Delphi

  1. #1
    Membre à l'essai
    Étudiant
    Inscrit en
    Janvier 2010
    Messages
    26
    Détails du profil
    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2010
    Messages : 26
    Points : 12
    Points
    12
    Par défaut Absence d'erreur déroutante avec StrToFloat
    Je sais, ça doit paraître bizarre de voir quelqu'un se plaindre du fait qu'il n'a pas d'erreur, mais pour le coup j'avoue ne pas vraiment comprendre.

    J'ai une Form avec deux EditBox appelées expa et expb
    L'utilisateur doit rentrer dans ces Box les valeurs de a et b qui sont les coefficients de l'equation suivante: a*exp(bx).

    Lorsqu'il valide sa saisie, j'affiche l'expression de la fonction dans un label.
    Voici le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    begin
                    expP.Hide;
                    if ((expa.Text='') or(StrToFloat(expa.Text)=0)) then
                       functionL.Caption:='Y(X)=0'
                    else
                       begin
                          if ((expb.Text='') or (StrToFloat(expb.Text)=0)) then
                             functionL.Caption:='Y(X)= '+ expa.Text
                          else
                             functionL.Caption:='Y(X)= '+ expa.Text+ ' exp( '+expb.Text+' X)';
                       end;
                    end;
    Le problème, c'est que d'habitude j'ai une erreur quand je fais StrToFloat sur une string vide (' ' is not a valid float number), or là je n'ai pas cette erreur, et je me demande pourquoi c'est le cas?
    Est-ce qu'il saute automatiquement le second test boolean quand le premier est vrai ?

  2. #2
    Membre éprouvé
    Avatar de Dr.Who
    Inscrit en
    Septembre 2009
    Messages
    980
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Septembre 2009
    Messages : 980
    Points : 1 294
    Points
    1 294
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    var Res, exA, exB: extended;
    begin
      expP.Hide; // <-- ?
     
      if TryStrToFloat(expA.Text, exA) and TryStrToFloat(expB.Text, exB) then
        functionL.Caption := 'Y(x)= '+expA.Text+' exp('+expB.Text+' x)';
      else
        functionL.Caption := 'Y(x) = A exp(B x)';
    end;
    [ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
    Ma messagerie n'est pas la succursale du forum... merci!

  3. #3
    Membre à l'essai
    Étudiant
    Inscrit en
    Janvier 2010
    Messages
    26
    Détails du profil
    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2010
    Messages : 26
    Points : 12
    Points
    12
    Par défaut
    ??? J'avoue ne pas comprendre... ça n'explique pas pourquoi mon code marche


    NB: Le expP.Hide est là parce que je cache un panneau pour en afficher un autre...

  4. #4
    Membre chevronné
    Avatar de Archimède
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2005
    Messages
    1 644
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Avril 2005
    Messages : 1 644
    Points : 1 975
    Points
    1 975
    Par défaut
    quand tu es dans une condition, tu testes un boolean-->vrai faux
    en revanche, quand tu fais
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    x:=strtofloat(monstring)
    , tu affectes x par la fonction strtofloat ; ce n'est pas la même chose.

    @+

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    392
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 392
    Points : 635
    Points
    635
    Par défaut
    tu a donné toi même la réponse, comme le premier test est vrai le second n'a pas besoin d'être évalué, si tu remplaces le or par un and tu vas avoir ton erreur.

  6. #6
    Membre à l'essai
    Étudiant
    Inscrit en
    Janvier 2010
    Messages
    26
    Détails du profil
    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2010
    Messages : 26
    Points : 12
    Points
    12
    Par défaut
    Merci

    Je n'avais jamais réalisé ce petit détail bien utile quand même...

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

Discussions similaires

  1. debutant: erreur LNK2001 avec la librairie GSL
    Par drill3 dans le forum MFC
    Réponses: 6
    Dernier message: 25/04/2005, 13h58
  2. erreurs opengl avec devcpp
    Par Vermin dans le forum OpenGL
    Réponses: 2
    Dernier message: 13/04/2004, 14h50
  3. Erreur EACCESSVIOLATION avec des compsts créés dynamiquement
    Par tsikpemoise dans le forum Bases de données
    Réponses: 4
    Dernier message: 28/02/2004, 19h05
  4. Erreur fréquente avec ASP et IIS
    Par Community Management dans le forum ASP
    Réponses: 2
    Dernier message: 11/02/2004, 22h20
  5. Erreurs IIS avec Multiples Frames avec xmlrad
    Par powerlog dans le forum XMLRAD
    Réponses: 4
    Dernier message: 01/07/2003, 13h15

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