From: beware <beware@bircd.org>
Date: Fri, 12 Oct 2012 18:50:15 +0000 (+0000)
Subject: readtxt2 allow open files to still be read by others
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/1272fe8df1c3cc91ea478e2d2d44a0ec4c80f57b

readtxt2 allow open files to still be read by others

git-svn-id: file:///svnroot/lcore/trunk@123 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/readtxt2.pas b/readtxt2.pas
index 12bea5a..1888c5b 100644
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -61,7 +61,7 @@ end;
 
 constructor treadtxt.createf(filename: string);
 begin
-  create(tfilestream.create(filename,fmOpenRead),true);
+  create(tfilestream.create(filename,fmOpenRead or fmShareDenyWrite),true);
 end;