Discussion :

[sp2308]

Bonjour

Je fais le calcul suivant que j 'ai volontairement décomposé pour trouver d'où venait le probleme sans pour autant y parvenir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dtemp1 := strtofloat(d3);
        dtemp2 := strtofloat(List[I]);
        dtemp := dtemp1 - dtemp2;

J ai d3=2, list[i]=1.1

J attends donc tout a fait legitimement un dtemp=0.9 mais mon resultat est 17.9
Par contre, si je saisis en dur mes valeurs strtofloat('2') et strtofloat('1.1') j'ai bien le resultats attendu !

Pouvez-vous m'aider parceque là je seche.
Merci

Stéphane

[Charly910]

Bonjour,
tu es sûr que i est bien initialisé ?

As tu affiché d3 et List[i] dans un messagebox ?

A+
Charly

PS : tu as le point comme séparateur décimal ?

[sp2308]

Merci de prendre le temps sur mon probleme...

Oui tout est initialisé correctement et le separateur decimal est bien le point.
Jutilise le code suivent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
diff_rmp :=strtofloat(d3) - strtofloat(List[I]);
        dtemp := 0;
      //  dtemp1 := strtofloat(d3);
       // dtemp2 := strtofloat(List[I]);
        dtemp1 := strtofloat('2');
        dtemp2 := strtofloat('1.1');
        dtemp := dtemp1 - dtemp2;
 
      Memo1.Lines.Add(List[I] +'*****' + d1 + '*****' + floattostr(diff_rmp) +'*****' + floattostr(dtemp));

le resultat est

1.1 ***** 2 ***** 17.9 ***** 0.9

merci de ton aide

[F@bien.fd]

Pour vérifier , je ferais d'abord...

Memo1.Lines.Add(**1*** d3 = ' + d3 + ' ***** ' + 'List[' + intostr(i) +'] = ' + List[I]);
dtemp1 := strtofloat(d3);
dtemp2 := strtofloat(List[I]);
Memo1.Lines.Add(**2*** dtemp1 = ' + floattostr(dtemp1) + ' ***** dtemp2 = ' + floattostr(dtemp2));
dtemp := dtemp1 - dtemp2;
Memo1.Lines.Add(**3*** dtemp = ' + floattostr(dtemp));

[sp2308]

Merci tu m as fait pendre conscience de mon erreur...
Donc tout est calculé nickel des lors ou je mets la bonne variable...

[F@bien.fd]

Merci tu m as fait pendre conscience de mon erreur...
Donc tout est calculé nickel des lors ou je mets la bonne variable...

Il m'est déjà arrivé de commettre l'erreur d'indice suivant... avec -1 attribué à un TList pour ne plus avoir d'item apparent et puis de faire pour vérifier...

i := -1;
Liste.ItemIndex := i;
Memo1.Lines.Add( 'List[' + intostr(i) +'] = ' + Titre.Items[i]);