Discussion :

[breizh44]

Sur mon appli j'ai créé un bouton qui décoche toutes mes checkbox et radiobutton, et qui me remet 2 edit vierges. Le problème est que dans ces edit je tape des chiffres et quand je clique sur ce bouton cela me met le message suivant :

'' n'est pas une valeur en virgule flottante correcte.

Le problème vient il de ma conversion strtofloat?

N'existe-t-il pas une synthaxe du style val(edit1.text) ?

[breizh44]

Ci joint le code du bouton.

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
 
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text := '';
edit2.text := '';
edit3.text := '';
comboboxex1.text :=  'Type de sonde';
comboboxex2.text :=  'Tête/Connecteur';
comboboxex3.text :=  'Raccord';
checkbox1.Checked := false;
checkbox2.Checked := false;
checkbox3.Checked := false;
checkbox4.Checked := false;
checkbox5.Checked := false;
checkbox6.Checked := false;
checkbox7.Checked := false;
checkbox8.Checked := false;
checkbox9.Checked := false;
checkbox10.Checked := false;
checkbox11.Checked := false;
checkbox12.Checked := false;
radiobutton1.checked := false;
radiobutton2.checked := false;
radiobutton3.checked := false;
radiobutton4.checked := false;
radiobutton5.checked := false;
radiobutton6.checked := false;
radiobutton7.checked := false;
radiobutton8.checked := false;
radiobutton9.checked := false;
radiobutton10.checked := false;
radiobutton11.checked := false;
radiobutton12.checked := false;
radiobutton13.checked := false;
radiobutton14.checked := false;
radiobutton15.checked := false;
end;

[ero-sennin]

Pour moi, tout est OK.
Sur quelle ligne l'erreur est générée ?

[breizh44]

Ca m'affiche une Message box, avec le texte indiqué ci dessus...

En fait dans mon appli je suis obligé de déterminer si la valeur que je rentre dans l'Edit1 est supérieure à 10. Si elle est inférieure je dois rajouter un 0 devant cette valeur dans un label.

Ca, ça marche très bien. C'est quand je tape edit1.text = '' que la message box s'affiche;

[ero-sennin]

Je viens de tester, et je suis bête
Si l'Edit en question ne doit contenir que des chiffres, initialise le à 0 et non à vide

[breizh44]

oui, mais quid de la saisie d'une nouvelle valeur?

Si l'edit est initialisé avec un 0, lors de'une nouvelle saisie si la valeur est inférieure à 10, j'aurais dans mon label 006 et non 06 !

[Teo]

Slt

Il me semble que c'est la non protection du
StrToFloat qui enerve ton appli

Dans les "OnChange" de tes Edit, peut etre peux tu proteger la conversion. S'il n'y a rien dans l'edit alors pas de conversion
avec un code du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Edit1Change(Sender: TObject);
var d : real;
begin
  label4.Caption := edit1.text ;
  If edit1.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  d := sysutils.strtofloat(edit1.text) ; 
if d < 10 then
  label4.Caption := '0' + edit1.text
 end;

ou alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Edit1Change(Sender: TObject);
var d : real;
begin
  label4.Caption := edit1.text ;
  Try
    d := sysutils.strtofloat(edit1.text) ; 
  Except
    D := 0;//On etouffe l'erreur et on prend partie par rapport a l'exception
  End;
if d < 10 then
  label4.Caption := '0' + edit1.text
end;

[philnext]

et le StrToFloatDef ? Il sent la marée pas fraiche ??

[ShaiLeTroll]

Il y a aussi TryStrToFloat ... à partir de D7

[breizh44]

Ok Merci Teo, ton code marche très bien.

Merci beaucoup.

Kenavo.