Erreur de saisi [Résolu]

Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
- - Dernière réponse : manil01
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
- 25 déc. 2007 à 23:46
bonjour
comment afficher un message en cas d erreur d'ecriture dans un edit par exemple je dois faire entrer un nom mais par erreur de frape je saisi un entier

<!-- / message -->
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
298
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
3
Merci
Bonjour manil01 ;-)

en réponse à votre question j'ai qlq idées à vous proposer

pour limiter la saisie dans un TEdit en sisissant que les entiers voilà, vs pouvez utiliser le code suivant:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9',#8] then key:=key else key:=#0;
end;

et pour vous préciser et de répondre à votre question utilisez le code suivant:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then
begin
key:=#0;
ShowMessage('Votre message d''érreur');
end;
end;

Bonne chance, et bonne programmation.
haftari.fouad

Dire « Merci » 3

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

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

Commenter la réponse de HAFTARIFOUAD
Messages postés
4233
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 juillet 2019
32
0
Merci
Salut,

utilise un MaskEdit à la place d'un Edit
et tu n'auras pas besoin de faire la gestion des touches comme le propose HaftariFouad

 
@+
Cirec

<hr siz="" />
Commenter la réponse de Cirec
Messages postés
298
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
0
Merci
Salut;

oui oui c mieu Merci bcp Monsieur Cirec

@+

haftari.fouad.
Commenter la réponse de HAFTARIFOUAD
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
0
Merci
merci beaucoup j ai pu resoudre le problem
Commenter la réponse de manil01