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; 

相关阅读 >>

win7下使用Delphi7的方法

Delphi html转义字符编码转换

Delphi ip地址转换str字符

Delphi android windows ios通用获取程序版本

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi 获取cpu monitor使用率

Delphi中一段可以判断网络连接的代码

Delphi 字符串分割

Delphi实现屏幕抓图

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

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

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