Delphi regular expression syntax (1): case sensitive and Chinese

// Replace the common string var REG: tperlregex; begin REG: = tperlregex. Create (NiL); Reg. Subject: = 'I love Delphi, But Delphi doesn't love me! '; Reg. regEx: = 'delphi '; Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); // return: I love Delphi, but ◆ don't love me! Freeandnil (REG); end;
  
   
 // Case insensitive var REG: tperlregex; begin REG: = tperlregex. Create (NiL); Reg. Subject: = 'I love Delphi, But Delphi doesn't love me! '; Reg. regEx: = 'delphi '; Reg. replacement: = '◆ '; Reg. options: = [precaseless]; // The parameter value is not distinguished by size. The default value is Reg. replaceall; showmessage (Reg. subject); // return: I love ◆, but ◆ don't love me! Freeandnil (REG); end;
  
   
 // Try replacing var REG: tperlregex; begin REG: = tperlregex. Create (NiL); Reg. Subject: = 'I love Delphi, But Delphi doesn't love me! '; Reg. regEx: = 'I'; Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); // return: ◆ love Delphi, But Delphi does not love ◆! Freeandnil (REG); end;
  
   
 // If it is case-insensitive, var reg: tperlregex; begin REG: = tperlregex will not be distinguished. create (NiL); Reg. subject: = 'I love Delphi, But Delphi does not love me! '; Reg. regEx: = 'I'; Reg. replacement: = '◆ '; Reg. options: = [precaseless]; // It is also set to not differentiate the size of Reg. replaceall; showmessage (Reg. subject); // return: ◆ Delphi, ◆ Delphi ◆! Freeandnil (REG); end; // I tested different Chinese characters, except for disorder, which is irregular. If you operate Chinese characters, do not specify precaseless