Delphi - 如何将字符串连接分成多行

Question

我有一个很长的 SQL 文本，我想将其分配给查询 SQL。我按以下方式执行此操作:

SQL.Text:= 'SELECT T1.COLUMN1,T2.COLUMN2,T1COLUMN3..........,'+
          ' T1.COLUMNn FROM TABLE1 T1 INNER JOIN '+
          ' TABLE2 T2 ON T1.ID=T2.ID'+
          ' WHERE T1.COLUMN10=100'

实际的 SQL 比这个长 20 倍。我的问题是换行符。当我格式化源代码(Ctrl+D)时，它有时会保留我键入的行，但有时它会删除换行符，我会得到如下内容:

 'SELECT T1.COLUMN1,T2.COLUMN2,T1COLUMN3 ' + 'FROM TABLE1 T1 INNER JOIN '+  'TABLE2 T2 ON T1.ID=T2.ID'

这会导致“行太长(超过 1023 个字符)”错误。有趣的是，并非所有线路都会发生这种情况。我无法理解会受到影响的线路和不会受到影响的线路之间的区别。我需要在“+”号之后或之前换行。我该怎么做？

Answer 1

您还可以使用添加功能。

SQL.Clear;
SQL.ADD('SELECT T1.COLUMN1,T2.COLUMN2,T1COLUMN3..........,');
SQL.ADD(' T1.COLUMNn FROM TABLE1 T1 INNER JOIN');
SQL.ADD(' TABLE2 T2 ON T1.ID=T2.ID');
SQL.ADD(' WHERE T1.COLUMN10=100');