Premier caractère edit

Résolu
manytime Messages postés 23 Date d'inscription mercredi 18 janvier 2006 Statut Membre Dernière intervention 2 avril 2008 - 15 févr. 2006 à 14:57
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre 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.

2 réponses

jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
15 févr. 2006 à 16:28
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
3
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
15 févr. 2006 à 16:22
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
0