Introduire que des entiers

slt
je veutxintroduire que des entiers, mais lorsque j'utilise ce code, il accepte d'introduire "." malgre son ASCII est 46.

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { if ((Key < 48 || Key > 57) && Key != VK_BACK && Key != VK_DELETE) Key = 0; }

---

Esque vous avez la solution du ce probleme?
merci.

Ok j'en ai ras le bol de te dire de lire la FAQ:
http://c.developpez.com/faq/bcb/?pag...uniquementedit

Fais une lecture de la FAQ au complet la prochaine fois avant de poser une question: http://c.developpez.com/faq/bcb/?fil...OOOOOOOOOOOOOO