首页 > 代码库 > delphi正则表达式
delphi正则表达式
需要使用TPerlRegEx包
//判断是否只有字母和数字
function IsPureNumberOrAlpha(s: string): Boolean;
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create; //建立
reg.Subject := s; //这是要替换的源字符串
reg.RegEx := ‘^[a-zA-z][a-zA-Z0-9_]{5,11}$‘; //这是表达式, 在这里是准备替换掉的子串
// reg.RegEx := ‘^[a-zA-z][a-zA-Z0-9_]{3,19}$‘;
Result := reg.Match;
FreeAndNil(reg); //或 reg.Free
end;
//判断是否只有字母和数字
function IsPureNumberOrAlphaByEngineer(s: string): Boolean;
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create; //建立
reg.Subject := s; //这是要替换的源字符串
reg.RegEx := ‘^[a-zA-z][a-zA-Z0-9_]{3,19}$‘;
Result := reg.Match;
FreeAndNil(reg); //或 reg.Free
end;
delphi正则表达式
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。