Premier caractère edit

Résolu
Signaler
Messages postés
23
Date d'inscription
mercredi 18 janvier 2006
Statut
Membre
Dernière intervention
2 avril 2008
-
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
-
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.

2 réponses

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
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
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
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