function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
rfReplaceAll:全部替换 rfIgnoreCase:忽略大小写
aStr := 'This is a book, not a pen!';
//This is two book, not a pen!只替换了第一个符合的字
StringReplace (aStr, 'a', 'two', []);
//This is two book, not two pen!替换了所有符合的字
StringReplace (aStr, 'a', 'two', [rfReplaceAll]);
aStr := 'This is a book, not A pen!';
//This is two book, not A pen!只替换了符合的字(小写a)
StringReplace (aStr, 'a', 'two', [rfReplaceAll]);
//This is two book, not two pen!不管大小写替换了所有符合的字
StringReplace (aStr, 'a', 'two', [rfReplaceAll, rfIgnoreCase]);