Validar E-mail no Delphi 7

Veja neste artigo como criar uma função no Delphi para validar um e-mail digitado, sempre lembrando que tal e-mail deve conter @ (arroba) e . (ponto).

Abaixo está a função para validar o campo:

 function ValidaEmail(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;  

Para finalizar basta colocar seu componente
onde o e-mail foi digitado como parâmetro:

 if ValidaEmail(Edit1.Text) then  

Conclusões

Notamos neste artigo a facilidade em se validar
e-mail pelo Delphi e o quanto isso nos pode ser
útil no dia-a-dia. Forte abraço e até o próximo
tutorial.

--