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;

SysUtils 单元下的公用函数目录

---