哪位高手可以告诉我，在DELPHI里面怎么样去判断电子邮箱的格式呢？

Question

哪位高手可以告诉我，在DELPHI里面怎么样去判断电子邮箱的格式呢？

Answer 1

例如：[email protected]之类的格式。如果发送的时候格式不正确，就发送不了。比如填写的时候少了一个“@”或都少了“.”后面的。

Answer 2

哦，是这样啊，用pos()判断一下就行了

Answer 3

比如这样：（当然，匆忙中写的小函数，还很不完善，许多错误格式没有考虑到，你可以完善）function CheckEmailAddress(EmailAddr:string):integer;
var TempLen,TempResult:integer;
begin
  TempLen:=length(EmailAddr);
  TempResult:=0;
  if pos('@',EmailAddr)<=1 then TempResult:=TempResult+1;
  if (pos('.',EmailAddr) =TempLen) or (pos('.',EmailAddr)=pos('@',EmailAddr)+1)
     then TempResult:=TempResult+2;
  result:=TempResult;
end;//调用：
case CheckEmailAddress('@99.com') of
    0: ;//正确格式
    1: ;//@位置不正确
    2: ;//.位置不正确
    3: ;//@位置不正确，.位置也不正确

Answer 4

忘记End了    :)