如何将Delphi中的SQL脚本行从TStringList记录到文件中

Question

我使用此代码记录许多行（SQL.Add），制作我必须构建的复杂脚本：

例如：

[...]
SQL.Add('ENTITY_ID, PRO_CODE, PHASE_CODE, TASK_CODE, PERIOD_REF');
SQL.Add('from ' + trim(SourceJrnl) + ' where');
SQL.Add('MASTER_ID = ' + IntToStr(TranID) + ' and');...
[...]


{ for debugging only }
for i := 0 to SQL.Count-1 do 
  ShowMessage('Line #' + IntToStr(i+1) + ' : '+ SQL.Strings[i]);

使用字符串列表或备忘录将行写入文件的任何简单方法（函数）。

[编辑]抱歉。没有备忘录或字符串列表，只是一个简单的日志文件。

Answer 1

调用SQL.SaveToFile会将查询写入文件，但它会破坏以前的文件内容，因此您只能查看一个查询而不能查看其他日志。相反，请阅读SQL.Text属性以获取单个字符串中的所有行，然后使用您对其余程序的任何日志记录技术将其写入日志文件。在紧要关头，将一行文字写入文件的简单方法是调用Writeln，但people have asked about real logging libraries before。