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

时间:2022-07-30 11:59:48
【文件属性】:

文件名称: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)

网友评论