您的位置:首页 > 编程语言 > Delphi

delphi验证email地址的正则表达式验证function

2015-01-17 11:59 507 查看
user PerlRegEx;

function CheckEmail(EmailAddr: string): Boolean;//验证Email
var
PerlRegEx: TPerlRegEx;
begin
PerlRegEx := TPerlRegEx.Create(nil);
PerlRegEx.Subject := EmailAddr;
PerlRegEx.RegEx := '\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*';
Result := PerlRegEx.Match;
PerlRegEx.Free;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: