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 !