Delphi 正則表達式語法(1): 關於大小寫與中文

//替換一般字符串

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := '我愛DELPHI, 但Delphi不愛我!';
　reg.RegEx　 := 'Delphi';
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: 我愛Delphi, 但◆不愛我!
　FreeAndNil(reg);
end;

　　//不區分大小寫

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := '我愛DELPHI, 但Delphi不愛我!';
　reg.RegEx　 := 'Delphi';
　reg.Replacement := '◆';
　reg.Options := [preCaseLess]; //不區分大小的設定, 默認是區分的
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: 我愛◆, 但◆不愛我!
　FreeAndNil(reg);
end;

　　//試試中文替換

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := '我愛DELPHI, 但Delphi不愛我!';
　reg.RegEx　 := '我';
　reg.Replacement := '◆';
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆愛DELPHI, 但Delphi不愛◆!
　FreeAndNil(reg);
end;

　　//如果不區分大小寫, 竟然也不區分中文字了

var
　reg: TPerlRegEx;
begin
　reg := TPerlRegEx.Create(nil);
　reg.Subject := '我愛DELPHI, 但Delphi不愛我!';
　reg.RegEx　 := '我';
　reg.Replacement := '◆';
　reg.Options := [preCaseLess]; //也設定不區分大小
　reg.ReplaceAll;
　ShowMessage(reg.Subject); //返回: ◆◆DELPHI, ◆Delphi◆◆◆!
　FreeAndNil(reg);
end;//我測試了不同的漢字, 除了亂以外,沒有規律; 所有如果操作漢字暫時不要指定 preCaseLess