Delphi Email地址合法性检测判断.rar

Delphi Email地址合法性检测判断，这是个相当 小且实用的验证判断 程序，用来验证用户输入的Email程序是否合法，可判断@符号之前、之后的后缀是否合法，以及整个Email地址是否合乎规则。主要代码如下： 　　if (pos('@',edit4.Text)<2) then showmessage('您的E_mail地址不合法!!!') else 　　if (pos('@',rightstr(edit4.text,3))=0) then 　　begin 　　 mystr:=rightstr(edit4.text,length(edit4.text)-pos('@',edit4.Text)); 　　 if (pos('@',mystr)>0) or (length(mystr)<4) then showmessage('您的E_mail地址不合法!!!')else 　　 begin 　　 if (pos('.',edit4.Text)<3) then showmessage('您的E_mail地址不合法!!!')else 　　 if (pos('.',rightstr(edit4.text,2))=0) then 　　 begin 　　 str:=rightstr(edit4.text,length(edit4.text)-pos('.',edit4.Text)); 　　 if (length(mystr)-length(str)<2) or (length(str)<3) then showmessage('您的e_mail地址不合法!!!') 　　 end 　　 else 　　 begin 　　 showmessage('您的E_mail地址不合法!!!') 　　 end 　　 end; 　　end