Recherche d'entier dans un TEdit

Réponse acceptée !

1ere solution :
try
  entier := StrToInt(Edit1.Text);
except
  // N'est pas un entier
end;

2eme solution, si l'entier saisi doit être positif par exemple
entier := StrToIntDef(Edit1.Text, -1);
if Entier = -1 then
  FaireQuelqueChoseQuandCEstPasUnEntier;

3eme solution :
function EstEntier(S : string) : bolean;
begin
  result := false;
  if (s = '') or (s = '-') then exit;
  for i := 1 to length(s) do
    if not (s[i] in ['-','0'..'9']) then exit;
  result := true;
end;

Roud59

Réponse acceptée !
salut;
tu peux aussi utiliser le composant Tspinedit qui assure tous les filtrages a la saisie  avec en plus la possibilite de fixer des limites  aux  valeurs autorisées
bonne prog

Réponse acceptée !
Salut,
Pour moi il y a deux solutions, soit tu vérifies qu'une fois le text rentré dans le tedit, c' est un nombre, ou alors tu utilise l'évenement onkeypress du tedit.
Ainsi tu pourra vérifier que les touches préssées sont bien des touches numériques. Cependant si ton nombre est négatif, tu dois pouvoir aussi mettre un signe - comme premier caractère ( quand length(edit.text):=0 ).
Voilà.
Bonne continuation.