fix destroysourcestream always false bug

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

diff --git a/readtxt2.pas b/readtxt2.pas
index a5f7de4f3461c17ff8326ba04dc43fca68a3ab13..ee657367ea6ae7e43804b16033cc173943888fd4 100644 (file)
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -56,7 +56,6 @@ begin
 \r
   if sourcestream.Position >= sourcestream.size then fileeof := true;\r
   bufpointer := bufsize;\r
 \r
   if sourcestream.Position >= sourcestream.size then fileeof := true;\r
   bufpointer := bufsize;\r

-  destroysourcestream := false;\r

 end;\r
 \r
 constructor treadtxt.createf(filename: string);\r
 end;\r
 \r
 constructor treadtxt.createf(filename: string);\r