// Compile、Studyvar  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;{  编译表达式, 会加快执行速度、降低启动速度;  如果表达式比较复杂而又多次执行, 应该先编译;  编译内容包括表达式选项.}