Recherche d'entier dans un TEditRésolu

Question

Bonjour,
je besoin d'un ptit conseil car j'ai cr&#233;&#233; un ptit programme qui va me permettre notamment de saisir des entiers dans un TEdit et j'aurais voulu savoir comment on peut faire une condition pour v&#233;rifier si le texte saisi est bien un entier.

Merci d'avance pour vos r&#233;ponses.

roud59 · Accepted Answer

1ere solution :
try
  entier := StrToInt(Edit1.Text);
except
  // N'est pas un entier
end;

2eme solution, si l'entier saisi doit &#234;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

roud59 · Answer

Encore une solution : utiliser un TMaskEdit

Roud59

jlen100 · Answer

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&#233;es

bonne prog

cs_sim51 · Answer

Salut,

Pour moi il y a deux solutions, soit tu v&#233;rifies qu'une fois le text
rentr&#233; dans le tedit, c' est un nombre, ou alors tu utilise l'&#233;venement
onkeypress du tedit.

Ainsi tu pourra v&#233;rifier que les touches pr&#233;ss&#233;es sont bien des touches
num&#233;riques. Cependant si ton nombre est n&#233;gatif, tu dois pouvoir aussi
mettre un signe - comme premier caract&#232;re ( quand length(edit.text):=0
).

Voil&#224;.

Bonne continuation.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

Recherche d'entier dans un TEdit

4 réponses

Votre réponse

Discussions similaires