Bonjour à tous,
c'est clairement débile mais j'utilise une fonction pour ne permettre que des entier dans une TEdit et bizarement il autorise le point decimal '.' alors que je ne l'autorise pas. Est ce normal??
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 function AllowOnlyDigit (Key :Char) : Char; begin if (Key in ['0'..'9',Chr(VK_BACK),Chr(VK_DELETE)]) then AllowOnlyDigit:=Key else AllowOnlyDigit:=#0; end;
Partager