Test de Edit

**adipro** · 24/04/2007, 09h40

Salut à tous

Comment peut on tester si le contenu de Edit1 (par exemple) est une valeur entiere ?
Merci beaucoup

**Xav++** · 24/04/2007, 10h56

Salut Adipro,

je dirai (si ma mémoire est bonne

) que la fonction IsInteger
doit répondre à ta question

@+

Xav

**ero-sennin** · 24/04/2007, 17h49

Salut,

J'ai cherché la fonction IsInteger, mais je ne l'ai pas trouvé ...

Est-tu sûr que cette fonction existe?

**Xav++** · 24/04/2007, 21h44

bon ben j'ai du réver !! J'étais persuadé que cette fonction existait

Faudra d'ailleurs que je creuse.

Bon alors sinon sur mon prog j'ai utilisé la fonction ToInt avec
un try catch pour intercepter l'erreur.

J'espère que cela te conviendra.

Code :

Code :

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

1
2
3
4
5
6
7
8
9
 
try
  {  
   int entier = Edit1->Text.ToInt;
  }
catch ( ... )
  {
   Application->MessageBox("Cette valeur n'est pas une valeur entière !", "Erreur", MB_OK | MB_Warning)
  }

@+

Xav

**ero-sennin** · 24/04/2007, 21h51

Pas grave

Moi j'avais fait comme ceci :

Dans le .h:

Code :

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

bool __fastcall IsInteger(AnsiString leTexte);

Dans le .cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
bool __fastcall IsInteger(AnsiString leTexte)
{
  bool result;
  result=True;
  try
  {
    StrToInt(leTexte);
  }
  catch(EConvertError &e)
  {
    result=False;
  }
  return result;
}

Un petit d'exemple d'utilisation :

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (IsInteger(Edit1->Text))
  ShowMessage("C'est un entier");
  else
  ShowMessage("Ce n'est pas un entier");
}