MensajePublicado: Lun 06 May, 2019 3:04 pm    Asunto: comprobacion de email en RAD Studio 10.x con exp regulares Responder citando
Pongo esto aqui porque estuve buscando como validar email address y todo un cacao de 3 pares de eggs hasta que encontre esto en la doc de embarcadero......como veréis es bien sencillo

Añadimos el include

Código:
#include "System.RegularExpressions.hpp"


añadimos un componente TMemo y le asignamos lo siguiente



Código:
      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)>)$";



y ya solo nos queda comprobarlo mediante un Tbutton o algo

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