Информация сайта компьютерной безопасности
<<< Hack Style >>>

Ну бывают такие времена когда вам нужно
определить правильный ли адрес у вас
лежит в переменной ну вот как раз
код на все такие времена :

function isSymbol(const s: string): boolean;//функция проверки недопустимого символа
  var
    i: integer;
  begin
    Result:= false;
    for i:= 1 to Length(s) do
    begin
      if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
        Exit;
    end;
    Result:= true;
  end;

function IsValidEmail(const Value: string): boolean;
var
  i: integer;
  name, server: string;
begin // начало
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then //если до @ ничего нет то нам не надо
    Exit;
  name:= Copy(Value, 1, i - 1);
  server:= Copy(Value, i + 1, Length(Value));
   if (Length(name) = 0) or ((Length(server) < 5)) then
    Exit;
  i:= Pos('.', server);
  //как минимум три знака от конца
  if (i = 0) or (i > (Length(server) - 2)) then
    Exit;
showmessage('АДРЕС ПРАВИЛЬНЫЙ !!!');//сообщаем о правильности
  Result:= true;
end;

вот весь код проверки правильности e-mail адреса
все !!!  

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru