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 richedit控件中插入gif动画表情

Delphi 10.3 控件遮挡 webbrowser

Delphi winapi: getactivewindow - 获取当前活动窗口的句柄

Delphi opendialog设置默认打开路径

Delphi根据输入日期按年月周日输出日期段

idhttp获取文件大小的代码

Delphi 显示简单图形

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi stringtobase64、base64tostring两个函数

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

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