testar campo numerico?
usei a pesquisa mas deu ´Bug´.
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?
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
Curtidas 0
Respostas
Joaoshi
22/07/2009
Colega dê uma pesquisada sobre a função [b:dfa6ab5e4e]TryStrToInt[/b:dfa6ab5e4e].
GOSTEI 0
Leufmt
22/07/2009
É simples, no teu edit faça o seguinte:
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.
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
Osocram
22/07/2009
StrToIntDef(Variavel,0);
Se não for valido retorna zero.
GOSTEI 0
Danielrsanches
22/07/2009
a beleza da programação é essa, existem várias maneiras ... veja qual é melhor pra vc ...
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 !!!
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