Jak uniemożliwić wpisanie do Edit znaków innych niż cyfry?

Q: Jak uniemożliwić wpisanie do Edit znaków innych niż cyfry?

W OnKeyPress Edit wpisz: [crayon-662b89a5e6b9a997331190/] Kod ten pozwala wprowadzać liczby całkowite oraz zmiennoprzecinkowe. #8 jest kodem Backspace - gdybyś usunął kod tego znaku, to niemożliwe było by kasowanie zawartości Edit. Autor: Iskar

Q: Jak uniemożliwić wpisanie do Edit znaków innych niż cyfry?

W OnKeyPress Edit wpisz: [crayon-662b89a5e6b9a997331190/] Kod ten pozwala wprowadzać liczby całkowite oraz zmiennoprzecinkowe. #8 jest kodem Backspace - gdybyś usunął kod tego znaku, to niemożliwe było by kasowanie zawartości Edit. Autor: Iskar

W OnKeyPress Edit wpisz:

if not (Key in ['0'..'9' , ',' , #8]) then Key := #0 ;

1	if not (Key in ['0'..'9' , ',' , #8]) then Key := #0 ;

Kod ten pozwala wprowadzać liczby całkowite oraz zmiennoprzecinkowe. #8 jest kodem Backspace – gdybyś usunął kod tego znaku, to niemożliwe było by kasowanie zawartości Edit.

Autor: Iskar