terça-feira, 3 de abril de 2012

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.

--

Nenhum comentário:

Postar um comentário