String vers double qui pose problème

Question

Bonjour,

Soit une string sous cette forme :

xxxx.xx

x étant obligatoirement un chiffre allant de 0 à 9

comment transformer cette string en un entier arrondi, ou au moins en un réel, et l'arrondir par la suite ( le StrToFloat me cause aparemment une exception dans mon programme)

Vous souhaitant une agrébale fin d'après-midi ,merci à tous

----( | TanK | )----

japee · Answer

Salut,



Tout ça est très basique. Pourquoi ne regardes-tu pas l'aide de Delphi ?
Par exemple, tu mets StrToFloat en surbrillance et tu presses la touche F1.

Néanmoins, si ça peut t'éclairer, penche-toi sur ces lignes de code :

procedure TForm1.Button1Click(Sender: TObject);
var
  MyString: string;
  MyFloat: Real;
  MyInteger: Integer;
begin  MyString :'1789,50';  // <- separateur virgule
  MyFloat := StrToFloat(MyString);
  ShowMessage(FloatToStr(MyFloat));  MyFloat :1789.50;     // <- separateur point
  ShowMessage(FloatToStr(MyFloat));
  MyInteger := Round(StrToFloat(MyString));
  ShowMessage(IntToStr(MyInteger));
  MyInteger := Trunc(StrToFloat(MyString));
  ShowMessage(IntToStr(MyInteger));
end;

Bonne prog'

Caribensila · Answer

Bonjour,

Un exemple:

var
   R : real;
   I,Code : Integer;

val( '1254.63' , R , Code ) ;
I : = round(R);

jlen100 · Answer

salut,

attention au séparateur décimal avec strtofloat il prend celui défini
dans les variables régionales : en france c'est une virgule pas un point


@+

jlen

Tank01 · Answer

Bien,bien bien, mais comment faire dans mon cas,si ce séparateur est un point et non une virgule ?

merci encore

----( | TanK | )----

Tank01 · Answer

Oupssss,veuillez m'excusez, je crois que le matin ne me réussi pas et que je devrais plutot réfléchir aavnt d'agir, je vais tout simplement coder une fonction avec Pos qui recherchera le point et enlevera tout ce qu'il y a après ,puis j'arrondirais cela et stockerais dans un entier. Encore désolé pour ma question aussi bête !

Bonne journée

----( | TanK | )----

DeltaFX · Answer

function StrToXtd(Chaine,DecSep :string):extended;
var L,K,i: integer;
    R:extended;
begin
  R:=0;
  L:=Length(Chaine);
  K:=Pos(DecSep,Chaine);
  For i:=1 to L do
  if Chaine[i] in ['0'..'9']
  then R:=R*10.0 + StrToInt(Chaine[i]);

  if K > 0 then R:=R/IntPower(10,(L-K));
  if Pos('-',Chaine) > 0 then R:=R*(-1);

  Result:= R;
end;

japee · Answer

> DeltaFX


Ta fonction donne un résultat incorrect si un usager saisit un point quand le séparateur décimal par défini par défaut est la virgule, comme c'est la norme en France par exemple.

Ma chtit' fonction :

function StrToXtended(S: string): Extended;
const
  DecSep = [',', '.'];
var
  i: Integer;
begin
  for i := 1 to Length(S) do
    if S[i] in DecSep then
      S := StringReplace(S, S[i], DecimalSeparator, []);
  Result := StrToFloat(S);
end;

Bonne prog'

japee · Answer

Ce que j'ai dit précédemment est faux, j'avais mal testé ta fonction.


Il faut dire que le programmeur est obligé de passer en paramètre '.' ou ',' selon la configuration trouvée sur la machine utilisateur, ce qui complique et risque de provoquer des erreurs, la preuve...

Il vaut mieux une méthode qui tient compte de toutes les possibilités, non ?

Bonne prog'

japee · Answer

J'ai compliqué inutilement en utilisant StringReplace() 



Il vaut mieux faire :

function StrToXtended(S: string): Extended;
const
  DecSep = [',', '.'];
var
  i: Integer;
begin
  for i := 1 to Length(S) do
    if S[i] in DecSep then
      S[i] := DecimalSeparator;
  Result := StrToFloat(S);
end;

Bonne prog'

DeltaFX · Answer

Japee, j'avais écrit cette fonction jadis justement pour contourner le StrToFloat, qui refusait de marcher alors que mes données était toujours bien claires. Remettre un StrToFloat dedans, beuhhhhhhhhhhhhhh........

Justement, je la trouvais assez flexible ma tite fonction, vu qu'elle me sert pour lire des données d'un port com, qui sont indépendante de la localisation du pc de l'utilisateur. Elle est incomplete en cela qu'elle ne traite pas l'ecriture scientifique

 En plus les "Normes" en France... Toutes mes calculatrices ont toujours eu le point comme séparateur decimal, et surtout, va expliquer à un appareil externe  que bien que la Norme NMEA definisse la virgule comme séparateur de champs, et le point comme séparateur décimal, on est en France...........

japee · Answer

Finalement, je l'aime bien ta fonction, DeltaFX.


C'est du fait main et ça a l'air efficace.



Pour contourner le problème point/virgule, on peut toujours faire quelque chose dans le genre :

function StrToXtdRevisited(Chaine: string): Extended;
var
  L, K, i: Integer;
  R: Extended;
begin
  R := 0;
  L := Length(Chaine);
  K := Pos(',', Chaine);
  if K = 0 then
    K := Pos('.', Chaine);
  for i := 1 to L do
    if Chaine[i] in ['0'..'9']
      then R := R * 10.0 + StrToInt(Chaine[i]);
  if K > 0 then R := R / IntPower(10, (L - K));
  if Pos('-', Chaine) = 1 then R := R * (-1);
  Result:= R;
end;

Bonne prog'

DeltaFX · Answer

Sauf en cas de format alako... anglosaxon... du genre 1,000,000.00, auquel cas, c'est le drame 

Pour faire bien propre, il faudrait la surcharger, la bestiole.

Peut on faire un truc dans le genre 

function StrToXtdRevisited(Chaine:string; Sep:String=','): Extended;

japee · Answer

Tank01 semblant se désintéresser totalement de sa question, on va continuer entre nous, DeltaFX.

Donc j'ai essayé, on peut :

uses Math;



const
  DS_COMMA = 0;
  DS_DOT   = 1;



function StrToXtdRevisited(S: string; const DS: Byte = DS_COMMA): Extended;
var
  L, K, i: Integer;
begin
  Result := 0;
  L := Length(S);
  case DS of
    DS_COMMA: K := Pos(',', S);
    DS_DOT: K := Pos('.', S);
    else Exit;
  end;
  for i := 1 to L do
    if S[i] in ['0'..'9']
      then Result := Result * 10.0 + StrToInt(S[i]);
  if K > 0 then Result := Result / IntPower(10, (L - K));
  if Pos('-', S) = 1 then Result := Result * (-1);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin { norme européenne latine }
  Edit2.Text := FloatToStr(StrToXtdRevisited(Edit1.Text, DS_COMMA));
  {
  on aurait pu faire, bien sûr :
  Edit2.Text := FloatToStr(StrToXtdRevisited(Edit1.Text));
  ou
  Edit2.Text := FloatToStr(StrToXtdRevisited(Edit1.Text, 0));
  }
end;



procedure TForm1.Button2Click(Sender: TObject);
begin { norme anglo-saxonne }
  Edit2.Text := FloatToStr(StrToXtdRevisited(Edit1.Text, DS_DOT));
end;



procedure TForm1.Button3Click(Sender: TObject);
var   { la valeur du paramètre passé est erronnée }
  N_IMPORTE_QUOI: Byte;
begin
  N_IMPORTE_QUOI := 9; // n'importe quoi...
  Edit2.Text := FloatToStr(StrToXtdRevisited(Edit1.Text, N_IMPORTE_QUOI));
end;


Voir pour information (in english, sorry) :

http://en.wikipedia.org/wiki/Decimal_separator

Bonne prog' 

japee

DeltaFX · Answer

Arf, pris d'un doute j'ai jeté un oeil a Srtofloat tel que décrit dans les source de delphi, qui me renvoie a TxtToFloat, qui est écrit...... en assembleur, donc j'ai rien capté :D

Merci pour le lien wiki, tres instructif, et surtout, maintenant c'est sur, JAMAIS j'écrirais de strtofloat pour une plateforme indienne, Oh non non non.....

jponselle · Answer

Il y a beaucoup plus simple:
DecimalSeparator:='.';
et si l'on veut revenir à la virgule:
DecimalSeparator:=',';

String vers double qui pose problème

15 réponses

Votre réponse

Discussions similaires