Discussion :

[copeau31]

bonjour,
alors voila, j ai un code tout simple, et un strtofloat qui ne fait RIEN...
ma variable (ici, le single buf2) n'est pas affectee...
j'utilise floattostr et strtofloat un peu partout dans mon code et ca marche bien, sauf la...

j'aimerais savoir si qqn a deja rencontre ce phenomene ?

voila le code foireux:

Code :

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

1
2
3
4
5
6
7
var
 bufTxt: string;
 buf,buf2: single;
 
bufTxt:= floattostr(monFloat); // marche
buf2:= strtofloat(bufTxt);        // marche PAS
Buf := strtofloat(Edit.Text);     //marche

[Modération]
Merci d'utiliser les balises code ou quote, Laurent Dardenne
[/Modération]

[Harry]

Quel est l'erreur ? (si il y a erreur ? Rien ?)

Verifie bien le contenu de bufTxt avant le strtofloat (donnes nous le contenu, et compare le au contenu du Edit).

[copeau31]

il n'y a pas d 'erreur, ni a la compil, ni a l exe..
je regarde en pas a pas
et en fait c pire que ce que je croyais : c pas le strtofloat qui plante.

j ai remplace la ligne qui mqrchqit pas par
Buf2 := 10;
eh ben apres cette ligne, buf2 vaut encore 0...

j ai resolu mon probleme autrement, mais je me pose des question sur la stabilite de mon truc mtn

bref.
merci Harry

[tourlourou]

pê que si buf2 n'est pas utilisé dans la suite du code, le compilo ignore la ligne ?

[copeau31]

oui sans doute
mais d'hab il met 'valeur non accessible' pendant le debug pour les trucs qu il ignore.
toutefois, je pense que c bien ca la raison.
++

[OutOfRange]

Salut
Bizarre...
J'ai testé ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
 
var
monfloat:currency;
bufTxt: string;
buf,buf2: single;
begin
monfloat:=2106.1959;
bufTxt:= floattostr(monFloat);
showmessage(buftxt);              //affiche 2106.1959
buf2:= strtofloat(bufTxt);
showmessage(floattostr(buf2));    //affiche 2106.19580078125
 
end;

qui m'affiche les valeurs indiquées, jamais zéro
Mais j'ai peut-être pas toutes les pièces du puzzle
...

[copeau31]

oui bizarre

autant hier je pouvais pas y couper
autant aujourd'hui je suis incapable de reproduire le phenomene.
donc j ai laisse tomber.
peut etre le reboot du matin aura eu raison de tout ca.
++