Контроль синтаксиса e-mail

[Аватар]

Интересует простой способ контроля синтаксиса e-mail адреса. Проверка существования адреса не нужна, только синтаксис. Нашел в форуме VFP такой пример:

RegExp = CreateObject("VBScript.RegExp") 
RegExp.pattern = "\w+\@[.\w]+" 
? RegExp.Test("user@mail.ru" )

Насколько понял тестируется адрес user@mail.ru и результат на экран. В дельфях нечто подобное можно сообразить?

[ZvEr_HaCkEr]

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;

[Аватар]

Ну допустим адрес user_name@i.ua этот тест посчитает ошибочным, хотя почтовик i.ua существует, можете не сомневаться. Такой тест нет проблем сделать, просто я не совсем уверен в перечне допустимых символов в адресе. Могут ли быть точки в левой части адреса И сколько их может быть в правой?

[ZvEr_HaCkEr]

Могут ли быть точки в левой части адреса
Да, но их должно быть не более одной
сколько их может быть в правой?
Любое количество, ибо существуют такие почтовики, которые содержат в имени не понятно что.

@p23.f82.n5030.z2.fidonet.org

[Аватар]

ZvEr_HaCkEr спасибо за инфу А в самой винде нет какой либо функции тестирования? В примере из VFP используется тестирование с помощью регулярного выражения, нашел пример "более корректного" регулярного выражения и челюсть отвисла. Есть ли смысл с этим связываться?

[ZvEr_HaCkEr]

Насчет функции в винде не знаю, но в инете полны инфы по этому поводу. Надо будет лишь взять готовое и пристроить под себя. Например вот. А пытаться разбираться в регулярных выражениях себе дороже, только убьете драгоценное время, которое можно потратить на улучшение программы.