séparateur décimalRésolu

Question

Lors de la vonvertion d'une chaine en flotan il arrive d'avoir l'erreur de convertion car le s&#233;parateur d&#233;cimal n'est pas celmui du syst&#232;me.

Au lieu d'utiliser    strtofloat(s)    quelle instruction simple utuliser pour que cela focntionne aussi bien avec comme s&#233;parateur d&#233;cimal le point "."  ou la virgule "," ?

Sans changer la configuration syst&#232;me afin que cela fonctionne sur un grand nombre de PC

yvessimon

jlen100 · Answer

salut,

une fonction qui accepte les 2 format je ne connais pas mais tu peux
soit tester la presence de l'un ou l'autre des s&#233;parateur decimaux;
soit utiliser la fonction stringreplace pour mettre le s&#233;parateur en
conformit&#233; avec le systeme soit enfin g&#233;rer les erreurs de conversion

poru mio je pense qu'il est plus simple de remplacer le s&#233;parateur decimal avec la fonction stringreplace:

chaine:=stringreplace(chaine,'.',decimalseparator,[rfReplaceAll]);



@+

jlen

flor003 · Answer

salut!
StrToFloat(const S:string;const FormatSettings:TFormatSettings)
o&#249; FormatSettings est le s&#233;parateur d&#233;cimal.

a++

jlen100 · Answer

salut flo003

mettre le formtsetting n'emp&#232;chera pas l'erreur de conversion si celui
dans la chaine ne correspond  pas &#224; celui d&#233;fini dans formatsetting



@+

jlen

jlen100 · Answer

on peut am&#233;liorer en  automatisant la d&#233;tection

if  decimalseparator= ','   then 

     chaine: =stringreplace(chaine,'.',decimalseparator,[rfReplaceAll])

else

     chaine:=stringreplace(chaine,',',decimalseparator,[rfReplaceAll]);



@+

jlen

flor003 · Answer

salut jlen100!

Compl&#232;tement d'accord avec ta m&#233;thode.
Mais je m'excuse de ne pas &#234;tre all&#233; au bout de mon explication.
Et comme je suis quelqu'un de tr&#232;s compliqu&#233; je propose ma solution (qui n'est pas la meilleure on est d'accord, j'ai pas essay&#233; j'ai honte si &#231;a se trouve marche pas):

if decimalseparator=',' then
    StrToFloat(chaine,'.')
else
    StrToFloat(chaine,'.');

ps: ne pas h&#233;siter &#224; me le dire si j'ai dis une connerie
a++

yvessimon · Answer

en utilisant:  stringreplace(chaine,'.',decimalseparator,[rfReplaceAll]) 



ou stringreplace(chaine,',',decimalseparator,[rfReplaceAll]) 



 correspond &#224; ma solution.

Merci

yvessimon

jlen100 · Answer

flor003 comme je te l'ai dit le fait de forcer le s&#233;parateur d&#233;cimal ne
supprimera les erreurs de convertion. je m'explique si tu veux
convertir la chaine:= '123 . 25' et que le s&#233;parteur d&#233;cimal est &#224; ',' tu auras une erreur Eerrorconvert de m&#234;me si tu as 123,25' et que le s&#233;parteur d&#233;cimal est &#224; '.' il faut qu'il y ait ad&#233;quation entre la chaine et le s&#233;parateur d&#233;cimal la seule fa&#231;on &#224; ma connaissance est de forcer la chaine au s&#233;parateur d&#233;cimal.

 en fait quand tu ecis:

if decimalseparator =',' then

    StrToFloat(chaine,'.')

else

    StrToFloat(chaine,'.');

 cela revient &#224; &#233;crire : StrToFloat(chaine,DecimalSeparator)



@+

jlen

flor003 · Answer

merci pour cette pr&#233;cision JLEN100 , je n'&#233;tais pas sur de mon truc.

jlen100 · Answer

pas de quoi il peut toutefois rester un probl&#232;me: Si la chaine a &#233;t&#233;
format&#233;e avec des s&#233;parateurs de millier qui sont l'inverse des
s&#233;parateur decimaux---> un bon casse tete!



@+

jlen

f0xi · Answer

j'ai deja poster la solution plusieurs fois pour ce genre de probleme.
merci de chercher sur le forum.

 La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
<hr>

Séparateur décimal

10 réponses

Votre réponse

Discussions similaires