Premier caractère edit [Résolu]

manytime 23 Messages postés mercredi 18 janvier 2006Date d'inscription 2 avril 2008 Dernière intervention - 15 févr. 2006 à 14:57 - Dernière réponse : jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention
- 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
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 15 févr. 2006 à 16:28
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

Merci jlen100 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de jlen100
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 15 févr. 2006 à 16:22
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.