validar un dbedit

[jhonny]

El problema con el codigo de vtdeleon es que no sería valido el siguiente:

[email protected]

Mas bien le agregaria algo que mire que despues de la arroba haya un punto(.) pero que ese punto no sea el ultimo caracter como bien ya lo ha indicado vtdeleon...

Parece que esto es mas complicado de lo que se cree, jejeje.

Ejemplo pachuco:

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

Eso me devolveria solo la cadena despues de la @ y alli si evaluar que haya un proximo punto y que ademas no sea el ultimo.