Premier caractère edit [Résolu]

Messages postés
23
Date d'inscription
mercredi 18 janvier 2006
Dernière intervention
2 avril 2008
- - Dernière réponse : jlen100
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
- 15 févr. 2006 à 16:28
Salut.
J'ai un edit et je souhaiterai que lorsque l'on quitte l'edit, on vérifie le premier caractère.
Si c'est un chiffre alors ' message d'erreur ' et l'edit récupère le focus.
En fait je veut une autre solution que si edit =1, si edit=2, si edit=3.....
Merci à tous.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
3
Merci
j'ai été un peu vite il faut rajouter un test de chaine vide sous peine de plantage

procedure TForm1.Edit1Exit(Sender: TObject);

begin

if (edit1.Text<>'')and(edit1.Text[1] in ['0'..'9']) then

begin

MessageDlg('Valeure interdite', mtError , [mbOk], 0);

edit1.SetFocus;

end;

end;

@+

jlen

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 98 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jlen100
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
0
Merci
salut ,


dans le OnExit de ton edit


procedure TForm1.Edit1Exit(Sender: TObject);


begin


if edit1.Text[1] in ['0'..'9'] then


begin


MessageDlg('Valeure interdite', mtError , [mbOk], 0);


edit1.SetFocus;


end;


end;





@+


jlen
Commenter la réponse de jlen100

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.