Comment puis-je vérifier qu'une zone de texte ne contient que des nombres en Delphi?

Je ne comprends pas pourquoi vous voulez permettre à un utilisateur d'entrer un caractère, et, plus tard, de ne pas lui permettre de passer de validation.

Si vous avez vraiment besoin de bloquer l'entrée, puis un contrôle qui fait cela pour vous, c'est mieux que ce piratage vous-même. Si votre version de delphi est vraiment vieux, puis essayer de la JVCL: TJvValidateEdit dans la JVCL bibliothèque de composants, par exemple, dans toutes les versions de delphi. Cependant, régulières, les dernières versions de delphi (2009 et plus), il est déjà intégré dans plusieurs solutions possibles, y compris TMaskEdit et TSpinEdit.

Si vous avez vraiment besoin d'écrire une méthode de validation, puis envisager d'utiliser une regex ou codés à la main, les fonctions de validation, et de garder ce code distinct du contrôle.

// Taking OP question obsessively literally, this 
// function doesn't allow negative sign, decimals, or anything
// but digits
function IsValidEntry(s:String):Boolean;
var
  n:Integer;
begin
  result := true;
  for n := 1 to Length(s) do begin
    if (s[n] < '0') or (s[n] > '9') then
    begin
       result := false;
       exit;
    end;
  end;
end;

OriginalL'auteur Warren P

Je sais que vous avez dit user can enter any char but at the time of validation.

Cependant, je voudrais proposer une alternative, car il semble très stupide pour permettre à un utilisateur d'entrer des valeurs, seulement pour se plaindre de l'utilisateur 1 minute plus tard; qui sent juste bien... pas bien.

Je voudrais interdire l'entrée de rien, mais des numéros.

Si vous avez des entiers c'est particulièrement facile:

Remplir l'événement OnKeyPress pour editbox.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char) ;
begin
  if not(Key IN ['0'..'9', #8, #9, #13, #27, #127]) then key:= #0;
end;

Cela supprime tout ce qui n'est pas un numéro.

Si vous autorisez les nombres négatifs, vous aurez besoin de supplément de vérification pour voir si le - n'a pas été saisi avant.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char) ;
var
  Edit1Text: string;
begin
  if (Key = '-') and Pos('-',Edit1.Text) = 0 then begin
    Edit1.Text:= '-' + Edit1.Text;  //Force the '-' to be in the front.
  end
  else if (Key = '-') and Pos('-',Edit1.Text) <> 0 then begin  //else flip the sign
    Edit1Text:= Edit1.Text;
    Edit1.Text:= StringReplace(Edit1Text, '-', '',[]);
  end;
  if not(Key IN ['0'..'9', #8, #9, #13, #27, #127]) then key:= #0;
end;

Car l'utilisateur peut également coller des données dans une zone d'édition, vous devrez toujours vérifier les données lors d'un changement dans le texte de l'édition.

Parce que c'est assez délicat dans l'événement ONKeyPress-je utiliser un custom modifier le composant qui fait ce genre de vérification et empêche l'utilisateur d'entrer un pied dans la bouche d'entrée dans une zone d'édition.

Personnellement, je ne crois pas à jamais de l'émission d'un message d'erreur, vous devriez toujours s'efforcer de ne pas permettre à l'utilisateur d'entrer des données non valides dans la première place.

OriginalL'auteur Johan