From 1e7ee7aef4700cc7902997b0c3615272dc99ba42 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 4 Oct 2009 13:36:43 +0000
Subject: [PATCH]  * Patch from Paul Ishenin, load stringlists with
 fmdenywrite. (improves sharing behaviour)

git-svn-id: trunk@13803 -
---
 rtl/objpas/classes/streams.inc | 2 +-
 rtl/objpas/classes/stringl.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/streams.inc b/rtl/objpas/classes/streams.inc
index ab98c2425b..51ef94d9f7 100644
--- a/rtl/objpas/classes/streams.inc
+++ b/rtl/objpas/classes/streams.inc
@@ -624,7 +624,7 @@ procedure TMemoryStream.LoadFromFile(const FileName: string);
 Var S : TFileStream;
 
 begin
-  S:=TFileStream.Create (FileName,fmOpenRead);
+  S:=TFileStream.Create (FileName,fmOpenRead or fmShareDenyWrite);
   Try
     LoadFromStream(S);
   finally
diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 5ad6363cb6..45bc67fdb3 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -728,7 +728,7 @@ Procedure TStrings.LoadFromFile(const FileName: string);
 Var
         TheStream : TFileStream;
 begin
-  TheStream:=TFileStream.Create(FileName,fmOpenRead);
+  TheStream:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
   LoadFromStream(TheStream);
   TheStream.Free;
 end;