Verificar campos numéricos
como faço opara testar se o valor digitado em um edit é numérico?
Obrigado.
Obrigado.
Capoeira
Curtidas 0
Respostas
Oberdan
25/06/2003
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;
GOSTEI 0
Oberdan
25/06/2003
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;
GOSTEI 0