Delphi Tstringlist,写文件同步

Question

我用tstringlist做了一个非常简单的日志.我把它写到文件:

pLog.SaveToFile(FileName);

某处有一个错误,我的电脑关机了.之后,我找不到我的日志文件.可能该文件以asych模式保存.还有一种方法可以等待写入继续执行吗？

谢谢,Alberto

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;