码迷,mamicode.com
首页 > Windows程序 > 详细

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

时间:2015-01-17 12:37:13      阅读:227      评论:0      收藏:0      [点我收藏+]

标签:

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;

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

标签:

原文地址:http://www.cnblogs.com/wallace-xie/p/4230306.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!