Function para validar Email
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));
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;
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
Confira outros conteúdos:
Por
Thiago
Em 2010
Veja os resultado dos nossos alunos
Conquistas reais de quem está aplicando o método
<Perguntas frequentes>
Carreira
Metodologia
Assinatura e Pagamentos
Cadastro