#EmailValidationPascal#
Esta é uma porta de EmailValidation para Delphi/Pascal.
Uma classe Pascal simples (mas correta) para validação de endereços de e-mail.
Suporta padrões de endereços de correio internacionalizados (rfc653x).
Este projeto foi criado usando Delphi 10 Seattle Update 1. A unidade ( uEmailValidation.pas
) deve ser compilada em qualquer versão Delphi de 2009 e FreePascal 2.6.4 em diante.
se você estiver usando XE3 Upwards e trabalhando com compiladores Mobile
nos quais as strings são baseadas em zero por padrão, use a unidade ( uEmailValidationZeroBased.pas
) ou qualquer uma das unidades que desejar.
uEmailValidation.pas
).###Exemplos 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 ;
###Testes unitários
Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.
###Licença
Este "Software" é licenciado sob MIT License (MIT)
.
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
345367-40
###Conclusão
Agradecimentos especiais a Jeffrey Stedfast por esta biblioteca incrível. (Obrigado aos desenvolvedores do DUnitX Testing Framework e TestInsight por criarem ferramentas que simplificam os testes unitários.