paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@13803 -
This commit is contained in:
marco 2009-10-04 13:36:43 +00:00
parent 271ed77004
commit 1e7ee7aef4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/streams.inc
View File

@ -624,7 +624,7 @@ procedure TMemoryStream.LoadFromFile(const FileName: string);
Var S : TFileStream; Var S : TFileStream;
begin begin
S:=TFileStream.Create (FileName,fmOpenRead); S:=TFileStream.Create (FileName,fmOpenRead or fmShareDenyWrite);
Try Try
LoadFromStream(S); LoadFromStream(S);
finally finally

2
rtl/objpas/classes/stringl.inc
View File

@ -728,7 +728,7 @@ Procedure TStrings.LoadFromFile(const FileName: string);
Var Var
TheStream : TFileStream; TheStream : TFileStream;
begin begin
TheStream:=TFileStream.Create(FileName,fmOpenRead); TheStream:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
LoadFromStream(TheStream); LoadFromStream(TheStream);
TheStream.Free; TheStream.Free;
end; end;