Ajuda na validacao

Delphi

01/09/2005

eu tenho um campo q so pode aceitar numeros...

e no evento onkeypress eu tentei assim :

if not (key in [´0´..´9´]) then
key := #0;

porem ele nao deixa eu teclar nada ao nao ser numeros... so q se o cara digitar errado nem o backspace ele consegue digitar ... como eu arrumaria isso ?


Fernando_cunha

Fernando_cunha

Curtidas 0

Respostas

Rjun

Rjun

01/09/2005

if (not (Key in [´0´..´9´]) and (Key <> 8))  then
    Key := 0;



GOSTEI 0
Fernando_cunha

Fernando_cunha

01/09/2005

Obrigado pela ajuda funcionou !!!


GOSTEI 0
Fernando_cunha

Fernando_cunha

01/09/2005

nao funcionou nao ...


GOSTEI 0
Rjun

Rjun

01/09/2005

nao funcionou nao ...

Se você postasse o que não funcionou, ficaria mais fácil para ajudar.


GOSTEI 0
Fernando_cunha

Fernando_cunha

01/09/2005

Ae rjun obrigadao pela ajuda neste e no outro topico...

mas eu descobri o erro...

vc me passou o seguinte codigo



if (not (Key in [´0´..´9´]) and (Key <> 8))  then 
    Key := 0;



e eu burrão coloquei o seguinte



if not ((Key in [´0´..´9´]) and (Key <> 8))  then 
    Key := 0;


ou seja errei nos parenteses...
mas obrigadao ai Rjun


GOSTEI 0
Josh_bsb

Josh_bsb

01/09/2005

Tá aqui um jeitinho mais curtinho...

  if not (key in [´0´..´9´, 8]) then
    key := 0;



GOSTEI 0
POSTAR