Validar email (funcion en PAS)

[BlackMore]

hola casimiro..... lo resolví de esta manera.....

#include "System.RegularExpressions.hpp"


//en el constructor del Form1 puse esto:


MemoRegEx->Text =
            "^((?>[a-zA-Z\d!#$%&''*+\\-/=?^_`{|}~]+\\x20*" "|\"((?=[\\x01-\\x7f])[^\"\\\\]|\\\\[\\x01-\\x7f])*\"\\"
            "x20*)*(?<angle><))?((?!\\.)(?>\.?[a-zA-Z\d!" "#$%&''*+\\-/=?^_`{|}~]+)+|\"\"((?=[\\x01-\\x7f])"
            "[^\"\\\\]|\\\\[\\x01-\\x7f])*\")@(((?!-)[a-zA-Z\\d\\" "-]+(?<!-)\\.)+[a-zA-Z]{2,}|\\[(((?(?<!\\[)\\.)"
            "(25[0-5]|2[0-4]\\d|[01]?\\d?\\d)){4}|[a-zA-Z\\" "d\\-]*[a-zA-Z\\d]:((?=[\\x01-\\x7f])[^\\\\\\[\\]]|"
            "\\\\[\\x01-\\x7f])+)\\])(?(angle)>)$";



// Incluí un TMemo con la cadena de comprobacion de email y un EditBox (Edit_DJ_EMAIL)
// y lo comprobe de esta manera....



if (TRegEx::IsMatch(Edit_DJ_EMAIL->Text.c_str(), MemoRegEx->Text))
     {
        ShowMessage("EMAIL VALID!!");
      }
    else
         {
           ShowMessage("Must enter a VALID EMAIL ADDRESS");
           return;
         }

[Casimiro Noteví]