StrToFloat Problème avec le séparateur des milliers [Résolu]
codial
- Messages postés
- 270
- Date d'inscription
- mercredi 14 avril 2004
- Dernière intervention
- 5 mai 2015
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
A voir également:
- Strtofloat delphi
- Delphi strtofloat - Meilleures réponses
- Delphi thousandseparator - Meilleures réponses
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
- [delphi] optimiser le contenu de vos zips - Conseils pratiques - Delphi
14 réponses
Meilleure réponse
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Si ça peut dépanner, une petit truc vite fait (à optimiser éventuellement ?):
function MyStrToCurr(S: String): Currency;
var
i: Integer;
Tmp: String;
begin
try
Tmp := '';
for i := 1 to Length(S) do
if not (S[i] = ' ') then
Tmp := Tmp + S[i];
Result := StrToCurr(Tmp);
except
Result := 0;
end;
end;
table1.Fieldbyname('Euros').asCurrency := MyStrToCurr(wEuros);
Bonne prog'
japee
function MyStrToCurr(S: String): Currency;
var
i: Integer;
Tmp: String;
begin
try
Tmp := '';
for i := 1 to Length(S) do
if not (S[i] = ' ') then
Tmp := Tmp + S[i];
Result := StrToCurr(Tmp);
except
Result := 0;
end;
end;
table1.Fieldbyname('Euros').asCurrency := MyStrToCurr(wEuros);
Bonne prog'
japee
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Dernière intervention
- 9 janvier 2013
Salut Japee.
Cette ligne : if not (S[i] = ' ') then se traduit en :
if S[i] <> '' then
"not equal" est équivalent de "different of"
Si Codial veut traiter plusieurs caractères, alors la formule suivante est plus adaptée :
//traitement des caractères espace et virgule
if not (S[i] in [' ', ',']) then...
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
Cette ligne : if not (S[i] = ' ') then se traduit en :
if S[i] <> '' then
"not equal" est équivalent de "different of"
Si Codial veut traiter plusieurs caractères, alors la formule suivante est plus adaptée :
//traitement des caractères espace et virgule
if not (S[i] in [' ', ',']) then...
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Dernière intervention
- 9 janvier 2013
Voir la fonction StrtoCurr
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Dernière intervention
- 9 janvier 2013
Même si tu déclares la virgule comme séparateur décimal au début de l'application ?
DecimalSeparator := ',';
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
DecimalSeparator := ',';
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
- Messages postés
- 270
- Date d'inscription
- mercredi 14 avril 2004
- Dernière intervention
- 5 mai 2015
Bonjour,
ne maitrisant pas encore très bien Delphi, j'ai trouvé cette solution qui semble convenir:
table1.FieldValues['Euros']:= wEuros;
table1.FieldValues['Francs']:=wFrancs;
Cependant j'ai testé la fonction de jappee et c'est bon je peux remplir ma table.
En fait c'est juste le traitement des espaces qui posait problème.
Je vous remercie pour vos réponses qui m'ont bien dépannées
Codial
ne maitrisant pas encore très bien Delphi, j'ai trouvé cette solution qui semble convenir:
table1.FieldValues['Euros']:= wEuros;
table1.FieldValues['Francs']:=wFrancs;
Cependant j'ai testé la fonction de jappee et c'est bon je peux remplir ma table.
En fait c'est juste le traitement des espaces qui posait problème.
Je vous remercie pour vos réponses qui m'ont bien dépannées
Codial
- Messages postés
- 759
- Date d'inscription
- vendredi 21 mars 2003
- Dernière intervention
- 1 octobre 2009
Si vous aimez l'assembleur, il est amusant de regarder le déroulement de la fonction
StrToCurr
il y est fait appel à la procédure TextToFloat
X := StrToFloat(wEuros) est alors traduit en TextToFloat(PChar(wEuros),X,fvCurrency)
La fonction
TextToFloat
convertit sans erreur les chaines avec autant d'espace avant et après
la représentation numérique, mais s'il y en a un (espace) entre le
chiffres, après le signe, avant ou après le point, la conversion est
interrompue est une erreur est revoyée.
' +13.46' est bon
'+13.46 ' est bon
' +13.46 ' est bon
C'est bon à savoir ! Pas besoin de faire le ménage avant !
Tout autre espace inséré provoque une erreur. Même si on a pris la précaution de mettre ThousandSeparator :=' '; Je parlerai pour ma part de bug (et je sais de quoi je parle, je suis un gros producteur !
)
Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !
http://www.pourflorenceethussein.org/
[%3C/body ]
StrToCurr
il y est fait appel à la procédure TextToFloat
X := StrToFloat(wEuros) est alors traduit en TextToFloat(PChar(wEuros),X,fvCurrency)
La fonction
TextToFloat
convertit sans erreur les chaines avec autant d'espace avant et après
la représentation numérique, mais s'il y en a un (espace) entre le
chiffres, après le signe, avant ou après le point, la conversion est
interrompue est une erreur est revoyée.
' +13.46' est bon
'+13.46 ' est bon
' +13.46 ' est bon
C'est bon à savoir ! Pas besoin de faire le ménage avant !
Tout autre espace inséré provoque une erreur. Même si on a pris la précaution de mettre ThousandSeparator :=' '; Je parlerai pour ma part de bug (et je sais de quoi je parle, je suis un gros producteur !
)
Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !
http://www.pourflorenceethussein.org/
[%3C/body ]
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
salut,
apparemment le seul séparateur des milliers admis en Delphi est le
point '.' : voir l'aide à la rubrique FormatFloat,fonction;
attention également on peut avoir la même erreur en récupérant des
données au format US ou la virgule est remplacée par le point décimal
d'autre part dans ce format le séparateur des milliers est la virgule
',' ce qui dans le cas de conversion d'une valeur entiére '40,000'
donnerais 40 pour résultat;
surprenant non?
jlen.
apparemment le seul séparateur des milliers admis en Delphi est le
point '.' : voir l'aide à la rubrique FormatFloat,fonction;
attention également on peut avoir la même erreur en récupérant des
données au format US ou la virgule est remplacée par le point décimal
d'autre part dans ce format le séparateur des milliers est la virgule
',' ce qui dans le cas de conversion d'une valeur entiére '40,000'
donnerais 40 pour résultat;
surprenant non?
jlen.
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Le sujet est décidément intéressant et très ouvert
Les programmeurs Delphi dans le secteur bancaire, et plus
particulièrement concernant le marché des changes, doivent s'arracher
quelques cheveux, non ?
Tiens, j'ai trouvé une approche un peu plus concise que celle que je proposais plus haut :
function MyStrToCurr(S: String): Currency;
begin
Result := StrToCurr(StringReplace(S, ' ', EmptyStr, [rfReplaceAll]));
end;
Bonne prog'
japee
Les programmeurs Delphi dans le secteur bancaire, et plus
particulièrement concernant le marché des changes, doivent s'arracher
quelques cheveux, non ?
Tiens, j'ai trouvé une approche un peu plus concise que celle que je proposais plus haut :
function MyStrToCurr(S: String): Currency;
begin
Result := StrToCurr(StringReplace(S, ' ', EmptyStr, [rfReplaceAll]));
end;
Bonne prog'
japee
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.