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;