Discussion :

[yakoooza]

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

Code :

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

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???????????

[droggo]

Gie,

Quand tu écris

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 ?

[Ph. B.]

Bonjour,

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 !
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 :

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

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 :

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

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.

[Charly910]

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

@+