FORUM MP | Delphi : Controle de saisie dans un TEdit

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Controle de saisie dans un TEdit
	Forum : DELPHI Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ DELPHI
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM DELPHI
	Page précedente	Page suivante

alya
Nouveau membre

Inscrit : 22/03/2007
Messages : 8

#127954 Posté le 22/03/07 à 17:55

Bonjour tout le monde
Dans le but de réaliser mon projet de représentation graphique d'un "réseau Maillé" je veux controler la saisie obligatoire d'un entier dans un TEdit et que dans le cas contraire un message lui soit affiché (précisant que c'est un entier qui doit etre saisie). Même chose pour la saisie obligatoire d'un string.
Merçi de m'avoir aidé...............

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

vulkan
Modérateur :
- C
- Algorithmes

Inscrit : 12/11/2006
Messages : 357

#127985 Posté le 23/03/07 à 07:41

utilise une combinaison d'évènement onkeypress et de la propréité readonly
pour l'affichage d'un message : showmessage

pour la saisie d'entier uniquement :

if ((key<'0')or(key>'9')) then begin edit1.ReadOnly := true; ShowMessage ('Entrez un entier'); end else edit1.ReadOnly := false;

comme cela, si tu saisie un caractère, ca se met en readonly := true donc impossible de saisir, et si c'est un chiffre ben tu peux saisir

pour la saisie d'un caractère uniquement

if ((key<'a')or(key>'z')) then begin edit1.ReadOnly := true; ShowMessage ('Entrez un caractère'); end else edit1.ReadOnly := false;

voili voilou j'espère que ca te convient !
__________________________

HAUT DE PAGE

alya
Nouveau membre

Inscrit : 22/03/2007
Messages : 8

#128020 Posté le 23/03/07 à 13:52

Merci de m'avoir repondu. Mon problème à ce niveau est réglé.
Mais ce n'est pas encore fini. Je vous pris de vous penchez un peu sur mon problème de représentation graphique en Delphi que j'ai déja posé sur le forum
J'espere vous lire bientôt............

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 81

#128054 Posté le 23/03/07 à 19:03

Je ne sais pas si sa marche pour ton cas mais pour rentrer que des nombres, tu a le SpinEdit
apres pour vérifier que c'est bel et bien un entier tu peu faire :

procedure TForm1.SpinEdit1Change(Sender: TObject); var s : integer; begin try s := SpinEdit1.Value; except Showmessage('Entrer un entier car ce n''est pas un entier'); end; Showmessage(inttostr(s)); end;

Chui pas sur que la source marche, je l'ai essayer et sa marche pa chez moi mai je voi pa ou est le bugg?!
Maintenan, je ne peut que te conseiller de faire la technique à vulkan, mais bon comme sa tu aura le choi Smiley

Au fait si vous pouvez me dire se qui marche pas dans ma source, pck sur mon ordi ( depuis aujourdui) quand je marque une ',' dans le spinedit, sa devrai passer au 'except' mais sa me dit juste que c pa possible... où est mon bug ?!
__________________________
Blademan1

HAUT DE PAGE

fatmabat
Nouveau membre

Inscrit : 20/05/2008
Messages : 1

#153281 Posté le 20/05/08 à 15:13

salut;
j'ai fait le même code et mon message s'affiche mais mon probléme est quand je valide il continué a debogué le programme

HAUT DE PAGE

djmmix
Nouveau membre

Inscrit : 17/01/2006
Messages : 1

#154848 Posté le 08/07/08 à 22:44

salut ton erreur sur le code est ici ^^

s := SpinEdit1.Value; mettre à la place : s:=strtoint(SpinEdit1.value);

HAUT DE PAGE


	Page précédente	Page suivante
FORUM DELPHI

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.