* Fix bug #31587

git-svn-id: trunk@35644 -
2025-04-08 06:08:16 +02:00 · 2017-03-23 15:22:07 +00:00 · 2017-03-23 15:22:07 +00:00 · 3148129d6f
commit 3148129d6f
parent cfa5a354cb
1 changed files with 1 additions and 1 deletions
--- 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