Discussion :

[st0nky]

pour le logiciel Delphi comment fait on pour tester si uniquement du texte est taper ou uniquement du numérique ??

(sans doute une question bete mais bon...)

merci d'avance

[Rayek]

Ca depend du/des composants.
Certain le font automatiquement, d'autres il faut que tu le codes directement dans les évènements OnKeypress ou OnKeyDown.

[st0nky]

oui désolé C dans une zone de saisie afin d'insérer ca dans une table via requete sur l'appuie d'un bouton valider!!
des précisions ?

[Rayek]

Zone Texte ou Zone numérique ?

[st0nky]

zone de saisie simple ou tu peux y mettre n'importe quoi et ce que je veux c'est gérer les erreurs pour l'insertion dans une table (si il faut un prénom faut qu'on puisse taper que du texte) !!

des réponses claires ?

[anapurna]

salut

dans l'evenement onkeypress
verifie la touche enfoncer
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 if Not(Key in ['0'..'9',#8,#13]) then
      key := #15;
 
   if key = #32 then
	key := #15;
   if key <> #0 then
     inherited keypress(key)

;

@+ Phil

[Harvester]

Méthode super barbare, a essayé, mais à ne pas utiliser .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
try showmessage(IntToStr(StrtoInt(edit1.text)));
except showmessage('Non numérique');

Ne penses-tu pas te servir d'une Array ?

[st0nky]

j'ai pas compris le code que t'as déposé, comment en appuyant sur le bouton validez ta fonction va vérifiez si ce qui a été taper dans la zone de saisie et juste du numérique ou juste du texte ?!

[Harvester]

Là c'est dans l'évènement OnKeyPress ( code d'anapurna ).

[Reisubar]

Eventuellement, tu peux regarder du côté de TryStrToInt(), pour tenter une conversion et gérer le cas où le texte entré n'est pas convertible (donc invalide)...

[anapurna]

salut

il existe une autre possibilite si le edit n'accepte que des chiffre et uniquement des chiffre

redefinir le creatparams

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Params.Style = Params.Style or ES_NUMBER ;

@+ Phil