Delphi 利用自带类TRegEx实现正则匹配

Delphi 利用自带类TRegEx实现正则匹配

uses RegularExpressions; //相关单元

var
  matchs: TMatchCollection;
const
  encryp_RexStr = 'encryptAccountId(.*?)isGold';
 
matchs := TRegEx.Matches(sResponseHtml, encryp_RexStr);
 if matchs.Count = 1 then
 begin
    tmpShopInfo.encryptAccountId := matchs.Item[0].Groups[1].Value;
    ...
    ...
 end