EmailValidationPascal

#ValidasiEmailPascal#

Ini adalah Port Validasi Email ke Delphi/Pascal.

Kelas Pascal yang sederhana (tapi benar) untuk memvalidasi alamat email.

Mendukung standar Alamat Surat Internasional (rfc653x).

Bangunan

Proyek ini dibuat menggunakan Delphi 10 Seattle Update 1. Unit ( uEmailValidation.pas ) harus dikompilasi dalam versi Delphi apa pun mulai tahun 2009 dan FreePascal 2.6.4 ke atas.

jika Anda menggunakan XE3 Ke Atas dan bekerja dengan kompiler Mobile yang stringnya Berbasis Nol secara Default, Silakan gunakan unit ( uEmailValidationZeroBased.pas ) selain unit mana pun yang Anda suka.

• Pengguna FreePascal dan Pengguna Delphi di bawah XE3 Hanya dapat menggunakan unit ( uEmailValidation.pas ).

###Contoh Kode

	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 ;

###Uji Unit

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

###Lisensi

"Perangkat Lunak" ini Dilisensikan Berdasarkan MIT License (MIT) .

Tip Toples

• ? Bitcoin : 1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
• ? Ethereum : 0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
• ? Pascalcoin : 345367-40

###Kesimpulan

Terima kasih khusus kepada Jeffrey Stedfast untuk perpustakaan yang luar biasa ini. (Terima kasih kepada pengembang DUnitX Testing Framework dan TestInsight yang telah membuat alat yang menyederhanakan pengujian unit.