Модуль для Delphi в формате dcu. Демо-версия.
Функция для проверки e-mail:
function EmailValid(const Email: String; out Error: Boolean): Boolean;
где Email - e-mail адрес,
Error - ошибка функции: True - при исполнении функции произошла ошибка, False - без ошибок.
Если e-mail существует, то функция возвращает значение True, иначе - False.
Самый простой пример использования модуля с функцией:
uses EValid;
procedure TForm1.Button1Click(Sender: TObject);
var
Error: Boolean;
begin
if EmailValid(Edit1.Text, Error) then
Edit2.Text := \\'Существует\\'
else
Edit2.Text := \\'Не существует\\';
end;
