Discussion :

[Anthony17]

Bonjour à tous,

Je commence juste la programmation sur delphi. Je cherche le moyen d'entrer une valeur numérique (float ou autre) dans un champs. Ce que j'ai fait jusqu'a présent, j'ai rentré des valeurs dans une editBox et ensuite je converti la donnée saisie (string) en réel ou autre. Y a t-il un moyen de s'affranchir de cette converssion?

Merci

[helmis]

Bonjour

Code :

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

1
2
3
4
5
6
 
procedure TForm4.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in [#8, #13, '0'..'9']) then // 2
    Key := #0;                              // 3
end;

[qi130]

Y a t-il un moyen de s'affranchir de cette converssion?

Si tu envisages de faire des calculs avec cette valeur, tu devras la convertir en numérique....

Le code qui t'est proposé ci-dessus ne fait que contrôler que les caractères saisis sont valides dans un contexte numérique.
Cependant, en l'état, rien n'interdit de saisir 2 fois le point.

Je te conseille d'ores et déjà de t'intéresser à l'instruction try pour encadrer la conversion, afin d'intercepter d'éventuelles erreurs.