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中提取网址链接分路径

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi android 启动卡死处理方法

Delphi xp 之后, Delphi 动注册表不方便了...逼出来一个办法:

Delphi 相对路径和绝对路径的转换

Delphi 防止程序重复执行(多种方法)

Delphi free和freeandnil之间的区别

Delphi 获取电脑进程网络连接ip端口

Delphi win10系统已管理员的权限运行应用程序

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

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