16,746
社区成员




begin
reg := TPerlRegEx.Create;
reg.Options:=[preCaseLess]; //正则忽略大小写
ts.Clear; //tstringlist
ts.LoadFromFile(vFile);//载入当前目标文件
if Length(ts.Text)>0 then
begin
reg.Subject := ts.Text;
for iReg := 0 to RegExST.Count-1 do
begin
reg.RegEx := RegExST[iReg];
if reg.Match then //ShowMessage(reg.MatchedText+'+'+inttostr(reg.MatchedOffset)+'+'+inttostr(reg.MatchedLength));
begin
Result:=True;
Break;
end;
end;
end;
FreeAndNil(reg);