delphi字符串操作 急

[liuahuilele]

谁能给我一个判断邮箱是否合法的例子

[kaka_21]

提供些别的：
电子邮件地址的构成
　　电子邮件地址的格式是“[e-mail]”，由三部分组成。
第一部分“USER”代表用户信箱的帐号，对于同一个邮件接收服务器来说，这个帐号必须是唯一的；
第二部分“@”是分隔符；
第三部分“SERVER.COM”是用户信箱的邮件接收服务器域名，用以标志其所在的位置

域名的命名规则如下：
一定长度的字符串+后缀(如： .cn）

[de410]

别人的，供参考~~

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: ;//@位置不正确，.位置也不正确
end;

[liuahuilele]

多谢