Conversion String en Float (Flottant avec point)

Version imprimable

Bonjour,

Je suis devant un problème, qui pourrait vous sembler facile à résoudre mais je
ne suis qu'un débutant :oops:

J'ai un souci de conversion, je m'explique : Je dois afficher une valeur dans un
stringgrid en prenant en compte un paramètre de représentation (0,001 par exemple).

Je reçois des données par le réseau CAN, que je récupère dans la
variable "factor" de type double. Je dois multiplier par un coefficient
défini de façon arbitraire de type float et je dois afficher la valeur avec
la résolution demandée.

La ligne valFin := SimpleRoundTo(StrToFloat(factor),-nbDec); me pose
une erreur car elle contient un point et non une virgule.

Pouvez-vous me dire comment convertir un string de decimal avec virgule
en decimal avec point svp ? Merci

Pour l'instant, j'utilise une routine qui parcourt la variable valFin en remplaçant
la virgule par le point de façon "artificielle".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Begin coeff := 1,56; FormAffichage := 0,005; // Détection de la position de la virgule : nbDec->Nb de chiffres après virgule for cptPosVirg:=0 to length(FormAffichage) Do Begin if FormAffichage[cptPosVirg]=',' then posvirgl:=cptPosVirg; nbDec := length(FormAffichage)-posvirgl; End; factor := FloatToStr(longint((@donnee[5])^)*coeff); // On récupère l'info sur le CAN et on multiplie par le coeff // Formatage de la valeur à afficher (on remplace la "," par le ".") for ab:=0 to length(factor) Do Begin if factor[ab]=',' then factor[ab]:='.'; End; valFin := SimpleRoundTo(StrToFloat(factor),-nbDec); // On arrondit la valeur à afficher en respectant le format demandé End Else Begin if(donnee[4]=0) then StringGrid1.Cells[3,n]:=FloatToStr(valFinale)+' '+PParameterReceived^.Unite; End;

Regarde du côté de TFormatSettings et DecimalSeparator, à utiliser avec StrToFloat, di genre:
Code:

1 2 3 4 5 6 lFormatSettings:TFormatSettings; lValeur1:Double; begin lFormatSettings.DecimalSeparator := '.'; lValeur1 := StrToFloat(MaString,lFormatSettings);

FormatFloat avec le paramètre de type TFormatSettings permet de configurer librement le séparateur

Code:

1
2
3
4
5
6
7
8
9
var
  FormatSettings: TFormatSettings;
begin
  // Le séparateur décimal est le point "." et non pas la virgule.
  GetLocaleFormatSettings(0, FormatSettings);
  FormatSettings.DecimalSeparator := '.';
  Result := StrToFloat(Value, FormatSettings);
  ...
end;

Si tu un vieux Delphi je crois que cette variante de StrToFloat n'apparait qu'en D7 ou D2005, tu avais déjà quelques fonctions qui le supportait mais pénible d'utilisation

Tu peux donc modifier avec ReplaceChar

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function CheckDecimalSeparator(const S: string): string;
begin
  Result := S;
  ReplaceChar(Result, ',', DecimalSeparator);
  ReplaceChar(Result, '.', DecimalSeparator);
end;
 
{* -----------------------------------------------------------------------------
la procédure ReplaceChar remplace dans S le caractère OldChar par le caractère NewChar
@param S chaine à modifier
@param OldChar caractère à remplacer
@parem NewChar caractère de substitution
------------------------------------------------------------------------------ }
procedure ReplaceChar(var S: string; const OldChar, NewChar: Char);
var
  i: Integer;
  p: PChar;
begin
   if OldChar = NewChar then Exit;
 
   p := @S[1];
   for i := 0 to Length(S)-1 do
   begin
      if PChar(p+i)^ = OldChar then
         PChar(p+i)^ := NewChar;
   end;
end

;

31/05/2012, 13h47
kracter56

Bonjour,

Merci beaucoup pour vos réponses.
Vous me tirez une épingle du pied. :D
ShaiLeTroll > J'utilise Delphi7 donc normalement pas de souci ;)

Problème résolu grâce à vous. Merci :ccool: