Discussion :

[zohra051]

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

[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"

[blonde]

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

[blonde]

En D10 :

Code :

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

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;

[zohra051]

En D10 :

Code :

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

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

[ShaiLeTroll]

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 :

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

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());