Real syntaxe [Résolu]

Messages postés
78
Date d'inscription
lundi 25 octobre 2004
Dernière intervention
5 avril 2012
- - Dernière réponse : japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 4 nov. 2006 à 21:31
BONJOUR,

Edit1.text correspond au nombre 1
Edit2.Text correspond au nombre 2
Edit3.Text correspond au résultat de la division de ces 2 nombres.

Je veux diviser deux nombres et que leur résultats soit décimal (si c'est le cas biensûr) et voila se que j'ai écrit:  
 
var
Edit3 : Real;
Edit2 : Real;
Edit1 : Real;
begin
Edit3.text:=IntToStr(StrToInt(Edit2.Text) / (StrToInt(Edit1);

mais cela ne marche pas, il faut que je mette la class de l'Edit 3 -2 -1. Deplus, je ne sais pas si mon expression est bonne. Je n'ai rien trouvé qui puisse m'ader ni dans l'aide, ni dans le forum, ni sur google.

Merci d'avance pour votre aide
@+
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
3
Merci
Salut,

StrToInt : convertir un string en integer et non en flottant.

Function division ( Const number1,number2 : String ) : real;
Begin
result:=(StrToFloat(number1)/StrToFloat(number2));
ENd;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text:=FloatToStr(division(edit1.Text,edit2.text));
end;

Merci de valider si cela te convient

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 98 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
84
Date d'inscription
mardi 31 mai 2005
Dernière intervention
12 octobre 2007
0
Merci
donc soyons concis :

//var
//pas besoin de creer des var
begin
Edit3.text:=floattostr(strtofloat(Edit2.Text) / (strtofloat(Edit1.text));

remarque 1 : evidement tu dois tester que la valeur numérique de edit1.text, après conversion en Float soit diférent de zéro.

remarque 2 : vu ce que tu écris, tu dois vraiment être débutant , prend le emps de regarder les exemples fournis avec delphi 
Commenter la réponse de jace1975
Messages postés
78
Date d'inscription
lundi 25 octobre 2004
Dernière intervention
5 avril 2012
0
Merci
Merci beaucoup et je confirme je suis débutant
Commenter la réponse de buguetj
0
Merci
Pardon tu m'as devancé lol
Commenter la réponse de Utilisateur anonyme
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
EXTENDED bordel!!!!

le type Real est une merde finie!

soit on utilise Single pour les petite divisions, sois Extended ... les autres on s'en bat car ils provoques des bugs de precisions et de comparaisons.

Function division ( Const number1,number2 : String ) : extended;
Begin
result:=(StrToFloat(number1)/StrToFloat(number2));
ENd;

<hr size="2" width="100%" />Croc (click me)
Commenter la réponse de f0xi
Messages postés
2354
Date d'inscription
dimanche 5 octobre 2003
Dernière intervention
18 novembre 2010
0
Merci
"on la refait là, moins crispé !"
Commenter la réponse de JulioDelphi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
desolé ... stress qui passe mal sur double reinstalle d'un pc... Grrr

<hr size="2" width="100%" />Croc (click me)
Commenter la réponse de f0xi
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
0
Merci
Bah, buguetj veut peut-être privilégier la portabilité  ?
Commenter la réponse de japee

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.