Buscar

Validar entrada de numero em edit

Código

Procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);

//No keypress do edit ou componente fica assim:

begin
{se alguma das teclas abaixo for precionada}
if ( Key In ['A'..'Z', 'a'..'z', '@','!','#','$', '%','^',
 '&','`','~','*','(',')','-','_','=','+','|','','/','<','>',
 '"',';',':','[',']','{','}',''''  ]) then   {entao}
 begin

KEY := #0; //retorna 'null' como c nada fosse precionado

END;
end;

--> Neste exemplo somente aceita entrada de (NUMEROS [0..9 ] ). mas é simples altera-lo para aceitar letras e bloquear numero.
substituir 'A'..'Z' por '0'..'9'  e remover 'a'..'z' ou personalise de acordo com sua necessidade.
ps..tomem cuidado com as , virgulas e  acentos ' .

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 03/01/05
Por: Anderson Marques
Visualizada: 45060 vezes

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