Delphi StringReplace – 替換字元函數

Delphi中的StringReplace函數是SysUtils單元中自帶的函數,該函數可以替換字元串中的指定字元。

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