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