Discussion :

[Keke des Iles]

Bonjour à tous.

Je cherche à convertir une chaîne de caratères représentant un nombre décimal sans les 0 non significatifs. Voila des exemples de ce que je voudrais obtenir :
'76.0' => '76'
'076' => '76'
'76.1' => '76.1'
'76.10' => '76.1'
Je m'attendais à trouver une fonction comme cela assez facilement sans avoir à l'écrire moi-même mais impossible de trouver quelque chose.
Quelqu'un connait une astuce ? sinon je le ferai moi-même.

Merci d'avance.

[slimjoe]

Regarde dans l'aide sous FormatFloat

[Gilbert Geyer]

Voiçi deux trucs pour supprimer les 0 soit à gauche, soit à droite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function  TrimD0(s : string) : string; // suppr des 0 à droite
begin     while s[length(s)]='0' do Delete(s,length(s),1); TrimD0:=s; end;
 
function  TrimG0(s : string) : string; // suppr des 0 à gauche
begin     while (length(s)>=1) and (s[1]='0')
          do Delete(s,1,1); TrimG0:=s; end;

Mais attention, n'utiliser la suppression à droite qu'après avoir testé si la string contient le DecimalSeparator sinon la fonction retourne par exemple 22 si la string d'entrée est 2200000

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if pos(DecimalSeparator,maChaineNumerique) > 0
then maChaineNumerique:=TrimD0(maChaineNumerique) ;

[Rayek]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaValeur := FormatFloat('#0',StrToFloat(StringReplace('76.1','.',',',[rfReplaceAll])));

[Gilbert Geyer]

Attention avec StringReplace car StringReplace('76.1','.',',',[rfReplaceAll]) ne fait que remplacer le point de 76.1 par une virgule.

[Keke des Iles]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaValeur := FormatFloat('#0',StrToFloat(StringReplace('76.1','.',',',[rfReplaceAll])));

Ca ne marche pas comme je veux. Si je tape '76.10', c'est '76' qui est retourné alors que je veux '76.1'. Mais je ne pense pas que FormatFloat puisse m'aider (j'avais tenté avant aussi).

Finalement, j'ai trouvé un truc tout bête et ça m'a l'air bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaValeur := FloatToStr(StrToFloat(Trim('0760.0100')));

Merci pour l'aide.

[slimjoe]

Ca ne marche pas comme je veux. Si je tape '76.10', c'est '76' qui est retourné alors que je veux '76.1'. Mais je ne pense pas que FormatFloat puisse m'aider (j'avais tenté avant aussi).

Finalement, j'ai trouvé un truc tout bête et ça m'a l'air bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaValeur := FloatToStr(StrToFloat(Trim('0760.0100')));

Merci pour l'aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
const
   S = '076.10';
 
var
   D: double;
 
begin
   D := StrToFloat(StringReplace(S, '.', DecimalSeparator, []));
 
   Showmessage(FormatFloat('#0.#', D));  //Ça affiche "76.1"
end;

[Keke des Iles]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
const
   S = '076.10';
 
var
   D: double;
 
begin
   D := StrToFloat(StringReplace(S, '.', DecimalSeparator, []));
 
   Showmessage(FormatFloat('#0.#', D));  //Ça affiche "76.1"
end;

C'est presque bon, mais il reste encore une faille si on tape '76.01'. Ca retourne '76'.

[paradise]

C'est presque bon, mais il reste encore une faille si on tape '76.01'. Ca retourne '76'.

Forcément puisque tu lui demandes d'afficher une décimale si elle existe ; en l'occurence 76.01 arrondi au dixième ça fait 76.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
const
   D1 = 76.01;
   D2 = 76.09;
 
begin   
   Showmessage(FormatFloat('0.#', D1));   //Ça affiche "76"
   Showmessage(FormatFloat('0.##', D1));  //Ça affiche "76.01"
   Showmessage(FormatFloat('0.#', D2));   //Ça affiche "76.1"
end;

[sofiane832]

Merci infiniment à vous * Gilbert Geyer*.
Les deux fonctions fonctionnent parfaitement.
C'est exactement ça que je cherche.