delphi - 如何在 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，但人们之前曾询问过真正的日志库。