8 роки тому · 3148129d6f
--- a/packages/fcl-json/src/jsonconf.pp
+++ b/packages/fcl-json/src/jsonconf.pp
@@ -724,7 +724,7 @@ Var
 
															   F : TFileStream;
														
 
															 begin
														
 
															-  F:=TFileStream.Create(AFileName,fmopenRead);
														
 
															+  F:=TFileStream.Create(AFileName,fmopenRead or fmShareDenyWrite);
														
 
															   try
														
 
															     LoadFromStream(F);
														
 
															   finally