EmailValidationPascal

#電子郵件驗證帕斯卡#

這是 Delphi/Pascal 的 EmailValidation 連接埠。

一個簡單（但正確）的 Pascal 類，用於驗證電子郵件地址。

支援國際化郵件地址標準 (rfc653x)。

大樓

此專案是使用 Delphi 10 Seattle uEmailValidation.pas 1 建立的。

如果您使用 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 的開發人員製作了簡化單元測試的工具。