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 :

Formatfloat pour un champ string


Sujet :

Delphi

  1. #1
    Membre à l'essai
    Inscrit en
    Avril 2010
    Messages
    99
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 99
    Points : 12
    Points
    12
    Par défaut Formatfloat pour un champ string
    salut
    j'ai un champ string contient des valeurs monétaires, ma question comment fait un formatage des valeurs?
    par exemple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    procedure TDATA.RECAfterOpen(DataSet: TDataSet);
    begin
     
    with DATA.REC do
    begin
    //TFloatField(FieldByName('MONTANT')).DisplayFormat := '#,##0.00;-#,##0.00; ';
    TStringField(FieldByName('MONTANT')).DisplayFormat := '#,##0.00;-#,##0.00; ';
    end;
    end.
    merci

  2. #2
    Membre confirmé
    Inscrit en
    Janvier 2005
    Messages
    529
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 529
    Points : 464
    Points
    464
    Par défaut
    bonjour,
    voici un bout de code pour t'inspirer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Edit1.Text:=FloatTostrF(strtofloat(edit2.Text),ffnumber,15,2);
    Bonne chance.
    Deux, n'apprendront pas; le timide et l'arrogant

  3. #3
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 447
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 447
    Points : 24 849
    Points
    24 849
    Par défaut
    Tu étais bien parti sur le TFloatField.DisplayFormat mais pas sur un champ string

    Tu devrais modifier ta stucture de table pour stocker ton décimal dans un champ numérique

    Sur des montants toujours positifs
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TNumericField(Field).DisplayFormat := '0.00 €;#;#';
    Sur des montants positifs et négatifs
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TNumericField(Field).DisplayFormat := '0.00 €;-0.00 €;#';

    Si tu veux conserver un champ chaine, tu seras obligé d'utiliser OnGetText pour convertir la valeur en Double puis de la reconvertir dans le format d'affichage
    C'est contre performant
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

Discussions similaires

  1. Réponses: 4
    Dernier message: 12/07/2010, 19h48
  2. date de...a dans un champ string
    Par Yepazix dans le forum Bases de données
    Réponses: 5
    Dernier message: 01/09/2004, 23h54
  3. changement de type pour un champ dans une table
    Par Missvan dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 23/02/2004, 15h26
  4. faire un insert pour un champ blob
    Par tripper.dim dans le forum InterBase
    Réponses: 10
    Dernier message: 02/05/2003, 16h56
  5. FormatFloat pour les entiers !?
    Par Lung dans le forum Langage
    Réponses: 5
    Dernier message: 10/04/2003, 15h20

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