MULTIPLICATION DE NOMBRESRésolu

Question

Quelqu'un pourait il me dire la conversion à faire pour multiplier :

1,2*100=120

en sachant que 1,2 est saisi dans un Edit.

j'essaie :
n1:=strtofloat(edit1.text);
n:=(???????(n1)*100);
quelque soit la fonction de converstion que j'utilise le message d'erreur est toujours le même : "1,2" n'est pas une valeur correcte
ce qui est évident!
même en mettant n1:extended; etc...
j'arrive pas à trouver de solution , même sur les forums.
Peut être je cherche pas au bon endroit

Alors si quelqu'un peut m'aider ce serait sympa
MERCI
guy

ni69 · Accepted Answer

Je vois pas où est le problème....
Chez moi, ceci marche :
procedure TForm1.Button1Click(Sender: TObject);
var
n1 : Extended;
n2 : Extended;
begin
n1:=strtofloat(edit1.text);
n2:=(n1*100);
ShowMessage(FloatToStr(n2));
end;

Es-tu sur que tu tapes 1,2 avec une VIRGULE et pas avec un POINT (1.2)  :question) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

cs_grandvizir · Answer

Les nombres à virgule prennent une virgule lorsqu'ils viennent d'une chaîne. Dans Delphi, ils sont marqués par un point.

var n : integer;
n1, n2, n3 : extended;
begin
  n1:=StrToFloat(LEdit.Text);
  n2:=1.2;
  n:=1.2; //ERREUR !!!
  n:=round(1.2*100);
  n3:=n1 / n2;
//mais
  n := n1 div n2;
end;
===========
Validez les réponses si ok...

ViewVite : HTML - ZIP

ni69 · Answer

Ici, le nombre à virgule est dans l'Edit, pas dans le code à ce que j'ai compris...

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

DRJEROME · Answer

ça dépend comment XP est défini pur le séparateur

sinon tu choisis ton separateur dans formcreate pour ton application (tu peux même changer pour chaque fonction dans une même application)

DecimalSeparator:=',';//pour virgule
DecimalSeparator:='.';//pour point
DecimalSeparator:='t';pour tonne
DecimalSeparator:='€'; pour euro
//etc....ce que tu veux


DrJerome

ni69 · Answer

Pas bête DrJerome  ;) 
Merci pour l'astuce !

@+
Bonne Prog'
Nico

MULTIPLICATION DE NOMBRES

5 réponses

Votre réponse

Discussions similaires