Delphi Tstringlistは、ファイル同期を書き込みます

Question

私はtstringlistで非常に簡単なログを作成します。私はファイルに書き込みます：

pLog.SaveToFile(FileName); 

どこかにバグがあり、コンピュータがシャットダウンしています。 ログファイルが見つかりません。ファイルがasychモードで保存されている可能性があります。 実行前に書き込みを待つ方法がありますか？

おかげで、 アルベルト

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; 

Answer 2

が同期して動作します。

問題の最も明白な原因は次のとおりです。

1. あなたはを呼び出していません。
2. ファイル名が無効です（パスが存在しない可能性があります）。
3. ファイル名は、ユーザーが書き込みアクセス権を持たないフォルダ（プログラムファイルフォルダなど）にあります。