文件名称:Delphi Email地址合法性检测判断.rar
文件大小:7KB
文件格式:RAR
更新时间:2022-07-30 11:59:48
Delphi源码-字符处理
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
【文件预览】:
srcfans.com
----Email检测()
--------Project1.res(876B)
--------Unit1.dfm(3KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(5KB)