X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/c1c7500bc32248d67b6cf7903a6db7b15e2cd1c9..1272fe8df1c3cc91ea478e2d2d44a0ec4c80f57b:/readtxt2.pas

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;