Delphi自带的StringReplace效率非常低，字符串长一些就很慢。这个速度绝对快，你可以和StringReplace比一下，

单元 StrPosDefs 和 StrPos32 和/或 StrPos64 包含扩展 system.pos 和 sysUtils.StringReplace 功能的函数，它们可能会导致显着的性能改进。 功能： • （重复）字符串中子字符串的位置（ANSI 字符串或字符串），无论是否区分大小写。 • 用字符串或ANSI 字符串中的另一种模式替换模式（一个或全部，区分大小写或不区分大小写） 平台： • 32 位和64 位窗口。 速度： • 字符串更换可以比标准快 6-9 倍。 字符串搜索增益主要在 64 位模式下（使用字符串快 40%，使用 ANSIstring 快 10 倍）。