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