#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) .
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98345367-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.