delphi正则表达式
Posted 坤霸天下
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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正则表达式的主要内容，如果未能解决你的问题，请参考以下文章
delphi中VBspcript_TRegExp类(正则表达式)怎么用