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 ;
|