Discussion :

[med1112]

Bonjour,

J'ai un Edit1.text qui contient "12 345.56", je veux convertir ce nombre en Reel pour faire des calculs.
La fonction "StrToFloat(Edit1.Text)" se plante à cause de l'espace.
J'ai pensé faire une recherche de caractère ' ' dans ma chaine par la fonction "pos(' ',Edit.text)", mais cette fonction me renvoie 0.
si quelqu'un a une idée.
merci d'avance

[Nebulix]

Code :

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

1
2
3
s:=edit1.text;
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
edit1.text:=s;

Tu ne peux pas passer edit1.text comme paramètre à delete

[med1112]

merci de votre réponse,
j'utilise FormatFloat pour afficher le nombre dans edit1, mais après j'ai besoin de ce nombre pour faire des calcul, est ce qu'il y a une fonction qui rend le nombre dans son état initial, càd l'inverse de formatfloat, car avec la fonction pos ça marche pas elle trouve pas l'espace.

[tourlourou]

il peut être mofifié dans l'Edit par l'utilisateur ?
si oui, utiliser FloatToStr après avoir supprimé les espaces éventuels, remplacé le séparateur décimal, etc :
ce peut être une solution d'écrire : (syntaxe à vérifier !)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
S:=Edit1.Text;
S:=StrReplace(S, #32, #0, [rfReplaceAll]); // enlève tous les espaces
S:=StrReplace(S, ThousandSeparator, #0, [rfReplaceAll]); // enlève le séparateur des milliers
if DecimalSeparator='.'
then c:=','
else c:='.';
S:=StrReplace(S, c, DecimalSeparator, [rfReplaceAll]); // assure le séparateur décimal
try
  f:=StrToFloat(S);
except
  f:=DefaultValue; // ou toute autre gestion de l'erreur
end;

[cincap]

@ Med1112, essaye ceci en utilisant "ThousandSeparator":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  amount : Currency;
 
begin
 
amount := 1234567.89;    // 1,234,567 pounds 89 pence
 
  // Display with the default thousands separator
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));
 
  // Display with a new thousands separator
  ThousandSeparator := ' ';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

A adapter.

@+,

Cincap

[Caribensila]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
var S    : string;
    V    : Double;
    Code : integer;
begin
S := Edit1.Text;
repeat
  Val(S,V,Code);
  Delete(S,Code,1);
Until Code=0;

[med1112]

j'ai essayé le code de tourlourou, et ça marche à la merveille
merci à tous

[Caribensila]

@chaland de passage

A tout hasard, je précise quand même que ma suggestion traite correctement une chaîne comme celle-ci, par exemple : 'Total = -12 345.56 €'.