Real syntaxe [Résolu]

buguetj 78 Messages postés lundi 25 octobre 2004Date d'inscription 5 avril 2012 Dernière intervention - 3 nov. 2006 à 17:56 - Dernière réponse : japee 1799 Messages postés vendredi 27 décembre 2002Date d'inscription 19 juillet 2018 Dernière intervention
- 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
Utilisateur anonyme - 3 nov. 2006 à 18:14
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

Merci Utilisateur anonyme 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 73 internautes ce mois-ci

Commenter la réponse de Utilisateur anonyme
jace1975 84 Messages postés mardi 31 mai 2005Date d'inscription 12 octobre 2007 Dernière intervention - 3 nov. 2006 à 18:08
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
buguetj 78 Messages postés lundi 25 octobre 2004Date d'inscription 5 avril 2012 Dernière intervention - 3 nov. 2006 à 18:12
0
Merci
Merci beaucoup et je confirme je suis débutant
Commenter la réponse de buguetj
Utilisateur anonyme - 3 nov. 2006 à 18:16
0
Merci
Pardon tu m'as devancé lol
Commenter la réponse de Utilisateur anonyme
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 4 nov. 2006 à 17:38
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
JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention - 4 nov. 2006 à 17:44
0
Merci
"on la refait là, moins crispé !"
Commenter la réponse de JulioDelphi
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 4 nov. 2006 à 18:27
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
japee 1799 Messages postés vendredi 27 décembre 2002Date d'inscription 19 juillet 2018 Dernière intervention - 4 nov. 2006 à 21:31
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.