* Patch from Paul Ishenin, load stringlists with fmdenywrite. (improves sharing behaviour)

git-svn-id: trunk@13803 -

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

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;