X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/a1858883733a454b6ffb73aa263ef5badc2a1d07..36ee947888d0a2a0d0f47d3f89f035a5dc96931f:/readtxt2.pas?ds=inline

diff --git a/readtxt2.pas b/readtxt2.pas
index 84c5765..ee65736 100644
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -34,7 +34,7 @@ type
     constructor create(asourcestream: tstream; adestroysourcestream:boolean);
     constructor createf(filename : string);
 
-    function readline:string;
+    function readline:ansistring;
     function eof:boolean;
     destructor destroy; override;
   private
@@ -56,10 +56,9 @@ begin
 
   if sourcestream.Position >= sourcestream.size then fileeof := true;
   bufpointer := bufsize;
-  destroysourcestream := false;
 end;
 
-constructor treadtxt.createf(filename : string);
+constructor treadtxt.createf(filename: string);
 begin
   create(tfilestream.create(filename,fmOpenRead),true);
 end;