problem de 'floattostr'

bon jour tt le monde
j'ai un pti prob le voila.

Code:

---

1 2 3 4 5 6 7

a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); if a=0 then c:=a+b; flottostr(c); */pour afiicher le rezultat dans edit3.text*/

---

sa ne marche pas aidez moi svp???????????

Gie,

Quand tu écris

Citation:

---

Envoyé par yakoooza

flottostr(c);

---

tu penses que ton programme comprend que c'est pour mettre la chaîne obtenue (que tu ne récupères d'ailleurs pas) dans ton edit3 ?

Bonjour,

Citation:

---

Envoyé par yakoooza

j'ai un pti prob le voila.
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
if a=0 then
c:=a+b;
flottostr(c);
*/pour afiicher le rezultat dans edit3.text*/

sa ne marche pas aidez moi svp???????????

---

Soyez précis dans la description de votre problème ! :roll:
Que voulez vous dire par "ça ne marche pas" ?
Y a-t-il un message d'erreur ?
L'affichage ne présente pas des données attendues ?
Ensuite utilisez la balise code pour présenter votre exemple que je modifierai comme suit afin de le rendre fonctionnel :

Code:

---

1 2 3 4 5 6 7

a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); c := StrToFloat(Edit3.Text); if a = 0 then c := a + b; // Correction Edit3.Text := FloatToStr(c);

---

Enfin, attention à ce qui est saisi dans vos composants TEdit, l'appel de la fonction StrToFloat pourrait déclencher une exception que l'on pourrait traiter comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

// Contrôle de saisie dans Edit1 try a := StrToFloat(Edit1.Text); except on E: Exception do begin MessageDlg(E.Message, mtError, [mbOK], 0); Edit1.SetFocus; Exit; end; end; // Contrôle de saisie dans Edit2 try b := StrToFloat(Edit2.Text); except on E: Exception do begin MessageDlg(E.Message, mtError, [mbOK], 0); Edit2.SetFocus; Exit; end; end; // Contrôle de saisie dans Edit3 try c := StrToFloat(Edit3.Text); except on E: Exception do begin MessageDlg(E.Message, mtError, [mbOK], 0); Edit3.SetFocus; Exit; end; end;   // Traitement if a = 0 then c := a + b; Edit3.Text := FloatToStr(c);

---

--
Philippe.

Bonjour,

si Yakoooza veut éviter les premiers "Try .. Except", il peut aussi utiliser la fonction TryStrToFloat :

function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;

Cette fonction renvoi False en cas d'erreur

@+