Conversion integer en extended [Résolu]

Messages postés
6
Date d'inscription
mardi 5 juillet 2005
Dernière intervention
5 juillet 2005
- - Dernière réponse : cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Dernière intervention
15 décembre 2014
- 5 juil. 2005 à 12:12
Bonjour,
je voudrais savoir comment on peu convertir un interger en extended ..
merci d'avance
Afficher la suite 

Votre réponse

12 réponses

Meilleure réponse
Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Dernière intervention
31 juillet 2008
3
Merci
ah bah oui, normal, tu transformes pas un entier en extended mais un extended en entier...

c'est quoi ton but ? d'ecrire le resultat dans edit6 ?

si c'est ca, faut juste mettre Edit6.Text:=floattostr(total);

exyacc

Dire « Merci » 3

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

Codes Sources a aidé 105 internautes ce mois-ci

Commenter la réponse de exyacc
Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Dernière intervention
31 juillet 2008
0
Merci
ben moi j'affecterai direct, normalement y'a pas de probleme...



var a:extended;

b:integer;

a:=b;


non ?


exyacc
Commenter la réponse de exyacc
Messages postés
6
Date d'inscription
mardi 5 juillet 2005
Dernière intervention
5 juillet 2005
0
Merci
non ca ne marche pas...
Commenter la réponse de hiro05
Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Dernière intervention
31 juillet 2008
0
Merci
c'est a dire ?


exyacc
Commenter la réponse de exyacc
Messages postés
6
Date d'inscription
mardi 5 juillet 2005
Dernière intervention
5 juillet 2005
0
Merci
il me met toujours l'erreur "types incompatible : integer et extended"..
Commenter la réponse de hiro05
Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Dernière intervention
31 juillet 2008
0
Merci
hummm, tu peux me montrer le bout de code ?

exyacc
Commenter la réponse de exyacc
Messages postés
6
Date d'inscription
mardi 5 juillet 2005
Dernière intervention
5 juillet 2005
0
Merci
voila en faisant com tu m'a dit:

total : extended;
note1 : integer;
note2:string;

total:= StrToInt(Edit1.Text)*0.2+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text)+StrToInt(Edit5.Text);
note1:= total ;
note2 := IntToStr(note1);
Edit6.Text:=note2
Commenter la réponse de hiro05
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
0
Merci
salut

la solution de exyacc marche dans le sens integer --->> extended
et tu fais extended -->integer dans ce cas tu dois utoliser la
fonction trunc

note1:=Trunc(Total)
Commenter la réponse de jlen100
Messages postés
6
Date d'inscription
mardi 5 juillet 2005
Dernière intervention
5 juillet 2005
0
Merci
Merci beaucoup pour votre aide!!!!!!!!!
c'est super sympa exyacc ;)
a+
Commenter la réponse de hiro05
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Dernière intervention
15 décembre 2014
0
Merci
Il me parait evident que total doit etre un Integer aussi!
Commenter la réponse de cs_MAURICIO
Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Dernière intervention
31 juillet 2008
0
Merci
ben non, s'il veut un reel, il a le droit ! lol

tu peux avoir par exemple des notes qui sont des entiers, et vouloir
calculer une moyenne ou un nombre de point et avec le jeu de
coefficient, tu obtiens un reel....
exyacc
Commenter la réponse de exyacc
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Dernière intervention
15 décembre 2014
0
Merci
Oui mais total ne servait qu' à calculer une valeur.
Total sera après convertit et ne semble pas être utilisé autre part.
Donc, il aurait pû faire total := Round(calcul) avec total de type integer...
Commenter la réponse de cs_MAURICIO

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.