Validação do último ponto no e-mail

[Fabrício Melo]

Foi colocada uma nova validação, mas ela esta barrando os e-mail's terminados com [email protected],  sem o br.

  // O último ponto tem que estar depois do @
  if (PosEx('.', Documento, Pos('.', Documento) + 1) < Pos('@', Documento)) then
    exit;

corrigido:

  // O último ponto tem que estar depois do @
  if (PosEx('.', Documento, Pos('@', Documento) + 1) < Pos('@', Documento)) then
    exit;

[BigWings]

ACBrValidador.pas

acbrvalidadortest.pas

[hleorj]

Enviado ao SVN.

Grato

Ps : 

-- ACBrValidador , acbrvalidadortest -- 
[-] Melhoria na validação de e-mail
[+] Novo teste de validação de e-mail