Delphi Tstringlist，写入文件同步

Question

我用 tstringlist 制作了一个非常简单的日志。我将其写入文件:

pLog.SaveToFile(FileName);

某处出现错误，我的计算机已关闭。之后，我找不到我的日志文件。可能该文件以异步模式保存。有没有办法等待写入之前继续执行？

谢谢，阿尔贝托

Answer 1

如果savetofile调用位于程序末尾，并且程序异常终止，则该调用可能不会执行。我使用一种日志记录机制，对于每个日志调用，都会打开日志文件，写入日志文本和时间，刷新然后关闭日志文件。这样，即使程序异常终止，也可以保证将日志文本写入文件。

代码如下:

procedure TMainForm.Log (const s: string);
var
 f: textfile;

begin
 assignfile (f, logfilename);
 {$I-}  // yes, I know: modern programming style requires a try/except block
 append (f);
 if ioresult <> 0 then rewrite (f);
 {$I+}
 writeln (f, datetostr (now), ' ', timetostr (now), ' ', s);
 flush (f);
 closefile (f);
end;