StrToFloat Problème avec le séparateur des milliersRésolu

Question

Bonsoir tout le monde,


J'importe des donn&#233;es dans une table paradox &#224; partir d'un fichier texte et j'ai un probl&#232;me avec ce code:


table1.Fieldbyname('Euros').asCurrency:=StrToFloat(wEuros);
table1.Fieldbyname('Francs').asCurrency:=StrToFloat(wFrancs);


car StrToFloat n'admet pas le s&#233;parateur des millier et j'ai un message d'erreur &#224; chaque fois.


Existe il un moyen pour contourner ce probl&#232;me?


D'avance merci


Codial

japee · Accepted Answer

Si &#231;a peut d&#233;panner, une petit truc vite fait (&#224; optimiser &#233;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

cs_Delphiprog · Answer

Voir la fonction StrtoCurr


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

codial · Answer

j'ai d&#233;ja essay&#233; 

table1.Fieldbyname('Francs').asCurrency:=StrToCurr (wFrancs);

mais j'ai toujours le m&#234;me message d'erreur:

"1 200,20 n'est pas une valeur flottante"

Cordialement

Codial

cs_Delphiprog · Answer

M&#234;me si tu d&#233;clares la virgule comme s&#233;parateur d&#233;cimal au d&#233;but de l'application ?

DecimalSeparator := ',';


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

codial · Answer

Oui j'ai mis DecimalSeparator := ','; et &#231;a ne change rien.

Le probl&#232;me c'est dans mon fichier texte le s&#233;parateur des milliers qui n'est pas admis par la fonction StrToFloat.
Comment je peux contourner &#231;a ?

Codial

moldov · Answer

Salut,



Et si tu recup&#232;re la valeur en string, ensuite tu fais un traitement pour supprimer les espaces et tu la transforme en float.

Ca arrange pas ton probleme ?



Bonne Prog

cs_Delphiprog · Answer

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...

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient. <

jlen100 · Answer

salut,

il ya plus simple pour supprimer les espaces

si S contient la chaine :

while pos(' ',S)<>0 do delete(S,pos(' ',S),1);





bonne prog

japee · Answer

Salut Delphiprog



Tout &#224; fait d'accord pour "S[i] <> ' ' then", c'est ma mani&#232;re habituelle de proc&#233;der.

J'ai juste voulu changer de style, pour voir...

Sais pas ce qui m'a pris, lol. 



Bonne prog' 



japee



P-S: le ferai plus...

codial · Answer

Bonjour,

ne maitrisant pas encore tr&#232;s bien Delphi, j'ai trouv&#233; cette solution qui semble convenir:

table1.FieldValues['Euros']:= wEuros;
table1.FieldValues['Francs']:=wFrancs;

Cependant j'ai test&#233; 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&#232;me.
Je vous remercie pour vos r&#233;ponses qui m'ont bien d&#233;pann&#233;es

Codial

japee · Answer

Oui, jl100, j'admets que c'est plus simple... 



Bonne prog' 



japee

cs_Kenavo · Answer

Si vous aimez l'assembleur, il est amusant de regarder le d&#233;roulement de la fonction 
StrToCurr 

il y est fait appel &#224; la proc&#233;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&#232;s
la repr&#233;sentation num&#233;rique, mais s'il y en a un (espace) entre le
chiffres, apr&#232;s le signe, avant ou apr&#232;s le point, la conversion est
interrompue est une erreur est revoy&#233;e.




'    +13.46' est bon

'+13.46       ' est bon


'    +13.46         ' est bon



C'est bon &#224; savoir ! Pas besoin de faire le m&#233;nage avant !



Tout autre espace ins&#233;r&#233; provoque une erreur. M&#234;me si on a pris la pr&#233;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 ]

jlen100 · Answer

salut,

apparemment le seul s&#233;parateur des milliers admis en Delphi est le
point '.' : voir l'aide &#224; la rubrique FormatFloat,fonction; 
attention &#233;galement on peut avoir la m&#234;me erreur en r&#233;cup&#233;rant des
donn&#233;es au format US ou la virgule est remplac&#233;e par le point d&#233;cimal
d'autre part dans ce format le s&#233;parateur des milliers est la virgule
',' ce qui dans le cas de conversion d'une valeur enti&#233;re '40,000'
donnerais 40 pour r&#233;sultat;

surprenant non?

 jlen.

japee · Answer

Le sujet est d&#233;cid&#233;ment int&#233;ressant et tr&#232;s ouvert 

Les programmeurs Delphi dans le secteur bancaire, et plus
particuli&#232;rement concernant le march&#233; des changes, doivent s'arracher
quelques cheveux, non ? 



Tiens, j'ai trouv&#233; 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

StrToFloat Problème avec le séparateur des milliers

14 réponses

Votre réponse

Discussions similaires