Fórum testar campo numerico? #372617
22/07/2009
0
O delphi 6 tem alguma função de testar se o campo é numerico ou não.
Tenho um campo ´numero de rua´ que as vezes vem com ´S/N´...sem numero...mas no meu banco de dados esse campo é integer...preciso testar se o campo a ser importado só tem numeros.
No cobol isso é simples...é só fazer....VAR IS NUMERIC. se retornar false é por que contem letrar no meio...mas e no delphi?
Fausto.malheiros
Curtir tópico
+ 0Posts
22/07/2009
Joaoshi
Gostei + 0
24/07/2009
Leufmt
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key in [´0´..´9´] = False) and (Word(Key) <> VK_BACK)) then
Key := #0;
end;
Com isto só vai permitir a entrada de números.
Gostei + 0
24/07/2009
Osocram
StrToIntDef(Variavel,0);
Se não for valido retorna zero.
Gostei + 0
24/07/2009
Danielrsanches
try StrToInt(CAMPO)
except
...aki os comandos sendo que o CAMPO não é numérico
end;
lembrando que:
o número do logradouro não pode ser tipo: 193-F ?? existem endereços com esse tipo de numeração ...
abraços !!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)