SysUtils.StringReplace - 替换

举例:
--------------------------------------------------------------------------------
 
var
  ss,s: string;
begin
  ss := '2007-2008';
  s := StringReplace(ss,'00','x',[rfReplaceAll]);
  ShowMessage(s);  //2x7-2x8

  s := StringReplace(ss,'00','x',[rfIgnoreCase]);
  ShowMessage(s);  //2x7-2008
end;
--------------------------------------------------------------------------------

 

 

Delphi的StringReplace 字符串替换函数  

2012-03-08 11:12:00|  分类： delphi 学习笔记 |  标签：delphi  |字号 订阅

 

 

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;