字符串处理函数

---------------------------------------------------------------

字符串替换：

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;