validar un dbedit

[jhonny]

Empezado por roman

Esta es una muy buena idea, aunque creo que no hay que descartar la validación gramatical.

Ya anteriormente se ha discutido esto, por ejemplo, en el hilo Como Saber si una Dirección de Correo es Válida????. En esa ocasión se planteó el uso de expresiones regulares y se habló de RegExp Studio, que me parece un buen enfoque.

Usar TRegExpr es cosa sólo de incluir una unidad en el proyecto así que no necesitamos instalar nada ni insertar componentes ni depender de dlls externas.

En el hilo mencionado se propone una expresión regular

[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+

que- según creo -puede reducirse a:

[\w\-\.]+@[\w\-]+(\.[\w\-]+)+

aunque no me queda claro que los guiones estén permitidos en un email y permitiría un punto inicial que no creo que sea válido.

Haciendo algunas pruebas, me ha gustado esta:

^\w+(\.\w+)*@(\w+(\.\w+)+)$

que podría completarse a

^[\w\-]+(\.[\w\-]+)*@([\w\-]+(\.[\w\-]+)+)$

si permitimos guiones.

Aplicando a nuestro caso, podemos implementar esta función:

Código Delphi [-]uses RegExpr; function EsEmailValido(Email: String; Ping: Boolean = false); var RegExp: TRegExpr; begin RegExp := TRegExp.Create; try RegExp.Expression := '^\w+(\.\w+)*@(\w+(\.\w+)+)$'; Result := RegExp.Exec(Email); if Result and Ping then Result := GetIP(RegExp.Match[2]) <> ''; finally RegExp.Free; end; end;


El parámetro Ping sería para indicar si deseamos verificar la existencia del servidor.

// Saludos

Hola roman, hoy me ha causado curiosidad un asunto, ¿Estas son expresiones propias del TRegExpr o es algun estandar que hay?

[roman]

¡Válgame!

Lo malo de las expresiones regulares, es que, pasados uns meses (o años), uno no tiene ni idea de cómo fue capaz de escribir tal serie de majaderías

En fin; aunque creo que hay variantes, las expresiones regulares más o menos son un estándar que, si no me equivoco, se basan en las que usa PERL.

// Saludos

[jhonny]

Empezado por roman

¡Válgame!

Lo malo de las expresiones regulares, es que, pasados uns meses (o años), uno no tiene ni idea de cómo fue capaz de escribir tal serie de majaderías

En fin; aunque creo que hay variantes, las expresiones regulares más o menos son un estándar que, si no me equivoco, se basan en las que usa PERL.

Jejeje, Bueno, muchas gracias por tu respuesta roman .

[roman]

Aquí hay bastante información. Entre otras cosas dice:

Perl: es el lenguaje que hizo crecer a las expresiones regulares en el ámbito de la programación hasta llegar a lo que son hoy en día.

Ojalá Delphi incorporase de fábrica las expresiones regulares, o ¿ya lo hace?

// Saludos

// Saludos

[jhonny]

Empezado por roman

Ojalá Delphi incorporase de fábrica las expresiones regulares, o ¿ya lo hace?

El otro día estuve buscando el asunto en la ayuda de Delphi 2007 y en la de Delphi 2009, precisamente basado en un hilo en el que participaron Al y vos, pero desafortunadamente no encontré dicho material.

[jhonny]

Una libreria que he notado que buscan mucho por ahí, es la llamada TPerlRegEx http://www.regular-expressions.info/delphi.html nunca la he usado, pero como ya te he dicho he notado que la buscan bastante. El ejemplos para Email que esta en esa web es mas largo que los que propones, pero aca te va '\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b'