Buscar

Verificar/Validar valores de entrada em um TEdit (Modificada)

Código

{ Com a Função é possível permitir a entrada de somente letras, números ou letras e números. }

//É necessário declarar Windows no Uses.

function ValidateField(var Key: Char; TipoFiltro: Byte = 0): Boolean;

//Explicando a Função:

{  Key é a variável que contém o caracter a ser válidado.
   Tipo de Filtro Indica a validação a ser aplicada. (Opcional) }


function ValidateField(var Key: Char; TipoFiltro: Byte = 0): Boolean;
  function IsDigit(Key : Char) : Boolean;
  begin
    Result := (Key in ['0'..'9']);
  end;
begin
  case TipoFiltro of
    0 : if not (IsCharAlphaNumeric(Key)) then Key := #0; // Aceita letras e números
    1 : if not (IsCharAlpha(Key)) then Key := #0;        // Aceita letras
    2 : if not (IsDigit(Key)) then Key := #0;            // Aceita Números
    else
      raise Exception.Create('Tipo de filtro inválido.');
  end;
end;


// Exemplos de uso

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  { Alterando o tipo de filtro. }
  ValidateField(Key, 2);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  { Utilizando valores default. }
  ValidateField(Key);
end;


 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 11/01/11
Por: Giovani Da Cruz
Visualizada: 6462 vezes

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