pas文件中字符串的格式

Question

当跨越多行时，是否有一种很好的方式将字符串赋值给变量？

这样做的原因是我有一些大的SQL语句（我想在PAS），但它很烦人这样

var 
    sql : string; 
begin 
    sql := 'SELECT * ' + 
     'FROM foo ' + 
     'WHERE `this`=0'; 

这是恼人的复制并粘贴到终端/另一个程序，因为我有删除“和” +等

有没有这样类似...

var 
    sql : string; 
begin 
    sql := ""SELECT * 
     FROM foo 
     WHERE `this`=0""; 

所以一些方法来分配文本/字符串与新线Wi块的方式无需连接它。

Answer 1

由于在SQL中没有这种方式来表达字符串，我通常使用RegEx搜索并在Delphi IDE中使用可替换的字符串来以所需的方式格式化字符串。

SELECT * 
    FROM foo 
    WHERE `this`=0 

该命令替换用引号括起来的线路的任何线路，其次是+ sLineBreak +

sql := 
     ' SELECT *' + sLineBreak + 
     ' FROM foo' + sLineBreak + 
     ' WHERE `this`=0' + sLineBreak + 

我然后就收拾的最后一行：

sql := 
     ' SELECT *' + sLineBreak + 
     ' FROM foo' + sLineBreak + 
     ' WHERE `this`=0'; 

中当然，对于任何前面的或后面的文本也可以做到这一点因为qry.SQL.Add('\0');

Answer 2

不是我所知道的（至少不是开箱即可）。无论如何，你可能想看看这个：

How to assign a multiline string value without quoting each line?

Answer 3

你的问题是：

可以在德尔福字符串文字跨多行？

答案是否定的。

Answer 4

您可以将SQL保留在具有像TSQLQuery这样的TStrings属性的组件中，但是对于较长/复杂语句的解决方案是将“示例”副本保留为源代码注释，该注释具有实际参数测试更容易，并保持两个版本同步。

Answer 5

如果你喜欢C＃做它（像我一样）的方式，那么不要忘记投票支持这个QC报告：

http://qc.embarcadero.com/wc/qcmain.aspx?d=2012

它建议，使您的例子是这样的：

var 
    sql : string; 
begin 
    sql := @'SELECT * 
     FROM foo 
     WHERE `this`=0'; 

Answer 6

如果您在Delphi安装GExperts，IDE将自动压制后插入'+>输入<如果你是一个字符串中，并没有关闭它呢。

下载链接：http://www.gexperts.org/download.html