проверить правильность E-mail адресса

[Holzz]

посоны, нужно проверить правильность введенного мыла в Edit1.
нашел функцию, но не понимаю как ее использовать.
помогите позязя.

[Аватар]

Интересно, что за функция? Как то подымал подобную тему на форуме http://programmersforum.ru/showthread.php?t=157011 Кончилось тем, что написал свой небольшой тест

[Serge_Bliznykov]

а я бы рекомендовал подключить библиотечку RegExp (маленькая, бесплатная, full sources) и воспользоваться регулярным выражением (регэксп для проверки email входит, если не ошибаюсь, даже в демонстрашку данной библиотеки).
Просто, быстро, надёжно...

p.s. ну, разумеется, проверяется только соответствие адреса формальным параметрам.
Наличие такого адреса НЕ ПРОВЕРЯЕТСЯ!

[Holzz]

function IsValidEmail(const Value:string):boolean;
  function CheckAllowed(const s:string):boolean;
  var
    i: integer;
  begin
    Result:= false;
    for i:= 1 to Length(s) do
    begin
{ недопустимый символ в s - значит недопустимый адрес } 
      if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
        Exit;
    end;
    Result:= true;
  end;
var
  i: integer;
  namePart, serverPart: string;
begin // начало выполнения isvalidemail 
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));//не указано имя или сервер
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
// должно иметь точку и как минимум три знака от конца 
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;

как ее использовать?
IsValidEmail(Edit1.Text)?
ошибка.

[Аватар]

Вызвать то просто: if not IsValidEmail(Edit1.Text) then <адрес не верный>. Но функция очень простенькая, например не отловит подряд идущие точки, или сервер i.ua посчитает ошибкой

[Holzz]

спасибочки. :*
еще вопрос.
как остановить дальнейшее выполнение программы?
например если я ввел неверное мыло, программа должна написать "ошибка" и вернуться к вводу мыла. %)
например :

if not (IsValidEmail(Edit3.Text)) or (IsValidEmail(Edit6.Text)) then
MessageDlg('Обшибка ввода мыла',mtError,[mbOk],0);

нашел функцию halt, но она полностью закрывает программу. =(
з.ы я дельфи второй день изучаю, простите за глупые вопросы. =D

[spamer]

Exit;

Т.е.:

if not (IsValidEmail(Edit3.Text)) or (IsValidEmail(Edit6.Text)) then
begin
MessageDlg('Обшибка ввода мыла',mtError,[mbOk],0);
Exit;
end;