delphi 如何判断字符串是否是有效EMAIL地址

本文整理自网络，侵删。

 function IsEMail(EMail: String): Boolean;
var s: String;ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end; 

相关阅读 >>

Delphi 全局钩子锁定键盘

Delphi b编码以及bt种子文件分析

Delphi mscomm1自动获取串口

Delphi中将webbrowser用作网页编辑器

Delphi 从网址链接中提取域名

Delphi 十六进制数转换十进制数

Delphi 下 vclzip控件的简单使用

Delphi 如何解析网址？

Delphi中formatdatetime函数的用法

Delphi 文件夹操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 如何判断字符串是否是有效EMAIL地址