Преглед на файлове

ADD: Flush doublecmd.xml to the disk

Alexander Koblov преди 1 месец
родител
ревизия
44b35f2e19
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      components/doublecmd/dcxmlconfig.pas

+ 2 - 1
components/doublecmd/dcxmlconfig.pas

@@ -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;