Delphi StringReplace – 替换字符函数

Delphi StringReplace – 替换字符函数

Delphi中的StringReplace函数是SysUtils单元中自带的函数,该函数可以替换字符串中的指定字符。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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