Probleme avec un MaskEdit
CHAFID
Messages postés
5
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
28 septembre 2010
-
26 sept. 2010 à 15:06
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 26 sept. 2010 à 18:29
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 26 sept. 2010 à 18:29
1 réponse
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
26 sept. 2010 à 18:29
26 sept. 2010 à 18:29
Salut,
essayes comme ça:
Dans l'évènement "OnExit" du MaskEdit:
[hr]procedure TForm1.MaskEdit1Exit(Sender: TObject);
[b]var
/bP: PAnsiChar;
I, aLen: Integer;
[b]begin
/bP := PAnsiChar(Maskedit1.Text);
aLen := Length(Maskedit1.Text);
for I : = 1 to aLen [b]do
begin
if not /b(P^ in ['0'..'9','-']) [b]then
begin
/bshowmessage('Veuillez saisir un numéro de téléphone valide !');
maskedit1.setfocus;
Break;
end;
Inc(P);
end;
end;
[hr]
le caractère '-' étant le caractère de séparation par défaut du MaskEdit pour un Mask de saisi téléphone
[hr]@+Cirec
[hr]
essayes comme ça:
Dans l'évènement "OnExit" du MaskEdit:
[hr]procedure TForm1.MaskEdit1Exit(Sender: TObject);
[b]var
/bP: PAnsiChar;
I, aLen: Integer;
[b]begin
/bP := PAnsiChar(Maskedit1.Text);
aLen := Length(Maskedit1.Text);
for I : = 1 to aLen [b]do
begin
if not /b(P^ in ['0'..'9','-']) [b]then
begin
/bshowmessage('Veuillez saisir un numéro de téléphone valide !');
maskedit1.setfocus;
Break;
end;
Inc(P);
end;
end;
[hr]
le caractère '-' étant le caractère de séparation par défaut du MaskEdit pour un Mask de saisi téléphone
[hr]@+Cirec
[hr]
