Проверяем вводимый e-mail адрес

На многих сайтах есть форма обратной связи. Вводимый в неё e-mail адрес проверяется на соответствие стандартному виду.
В своих программах вы тоже можете сделать такую форму, а с проверкой e-mailа я помогу:)
Для этого я написал вот такую функцию:

 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 
      if not (s[i] in ['a'..'z', 
                       'A'..'Z', 
                       '0'..'9', 
                       '_', 
                       '-', 
                       '.']) then Exit; 
    Result:= true; 
  end; 

var 
  i: Integer; 
  NamePart, ServerPart: string; 
begin 
  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;

Итак, в параметре указываем e-mail и получаем на выходе либо true (все ок), либо false (что-то не так).


Удачи!

___________________________________

Расслабиться пора!
Вот как действуют настоящие мыши:)