%!s(int64=8) %!d(string=hai) anos · 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