Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 1 de junho de 2012

DELPHI - Validação de endereço de E-Mail

Reações: 


// ATLabs 01-06-2012
function ValidaEnderecoEMailATLabs(S: String): Boolean;
var
  X : String;
  I : Integer;
begin
  Result := True;
  if S = '' then exit;
  i := 0;
  X := S;
  while (Pos('@', X) > 0) do
  begin
    X := StringReplace(X, '@', '', [rfIgnoreCase]);
    Inc(i);
  end;
  if  (Pos(' ', S) > 0) // Espaco
   or (Pos('@', S) = 0) // @
   or (Pos('.', S) = 0) // Ponto
   or (Copy(S, 1, 1) = '@') // Item antes do @
   or (Copy(S, Pos('@', S) + 1, 1) = '') // Item pos  @
   or (Copy(S, Pos('.', S) - 1, 1) = '@') // Item antes do .
   or (Copy(S, Pos('.', S) + 1, 1) = '') // Item Pos .
   or (Pos('.', Copy(S, Pos('@', S) + 1, Length(S))) = 0) // valida . depois do @
   or (I > 1) // I Conta a quantidade de @ no texto
   then
  begin
    Result := False;
    ShowMessage('O formato de endereço de E-Mail deve seguir o seguinte padrão: "usuario@dominio.ext". Cancelado.');
  end;
end;
//-----------------

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer