Buscar por:

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 ' .