Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile、Study

// Compile、Study

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);

  reg.RegEx   := 'ab';

  reg.Options := [preCaseLess];

  reg.Compile; {编译表达式}

  reg.Study; {Study 方法会检查是否编译, 如果没有编译则执行 Compile}

  reg.Replacement := '◆';

  reg.Subject := 'abAbaB';

  reg.ReplaceAll;

  ShowMessage(reg.Subject); {返回: ◆◆◆}

  FreeAndNil(reg);

end;

{

  编译表达式, 会加快执行速度、降低启动速度;

  如果表达式比较复杂而又多次执行, 应该先编译;

  编译内容包括表达式选项.

}