// 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; { 編譯表達式, 會加快執行速度、下降啓動速度; 若是表達式比較複雜而又屢次執行, 應該先編譯; 編譯內容包括表達式選項. }