如何在Delphi代码中拆分长字符串为多行？

嘿，完全懂你在Delphi里处理超长SQL字符串的烦恼——单行写完不仅眼睛累，后续改个字段或者条件都得来回拖滚动条，太影响效率了！你提到的用+拼接拆分确实是思路之一，但其实不用太担心拼接操作的问题，Delphi在这方面有很贴心的处理，而且还有其他更顺手的方式，我给你梳理几种常用方案：

1. 编译时合并的常量拼接（最推荐静态场景） #

如果你要处理的是固定不变的长字符串（比如静态SQL），直接用+把拆分的多行字符串连起来就行——划重点：Delphi编译器会在编译阶段就把这些拼接的常量合并成一个完整字符串，运行时不会有任何拼接操作的性能损耗！

举个例子：

const
  cGetInvalidEmailsSQL = 'SELECT ' +
                         'Email ' +
                         'FROM ' +
                         'Employee ' +
                         'WHERE ' +
                         'NOT REGEXP_LIKE(Email, ''[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}'', ''i'');';

注意这里字符串里的单引号要写成两个（''），这是Delphi中转义单引号的规则。这种写法既把长字符串拆成了逻辑清晰的多行，又不会带来运行时的额外开销，可读性和性能兼顾。

2. 直接多行书写（适合允许空白的场景） #

大多数数据库的SQL解析器会忽略字符串中的换行和多余空白，所以如果你不介意最终字符串里包含换行符，完全可以直接把字符串拆成多行写，连+都不用加：

const
  cGetInvalidEmailsSQL = 'SELECT Email
FROM Employee
WHERE NOT REGEXP_LIKE(Email, ''[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}'', ''i'');';

这种写法更简洁，代码看起来更清爽，唯一要注意的是字符串里会保留换行符，但对于SQL执行来说完全不影响，反而在调试时看SQL语句的结构更直观。

3. 动态构建用TStringList（适合可变场景） #

如果你的长字符串是动态生成的（比如要根据不同条件添加WHERE子句），用TStringList来拼接会更灵活，代码也更易维护：

var
  SQLBuilder: TStringList;
  FinalSQL: string;
begin
  SQLBuilder := TStringList.Create;
  try
    SQLBuilder.Add('SELECT Email');
    SQLBuilder.Add('FROM Employee');
    // 可以根据条件动态添加语句
    SQLBuilder.Add('WHERE NOT REGEXP_LIKE(Email, ''[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}'', ''i'');');
    
    FinalSQL := SQLBuilder.Text;
    // 这里就可以用FinalSQL执行数据库操作了
  finally
    SQLBuilder.Free;
  end;
end;

这种方式的好处是可以随时插入、删除或修改某一行内容，逻辑清晰，也避免了手动拼接容易出错的问题。

总的来说，静态长字符串优先用第一种或第二种方式，动态场景用第三种，都能很好地提升代码可读性，同时不会有不必要的性能问题~

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