#EmailValidationPascal#
Il s'agit d'un port d'EmailValidation vers Delphi/Pascal.
Une classe Pascal simple (mais correcte) pour valider les adresses email.
Prend en charge les normes d'adresses de courrier internationalisées (rfc653x).
Ce projet a été créé à l'aide de Delphi 10 Seattle Update 1. L'unité ( uEmailValidation.pas
) doit être compilée dans n'importe quelle version de Delphi à partir de 2009 et FreePascal 2.6.4 ultérieure.
si vous utilisez XE3 Upwards et travaillez avec les compilateurs Mobile
dans lesquels les chaînes sont basées sur zéro par défaut, veuillez utiliser l'unité ( uEmailValidationZeroBased.pas
) ou l'une des unités que vous aimez.
uEmailValidation.pas
).###Exemples de codes
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 ;
###Tests unitaires
Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.
###Licence
Ce « logiciel » est sous MIT License (MIT)
.
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
345367-40
###Conclusion
Un merci spécial à Jeffrey Stedfast pour cette superbe bibliothèque. (Merci aux développeurs de DUnitX Testing Framework et TestInsight pour avoir créé des outils qui simplifient les tests unitaires.