Delphi中移除字符串多个连续空格的最简方法是什么？

直接借助正则表达式的替换功能，一行代码即可完成需求，无需循环或字符串拆分操作：

import re
processed_str = re.sub(r' +', ' ', "The   fox   jumped   over    the log.")

• 说明：r' +' 用于匹配一个或多个连续空格，将其替换为单个空格；如果需要同时处理制表符等其他空白字符，可改用匹配模式 r'\s+'。

内容的提问来源于stack exchange，提问作者JakesF