VERIFIER SI LE CONTENU D'UN TEDIT EST UN NOMBRE ENTIERRésolu

Question

j'aimerais savoir comment on peut controler que la saisie dans un TEdit soit bien un nombre entier? (donc pas de caractères, juste une suite de chiffres).

Merci d'avance

Loulibier · Accepted Answer

salut yvescollet,

  il te suffit de filtrer la saisie de ton TEdit dans le OnKeyPress.

procedure TWndBanderoleuse.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // #8 permet la suppresion du dernier caractère.
  case Key of
    '0'..'9', #8 :;
    else
      Key := #0;
  end;
end;


Bonne Prog,

Olivier.

lelahel08 · Answer

Pour un TEdit simple verifier avec la methode OnChange du TEdit

Sinon verifier quand tu veux effectuer l'action qui a besoin de cet entier

Sinon utiliser un MaskEdit pour s'assurer de la sisie d'un entier

koaiz · Answer

Hug Visage pal  yvescollet

Tu peut aussi utiliser la methode suivante

la varriable CODE donne le resultat 0 pour un entier et un resultat different pour les autre carractere.


procedure TForm1.Button1Click(Sender: TObject);
Var X,Code :Integer;
begin
Val(Edit1.Text,X,Code);
If Code=0 Then Showmessage('C''est un entier') Else
Showmessage('erreur');
end;


que la paix soit avec vous

nn2009 · Answer

essyer ceci 
procedure TModifier_Patient.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)])            or (Key DecimalSeparator) or ( Key '.') then
Key := #0;
end

vous ne pouvez saisir que des chiffre de 0 à 9
bonne chance

JulioDelphi · Answer

et si je fais "clic droit" "coller" avec le texte "gotchaaaa" ça donne quoi votre code ? n'ayant rien tapé au clavier ... cet evènement ne va jamais se déclencher ...

Il suffirait de faire (sur le OnExit par exemple) :
if (StrToIntDef(Edit1.Text, MaxInt)) = MaxInt then
begin
  Showmessage('Erreur, le champ ne doit contenir que des chiffres !');
  Edit1.Clear;
end;

a+

nn2009 · Answer

Merci JulioDelphiton code a bien fonctionner avec le mien 
Merci encore.
t'as pas une idée comment filtrer une table avec un edit qui ne doit contenir que des chiffres.
j'ai utiliser ce code mais ça n'a pas marché
Adotable1.Filtered:=false;
if edit1.Text ='' then exit;
AdoTable1.Filter := 'inttostr(Code_Patient) LIKE ('+''''+edit1.Text+'%'+''''+')';
AdoTable1.filtered := True;

je veut filtrer ma table au fur et à mesure que je tapes le code patient qui est un entier ! ?
any help will be great from you

VERIFIER SI LE CONTENU D'UN TEDIT EST UN NOMBRE ENTIER

6 réponses

Votre réponse

Discussions similaires