Fórum Verificar campos numéricos #166271
25/06/2003
0
como faço opara testar se o valor digitado em um edit é numérico?
Obrigado.
Obrigado.
Capoeira
Curtir tópico
+ 0
Responder
Posts
25/06/2003
Oberdan
If Edit1.Text <> ´´ then
Try
Edit1.Text := IntToStr(StrToInt(Edit1.Text));
Except
ShowMessage(´O valor não é um número inteiro´);
end;
Try
Edit1.Text := IntToStr(StrToInt(Edit1.Text));
Except
ShowMessage(´O valor não é um número inteiro´);
end;
Responder
Gostei + 0
25/06/2003
Oberdan
If Edit1.Text <> ´´ then
Try
Edit1.Text := IntToStr(StrToInt(Edit1.Text));
Except
ShowMessage(´O valor não é um número inteiro´);
end;
Try
Edit1.Text := IntToStr(StrToInt(Edit1.Text));
Except
ShowMessage(´O valor não é um número inteiro´);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)