Discussion :

[gougnougnou]

Bonjour tout le monde.

Je dois réaliser une application Delphi pour l'exam, mais j'ai un problème ; Je voudrais vérifier la valeur contenue dans une zone de saisie et que celle-ci soit UNIQUEMENT du numérique (4 caracteres). Comment fais t-on pour verifier la valeur saisie par l'utilisateur ??? J'ai chercher l'équivalence a la méthode isnumeric en vb sur internet, mais sans succés. Quelqu'un pourrait-il me donner une réponse ou une possibilité pour me permettre d'avancer. Je vous laisse mon adresse mail si vous voulez me répondre directement (nea1986@caramail.com). Merci d'avance

[Graffito]

Bonjour,

Un petit bout de code (qui évite des try ... except) :

Code :

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

1
2
3
4
5
6
7
 
var v,ierr : integer ;
 
val(edit1.text,v,ierr) ;
if ierr<>0 
   then showmessage(edit1.text+' non numérique') 
   else showmessage('v='+inttostr(v)) ;

[sofiane44]

Ou bien ajouter ce code dans l'événement "OnKeypress" de TEdit,pour éviter les contraints.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 
if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;
 
  if Key = DecimalSeparator then
      if Pos(DecimalSeparator, Edit1.Text) <> 0 then
      Key := #0;
 
  end;

[gougnougnou]

Merci graffito et sofiane44, je vais tester vos solutions et voir si j'arrive a résoudre mon probleme ...

[gougnougnou]

Merci, le code que vous m'avais fourni fonctionne et me permet de gérer le cas du type. J'ai tout de meme une préférance pour celui de sofiane. Néanmoins, comme puis-je faire pour limiter la longueur de la saisie à 4 caractères ??? Sofiane a tu la solution ???

[Pedro]

Néanmoins, comme puis-je faire pour limiter la longueur de la saisie à 4 caractères ??? Sofiane a tu la solution ???

et propriété MaxLength de TEdit