Function para validar Email

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Função para fazer a validação de email.

Neste artigo que irei disponibilizar poderemos validar um campo de email.
Segue a função desenvolvida para que possamos validar um campo de email, lembrando que para um email ser valido ele deve conter @ e ponto.

Esta é a função desenvolvida para validar o campo:

 
function ValidarEMail(aStr: string): Boolean;
begin
 aStr := Trim(UpperCase(aStr));
 if Pos('@', aStr) > 1 then
 begin
   Delete(aStr, 1, pos('@', aStr));
   Result := (Length(aStr) > 0) and (Pos('.', aStr) > 2);
 end
 else
   Result := False;
end;
 
Espero que tenham gostado...
AbraçoO
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?