EmailValidationPascal

#EmailValidationPascal#

これは、EmailValidation の Delphi/Pascal へのポートです。

電子メール アドレスを検証するための単純な (ただし正しい) Pascal クラス。

国際化メールアドレス標準 (rfc653x) をサポートします。

建物

このプロジェクトは、Delphi 10 Seattle Update 1 を使用して作成されました。( uEmailValidation.pas ) ユニットは、2009 年以降の Delphi バージョンおよび FreePascal 2.6.4 以降でコンパイルできます。

XE3 以降を使用しており、文字列がデフォルトでゼロベースである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 の開発者に感謝します。