#EmailValidationPascal#
Это порт проверки электронной почты для Delphi/Pascal.
Простой (но правильный) класс Паскаля для проверки адресов электронной почты.
Поддерживает стандарты интернационализированных почтовых адресов (rfc653x).
Этот проект был создан с использованием Delphi 10 Seattle Update 1. Модуль ( uEmailValidation.pas
) должен компилироваться в любой версии Delphi, начиная с 2009 года и FreePascal 2.6.4 и выше.
Если вы используете XE3 Upwards и работаете с Mobile
компиляторами, в которых строки по умолчанию отсчитываются от нуля, используйте модуль ( uEmailValidationZeroBased.pas
), иначе любой из модулей, который вам нравится.
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
###Заключение
Особая благодарность Джеффри Стедфасту за эту потрясающую библиотеку. (Спасибо разработчикам DUnitX Testing Framework и TestInsight за создание инструментов, упрощающих модульное тестирование.