#Validación del correo electrónicoPascal#
Este es un puerto de validación de correo electrónico para Delphi/Pascal.
Una clase Pascal simple (pero correcta) para validar direcciones de correo electrónico.
Soporta estándares de direcciones de correo internacionalizadas (rfc653x).
Este proyecto se creó utilizando Delphi 10 Seattle Update 1. La unidad ( uEmailValidation.pas ) debe compilarse en cualquier versión de Delphi desde 2009 y FreePascal 2.6.4 en adelante.
Si está utilizando XE3 Upwards y trabajando con los compiladores Mobile en los que las cadenas están basadas en cero de forma predeterminada, utilice la unidad ( uEmailValidationZeroBased.pas ) o cualquiera de las unidades que desee.
uEmailValidation.pas ).###Ejemplos de código
uses
SysUtils, uEmailValidation;
var
TestAddress : String;
begin
TestAddress := ' [email protected] ' ;
Validator := TEmailValidator.Create;
if TEmailValidator.Validate(TestAddress) then
begin
WriteLn( ' Valid Email Address ' );
ReadLn;
end
else
begin
WriteLn( ' Invalid Email Address ' )
ReadLn;
end ;
end ;
For International Addresses
uses
SysUtils, uEmailValidation;
var
TestAddress : String;
begin
TestAddress := ' θσερ@εχαμπλε.ψομ ' ;
if TEmailValidator.Validate(TestAddress, True) then
begin
WriteLn( ' Valid Email Address ' );
ReadLn;
end
else
begin
WriteLn( ' Invalid Email Address ' )
ReadLn;
end ;
end ;###Pruebas unitarias
Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.
###Licencia
Este "Software" tiene MIT License (MIT) .
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98345367-40###Conclusión
Un agradecimiento especial a Jeffrey Stedfast por esta increíble biblioteca. (Gracias a los desarrolladores de DUnitX Testing Framework y TestInsight por crear herramientas que simplifican las pruebas unitarias.