readtxt2 allow open files to still be read by others

[lcore.git] / readtxt2.pas

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
-  create(tfilestream.create(filename,fmOpenRead),true);\r
+  create(tfilestream.create(filename,fmOpenRead or fmShareDenyWrite),true);\r
 end;\r
 \r
 \r