EmailValidationPascal

#电子邮件验证帕斯卡#

这是 Delphi/Pascal 的 EmailValidation 端口。

一个简单（但正确）的 Pascal 类，用于验证电子邮件地址。

支持国际化邮件地址标准 (rfc653x)。

建筑

该项目是使用 Delphi 10 Seattle Update 1 创建的。 ( uEmailValidation.pas ) 单元应在 2009 年和 FreePascal 2.6.4 及以上版本的任何 Delphi 版本中进行编译。

如果您使用 XE3 Upwards 并使用默认情况下字符串从零开始的Mobile编译器，请使用 ( uEmailValidationZeroBased.pas ) 单元，否则您可以使用任何您喜欢的单元。

• FreePascal 用户和 XE3 以下的 Delphi 用户只能使用 ( uEmailValidation.pas ) 单元。

###代码示例

	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 ;

###单元测试

 Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.

＃＃＃执照

本“软件”根据MIT License (MIT)获得许可。

提示罐

• ？比特币： 1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
• ？以太坊： 0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
• ？帕斯卡币： 345367-40

＃＃＃结论

特别感谢 Jeffrey Stedfast 提供的这个很棒的库。 （感谢 DUnitX 测试框架和 TestInsight 的开发人员制作了简化单元测试的工具。