Conversion String to Double.

Version imprimable

14/12/2020, 14h09
zohra051

Conversion String to Double.

Bonjour à tous,

J'ai un problème de conversion du String vers une valeur Double.

Je voudrais par exemple convertir le string '0.52' en valeur 0.52. Cependant j'ai testé avec StrToFloat() et .ToDouble mais aucune ne fonctionne. Cela me renvoie la valeur 0.

Avez vous d'autre idées s'il vous plaît ?

Merci
14/12/2020, 14h18
blonde

Tes fonctions renvoient '0' ou bien une exception ?
Si c'est 0, est-ce StrToFoatDef que tu utilises ?
Si tu fais le même teste en utilisant la chaîne '0,52' (donc avec une virgule) qu'obtiens-tu ?

Je pense que tu devrais jeter un œil à "Decimalseparator"
14/12/2020, 14h19
blonde

Et puis, dans quelle version de Delphi es-tu ?

En D10 :

Code:

1
2
3
4
5
6
7
8
9
10
 
var
  s : String;
  d : double;
  fs : TFormatSettings;
begin
  fs.DecimalSeparator := '.';
  s := '0.52';
  d := StrToFloat(s, fs);
end;

Citation:

Envoyé par zohra051

J'ai un problème de conversion du String vers une valeur Double.

Je voudrais par exemple convertir le string '0.52' en valeur 0.52. Cependant j'ai testé avec StrToFloat() et .ToDouble mais aucune ne fonctionne. Cela me renvoie la valeur 0.

Un séparateur décimal invalide sur un StrToFloat devrait afficher " '0.52' is not a valid floating point value " ou " '0.52' n'est pas une valeur en virgule flottante correcte " via une exception EConvertError
Ce 0 est-il ?
- une valeur affichée par le débuggueur,
- une valeur par défaut affectée par un try except,
- un FloatToStr/Fomat/FormatFloat ou une autre procédure de conversion Double vers String pour débogguer la conversion String vers Double ?
- une affectation à une variable entière tronquant le résultat
- une syntaxe mal maitrisée
Il y a un tellement de situation possible pour une mauvaise interprétation.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 var D: Double; I: Integer; FS: TFormatSettings; begin FS := TFormatSettings.Create(); FS.DecimalSeparator := '.'; D := StrToFloat('0.52', FS); ShowMessage(FloatToStr(D)); ShowMessage(D.ToString()); I := Trunc(D); // troncature explicite ShowMessage(FloatToStr(I)); FS.DecimalSeparator := ','; ShowMessage('FloatToStr(StrToFloat(''0,54'', FS)) = '+ FloatToStr(StrToFloat('0,54', FS))); ShowMessage('StrToFloat(''0,54'', FS).ToStr = '+ StrToFloat('0,54', FS).ToString); ShowMessage('((''0,54'').ToDouble()).ToString() = '+ (('0,54').ToDouble()).ToString()); ShowMessage('(string.ToDouble(''0,54'')).ToString() = '+ (string.ToDouble('0,54')).ToString());

Citation:
Envoyé par blonde
En D10 :
Code:

1 2 3 4 5 6 7 8 9 10 var s : String; d : double; fs : TFormatSettings; begin fs.DecimalSeparator := '.'; s := '0.52'; d := StrToFloat(s, fs); end;
Je viens d'essayer avec le séparateur, ça marche à merveille. Merci :D