Delphi中TRegEx.Replace替换空字符串时行为异常原因咨询

你的问题核心是正则里的\s*匹配了DECLARE'后的换行符，导致替换空字符串时连换行一起被删除，而替换非空字符串时你没注意到这个差异。

具体分析 #

1. 你的原始字符串实际是：DECLARE' + 换行 + DECLARE''
2. 正则表达式\A\s*DECLARE''\s*（Delphi字符串中两个单引号转义为一个）中，\s*会匹配包括换行在内的任意空白字符（Delphi的TRegEx默认规则下，\s涵盖换行、空格、制表符等）
3. 替换为非空字符串abc时，abc直接覆盖了DECLARE'和后续换行，输出abcDECLARE''，你认为符合预期
4. 替换为空字符串时，DECLARE'和换行一起被替换为空，输出DECLARE''，但你预期是保留换行只删除DECLARE'，因此觉得结果不符合预期

解决方案 #

根据你的需求，调整正则表达式即可：

• 如果你只想替换开头的DECLARE'，不包含后续换行，直接去掉正则末尾的\s*：

  result := TRegEx.Replace(result, '\A\s*DECLARE''', '', [roIgnoreCase]);
  

• 如果你需要匹配水平空白（空格、制表符）但不包含换行，用\h*代替\s*（\h仅匹配水平空白字符）：

  result := TRegEx.Replace(result, '\A\h*DECLARE''\h*', '', [roIgnoreCase]);
  

另外，虽然\A锚定了字符串开头，天然只会匹配一次，但如果想明确指定只替换第一个匹配项，可以使用带Count参数的重载：

result := TRegEx.Replace(result, '\A\h*DECLARE''\h*', '', [roIgnoreCase], 1);

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