Discussion: Conversion de string en number [Flash Pascal]

  1. #1
    Membre Expert
    Avatar de Archimède
    Homme Profil pro
    Enseignant
    Inscrit en
    avril 2005
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : avril 2005
    Messages : 1 223
    Points : 1 313
    Points
    1 313

    Par défaut Conversion de string en number

    J'ai tenté de déclarer et d'utiliser :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
     function parseFloat(expression:String) : Number external;
    en l'ajoutant à l'unité Flash8 mais elle ne fonctionne pas..

    Comment convertir une string d'un TextField.text en float (number)

    Une fonction du type strtofloat...

    merci

  2. #2
    Expert Confirmé Sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    6 082
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Paris (Île de France)

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

    Informations forums :
    Inscription : novembre 2002
    Messages : 6 082
    Points : 17 851
    Points
    17 851

    Par défaut

    c'est pourtant bien cela...avec le point comme séparateur

    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
     
    program Project2;
     
    {$FRAME_WIDTH 550}
    {$FRAME_HEIGHT 400}
    {$FRAME_RATE 12}
    {$BACKGROUND $FFFFFF}
     
    uses
      Flash8;
     
    function parseFloat(expression: string): Number external;
     
    var
      t: TextField;
    begin
      t := TextField.Create(_root, '', 1, 10, 10, 100, 100);
      t.text := FloatToStr(parseFloat('1.25') + parseFloat('0.10'));
    end.
    et accessoirement tu peux aussi déclarer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    function StrToFloat(expression: string): Number external 'parseFloat';
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Produits : UPnP, RemoteOffice, FlashPascal

  3. #3
    Membre Expert
    Avatar de Archimède
    Homme Profil pro
    Enseignant
    Inscrit en
    avril 2005
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : avril 2005
    Messages : 1 223
    Points : 1 313
    Points
    1 313

    Par défaut

    Merci, en effet, ça ne venait pas de ParseFloat... J'avais un événement onKeyDown et j'ai oublié de metttre Key.addlistener(montextfield)...

    Autant pour moi

    merci encore. sympa la déclaration strtofloat à partir de ParseFloat...

    je retiens.


  4. #4
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Inscrit en
    décembre 2011
    Messages
    1 986
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 986
    Points : 5 710
    Points
    5 710
    Billets dans le blog
    1

    Par défaut

    C'est bon à savoir, tout ça.

    J'ai voulu écrire un petit exemple qui utilise la fonction StrToFloat. J'ai fait un programme qui convertit un nombre décimal en fraction :

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
     
    program Fractions;
     
    {$FRAME_WIDTH 400}
    {$FRAME_HEIGHT 240}
     
    uses
      Flash8;
     
    function StrToFloat(expression: string): Number external 'parseFloat';
     
    type
      tFraction = record
                    n: integer; // numérateur
                    d: integer; // dénominateur
                  end;
     
    const
      dmax = 10000; // borne supérieure pour la recherche du dénominateur
     
    function Fraction(nombre: number): tFraction;
    var
      d: integer;
      e: number; // erreur
      m: number; // moindre erreur
    begin
      for d := 1 to dmax do
      begin
        e := Abs(nombre * d - Trunc(Math.Round(nombre * d)));
        if d = 1 then
          m := e
        else
          if e < m then
            m := e;
      end;
      for d := 1 to dmax do
      begin
        e := Abs(nombre * d - Trunc(Math.Round(nombre * d)));
        if e = m then
        begin
          Result.d := d;
          Result.n := Trunc(Math.Round(nombre * d));
          Exit;
        end;
      end;
    end;
     
    type
      tEditBox = class(textField)
        procedure onKeyDown;
      end;
     
    var
      e: tEditBox;
      t: textField;
     
    procedure tEditBox.onKeyDown;
    var
      f: tFraction;
    begin
      if key.getAscii = 13 then
      begin
        f := Fraction(StrToFloat(e.text));
        t.text := "Meilleur résultat: " + IntToStr(f.n) + "/" + IntToStr(f.d);
      end;
    end;
     
    begin
      with textField.Create(_root, 'label', 0, 0, 0, stage.width - 1, 4 * 16 + 4) do
      begin
        SetNewTextFormat(textFormat.Create('Courier New', 12));
        text := "FlashPascal 2."#13
              + "Conversion d'un nombre décimal en fraction."#13
              + "Veuillez saisir un nombre décimal:";
      end;
     
      e := tEditBox.Create(_root, 'input', 1, 0, 3 * 16 + 4, stage.width - 1, 16 + 4);
     
      e.setNewTextFormat(textFormat.Create('Courier New', 12));
      e.type := 'input';
      e.border := TRUE;
      e.borderColor := $e0e0e0;
      selection.setFocus(e);
      key.addListener(e);
     
      t := textField.Create(_root, 'output', 2, 0, 3 * 16 + 4 + 16 + 4, stage.Width - 1, stage.height - (3 * 16 + 4 + 16 + 4));
     
      t.SetNewTextFormat(textFormat.Create('Courier New', 12));
     
      stage.scaleMode := 'noScale';
    end.
    Fichiers attachés Fichiers attachés
    L'Art est long et le Temps est court.

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

Discussions similaires

  1. Problème conversion String en Number
    Par Olivier3559 dans le forum ActionScript 3
    Réponses: 0
    Dernier message: 16/11/2011, 10h34
  2. [10g] Conversion string en number
    Par lenoil dans le forum SQL
    Réponses: 5
    Dernier message: 13/10/2009, 14h24
  3. Réponses: 3
    Dernier message: 26/05/2004, 23h03
  4. conversion de String en Num
    Par Assiobal dans le forum SL & STL
    Réponses: 31
    Dernier message: 15/05/2004, 21h18
  5. Conversions de String à Integer
    Par Rank dans le forum Langage
    Réponses: 5
    Dernier message: 06/08/2003, 16h30

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