Buscar

Validando números - rápido e prático

Código

{pra quem necessita fazer validações de número toda hora fica inviável ficar criando toda vez um procedimento nos eventos do TEdit ou qualquer outra entrada de texto, por isso fiz essa função, vc declara ela uma vez, depois quando precisar é só chamar}

function ValidaNumero(Caracter: Char): Char;
begin
  if not (Caracter in ['0'..'9', #8, #13]) then
    Result:= #0
  else
    Result:= Caracter;
end;

//chamando no OnKeyPress do TEdit
Key:= ValidaNumero(Key);

//é um exemplo meio bobinho mas ajuda ;)

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 06/05/10
Por: -=|PiRuKa|=-
Visualizada: 2286 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009