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