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 12bea5afed8cceeccd92590e58671ab1bf0a7b83..1888c5b21e837b81c30780a7f3b11f10218faee0 100644 (file)
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -61,7 +61,7 @@ end;
 \r
 constructor treadtxt.createf(filename: string);\r
 begin\r
 \r
 constructor treadtxt.createf(filename: string);\r
 begin\r

-  create(tfilestream.create(filename,fmOpenRead),true);\r
+  create(tfilestream.create(filename,fmOpenRead or fmShareDenyWrite),true);\r

 end;\r
 \r
 \r
 end;\r
 \r
 \r