[Delphi] Conversion de types (single et string)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Conversion de types (single et string)

Nethacker

rule televisions, rule minds

Salut,
J'ai un message d'erreur qui dit que la division par zéro de virgule flottante ! bref j'ai pas de zéro, j'ai placé ce showmessage pour traquer l'erreur, m75 égale à un nombre petit 1.37...E-38, très petit au point qu'il est impossible de diviser ! j'ai aussi un avertissement qui dit que la variable r1 n'est peut être pas initialisé !
je ne sais pas d'où ça vient, de la vitesse d'exécution ?

Voila la procédure en question !

Code :

procedure TForm1.Button1Click(Sender: TObject);
var m75,m25,p75,p25,f75,f25 : single ;
r1,r2,r3,r4,r5 : single;
begin
m75 := strtofloat(labelededit1.text);
m25 := strtofloat(labelededit2.Text);
p75 := strtofloat(labelededit4.Text);
p25 := strtofloat(labelededit5.Text);
f75 := strtofloat(labelededit7.Text);
f25 := strtofloat(labelededit8.text);
{ m75 := single(labelededit1.text);
m25 := single(labelededit2.Text);
p75 := single(labelededit4.Text);
p25 := single(labelededit5.Text);
f75 := single(labelededit7.Text);
f25 := single(labelededit8.text); }
showmessage(floattostr(m75));
r1 := 2*(m75*(75/100)+m25*(25/100));
r2 := 2*(p75*(75/100)+p25*(25/100));
r3 := 2*(f75*(75/100)+f25*(25/100));
r4 := r1+r2+r3;
r5 := r4/r5;
labelededit3.Text := floattostr(r1);
labelededit6.Text := floattostr(r2);
labelededit9.Text := floattostr(r3);
labelededit10.Text := floattostr(r4);
labelededit11.Text := floattostr(r5);
end;

merci d'avance !

Message édité par Nethacker le 28-07-2008 à 20:29:22

---------------
God is one, not 2 nor 3!

Publicité

Flagad'aware

c pô moi, j'ai pas touché!

Salut,

je connais pas l'instruction single, pour moi c'est qu'un type, mais pourquoi tu fais pas plutôt:

m75 := strtofloat(labelededit1.text);

ça parrait plus logique

à mon avis m75 := single(labelededit1.text); c'est foireux donc ça te donne un resultat aléatoire dans M75

après, peut être que le compilo te dis que R1 n'est pêtre pas initialisée du fait que la ligne m75 := single(labelededit1.text); n'est apas sencée initialiser proprement m75 et m25

c'est qu'un avis mais utilise plutôt strtofloat

Nethacker

rule televisions, rule minds

Salut,
Je ne sais pas si ce single() existe mais je croyais que ça marchait tout comme Pchar() ! je vais essayer strtofloat()

merci !

Edit :
essai ... showmessage m'affiche la valeur entrée ! ^^ merci bien
et toujours l'erreur division par zéro de virgule flottante, la ligne 16 devient rouge !
r5 := r4/r5;

Merci d'avance !

Message édité par Nethacker le 28-07-2008 à 20:31:13

---------------
God is one, not 2 nor 3!

Nethacker

rule televisions, rule minds

l'initialisation de r5 ne peut être effectué !

Edit: réglé en déclarant les variables en début et pas seulement pour la procédure !

Message cité 1 fois
Message édité par Nethacker le 28-07-2008 à 20:31:05

---------------
God is one, not 2 nor 3!

Nethacker

rule televisions, rule minds

J'ai ajouté un showmessage juste avant la ligne d'erreur et ça marche !
donc c'est dans la division je vais essayer de remplacer / par div !
XD

---------------
God is one, not 2 nor 3!

Flagad'aware

c pô moi, j'ai pas touché!

Nethacker a écrit :

l'initialisation de r5 ne peut être effectué !

Edit: réglé en déclarant les variables en début et pas seulement pour la procédure !

méthode du gros goret [:athlonxp2100+] je sais meme pas comment ça peut marcher

j'avais pô vu...

r5 := r4/r5; -> bah ça peut pas aller, déja r5 n'est pas initilalisée et en plus tu recalcule ça valeur en la recalculant sur elle-meme n'étant pas init... :ange:

je sais pas ce que tu compte faire mais ça sert à rien :??:

en fait R5 ne sert à rien à moins que t'ai oublié un truc dans ce que tu as à faire

ReEdit: sinon div ça doit être mieux que / mais à confirmer

Message cité 1 fois
Message édité par Flagad'aware le 28-07-2008 à 21:17:39

Nethacker

rule televisions, rule minds

lol j'avais pas fait attention xD ! merci beaucoup en fait c'est r4/5 lol mais dit quel con je suis !

Merci bien xD

---------------
God is one, not 2 nor 3!

Nethacker

rule televisions, rule minds

Flagad'aware a écrit :

méthode du gros goret [:athlonxp2100+] je sais meme pas comment ça peut marcher

les variables sont initialisés rapidement ! après tu calcules et tu fais des opérations il se peut que r5 la dernière avant les grosses opérations xD ! ne se déclare pas !

Message cité 1 fois

---------------
God is one, not 2 nor 3!

Flagad'aware

c pô moi, j'ai pas touché!

tu parle, ça arrive toujours ce genre de fautes pis c'est galère à débugger des fois

Flagad'aware

c pô moi, j'ai pas touché!

Nethacker a écrit :

les variables sont initialisés rapidement ! après tu calcules et tu fais des opérations il se peut que r5 la dernière avant les grosses opérations xD ! ne se déclare pas !

yes, elle est déclarée mais pas initialisé alors elle a quand meme une valeur qui permet un espèce de calcul

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Conversion de types (single et string)

Sujets relatifs
Erreur List<String[]> et validation du code dans une JSP ?	Découper efficacement une String (parsage)(String.split,Tokenizer,etc)
Lancer une méthode javascript à partir d'un string	comment convertir un StreamResult en String ?
[Réglé] ip:port en char traduire en decimal. master query	supprimer un élément de ma table de string
[Resolu]Delphi/Directx : Plus d'image en grande résolution	Récuperer types composites en MYSQL/PHP
[C] Probleme types de variables - Debutant	conversion de matlab à scilab?
Plus de sujets relatifs à : [Delphi] Conversion de types (single et string)

Page générée en 0.066 secondes