// 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;
{
編譯表達式, 會加快執行速度、降低啟動速度;
如果表達式比較復雜而又多次執行, 應該先編譯;
編譯內容包括表達式選項.
}