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 ;

 

 

转载于:https://www.cnblogs.com/m0488/p/6609816.html