ADD: Flush doublecmd.xml to the disk

This commit is contained in:
Alexander Koblov 2025-07-31 18:53:16 +03:00
commit 44b35f2e19

View file

@ -553,11 +553,12 @@ end;
procedure TXmlConfig.WriteToFile(const AFilename: String);
var
FileStream: TStream;
FileStream: TFileStreamEx;
begin
FileStream := TFileStreamEx.Create(AFilename, fmCreate or fmShareDenyWrite);
try
WriteToStream(FileStream);
FileStream.Flush;
finally
FileStream.Free;
end;