BlueGEEK Journal

Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Exercices > Addition > Comment Controler la saisie d’un nombre avec MaskEdit ?

Comment Controler la saisie d’un nombre avec MaskEdit ?

samedi 19 avril 2008, par bluegyn_spip

Si nous reprenons le programme de l’addition de 2 champs Textes :

- Si l’utilisateur saisit par erreur une lettre au lieu d’un chiffre

- La conversion StrToInt échoue et le programme s’arrête.

Delphi a trouvé un moyen simple de contrôler la saisie correcte des valeurs d’un champ :

* MASKEDIT

*Remplaçons les 2 champs EDIT par 2 champs MaskEdit

*-ONGLET =>

Supplément


Le Masque de saisie se paramètre par la propriété EditMask

* EditMask = 99 mm ;0

- 99 = Saisir un Ou 2 chiffres

- mm = Unité proposée = millimètre

-  ;0 = Zéro signifie que le texte résultant (MaskEdit.text) prend juste en charge les Chiffres et pas l’unité

Le code devient

nombre_1 :=  strtoint(form1.MaskEdit1.text);

nombre_2 :=  strtoint(form1.MaskEdit2.Text);

Somme      := Nombre_1 + Nombre_2;