Delphi – 如何将字符串连接分成几行

发布时间：2020-12-15 09:09:24 所属栏目：大数据来源：网络整理

导读：我有一个很长的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

我有一个很长的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,T1COLUMN3 ' + 'FROM TABLE1 T1 INNER JOIN '+  'TABLE2 T2 ON T1.ID=T2.ID'

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

解决方法

尝试在每一行中分配值：

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

我知道它看起来很难看,但我认为它解决了你的问题.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!