Обязательно записываем config.xml даже если всё поумолчанию

zamtmn · Dec 24, 2024 · 49508ad · 49508ad
1 parent 3fc071f
commit 49508ad
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cad_source/zcad/uzcsysparams.pas b/cad_source/zcad/uzcsysparams.pas
@@ -110,7 +110,11 @@ procedure SaveParams(xmlfile:string;var Params:tsavedparams);
     finally
       Config.Free;
     end;
-    XMLConfig.Flush;
+    //не писать файл нельзя(когда все значения по умолчанию)
+    //т.к. при не нахождении конфиг "по умолчанию" создан не будет,
+    //но будет взят конфиг из дитрибутива
+    XMLConfig.SaveToFile(xmlfile);
+    //XMLConfig.Flush;
   finally
     XMLConfig.Free;
   end;