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;
你今天的努力,只是为了让你的苦更有价值