Delphi - Validar a digitação de e-mail


Para validar de uma forma simples se o e-mail digitado é válido, utilize a função abaixo:

function ValidarEmail(email: string): Boolean;
begin
  email := Trim(UpperCase(email));
  if Pos('@', email) > 1 then begin
    Delete(email, 1, pos('@', email));
    Result := (Length(email) > 0) and (Pos('.', email) > 2) and (Pos(' ', email) = 0);
  end else begin
    Result := False;
  end;
end;

delphi · ‎email · ‎funcao · ‎validar

Última atualização: 26/12/2017 às 09:28


  • Buscar