Transformer 0.5 en 0,5Résolu

Question

Bonjour a tous

CouleursBase[length(CouleursBase)-1][1]:=Trunc(StrToFloat(tabTemp[0])*255);

Je dois faire ce calcul. Dans tabTemp[0], j'ai 0.5 , il me faudrait 0,5

Existe-t-il en delphi une fonction qui me fait ca. Et si j'ai 1 ou 0  bien sur, ca dois reste 1 ou 0 

Merci beaucoup


Peone

jlen100 · Accepted Answer

salut :

r&#233;ponse donn&#233;e hier dans un autre post

 chaine:=stringreplace(chaine,'.',decimalseparator,[rfReplaceAll]);





@+

jlen

cs_saravana · Answer

tu peux faire par exemple  avec deux edit et un button, dans le onclick du button ajoute ca:
procedure TForm1.button1click(Sender: TObject);
Var St:string;
i:integer;
begin
St:=edit1.Text;
for i:=1 to Length(St) do
if St[i]='.' then St[i]:=',';
edit2.Text:=st;
end;

si tu tapes 0.5 dans le premier edit , lorsque tu appuies sur le bouton  le deuxieme edit affichera 0,5.
++

cs_rt15 · Answer

Il y a une fonction qui fait le code de saravana, mais j'ai un doute sur son nom.

ReplaceStr je crois.

Elle prend en argument la chaîne ou remplacer, la chaîne à rechercher, et la chaîne à mettre à la place de la chaîne recherchée.

cs_Peone · Answer

Un grand merci ca tourne nickel

Bye


Peone

ni69 · Answer

Et si l'utilisateur entre un nombre avec virgule sur un ordinateur configur&#233; pour accepter des points comme s&#233;parateurs d&#233;cimaux ? Ca pose un probl&#232;me ! (h&#233; oui, il faut bien voir tous les cas de figure!), donc je proposerais :
  chaine:=stringreplace(chaine,'.',decimalseparator,[rfReplaceAll]); // Une fois le point
  chaine:=stringreplace(chaine,',',decimalseparator,[rfReplaceAll]); // Une fois la virgule
Comme &#231;a, on s'adapte vraiment &#224; l'ordinateur !

 @+
 Nico  { http://www.ni69.new.fr/ }
 
 <hr size="2" width="100%"> 
N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

salut ni69

on peut aussi faire

if decimalseparator=',' then

    StrToFloat(chaine,'.')

else

    StrToFloat(chaine,'.');

@+

jlen

jlen100 · Answer

erreur de recopie dans le post:

il faut faire:

if  decimalseparator= ','   then 

      chaine: =stringreplace(chaine,'.',decimalseparator,[rfReplaceAll])

 else

      chaine:=stringreplace(chaine,',',decimalseparator,[rfReplaceAll]);

honte &#224; moi

@+

jlen

ni69 · Answer

Bien s&#251;r que l'on t'excuse ! 
Je ne pense pas que le test du caract&#232;re d&#233;cimal en vigueur soit n&#233;cessaire, car l'action d'une proc&#233;dure n'engendre pas de modification sur l'autre... 
Apr&#232;s, s'il s'agit de gagner 1ms sur la proc&#233;dure StringReplace non ex&#233;cut&#233;e (car &#233;cart&#233;e par le test), c'est un autre probl&#232;me, mais g&#233;n&#233;ralement les nombres trait&#233;s n'ont pas une infinit&#233; de chiffres, et la rapidit&#233; de traitement de ces proc&#233;dures est vraiment minime... Donc le temps de traitement est quasi-identique 

 @+
 Nico  { http://www.ni69.new.fr/ }
 
 <hr size="2" width="100%"> 
N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

c'est mon habitude de programmer ---> quand une action n'est pas
utile on la passe par contre j'alourdis l&#233;g&#232;rement le code (un test
supp&#233;mentaire)

Comme je dis toujours autant de programmeur autant de codes!!

le principal au fond c'est le r&#233;sultat "peu importe le flacon pourvu qu'on ait l'ivresse"



@+

jlen

Transformer 0.5 en 0,5

9 réponses

Votre réponse

Discussions similaires