Merged with delphi 2010 branch

[lcore.git] / readtxt2.pas

diff --git a/readtxt2.pas b/readtxt2.pas
index 84c57652c4e90fe86d85cb4dc263b4261a4a8dd1..a5f7de4f3461c17ff8326ba04dc43fca68a3ab13 100644 (file)
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -34,7 +34,7 @@ type
     constructor create(asourcestream: tstream; adestroysourcestream:boolean);\r
     constructor createf(filename : string);\r
 \r
     constructor create(asourcestream: tstream; adestroysourcestream:boolean);\r
     constructor createf(filename : string);\r
 \r

-    function readline:string;\r
+    function readline:ansistring;\r

     function eof:boolean;\r
     destructor destroy; override;\r
   private\r
     function eof:boolean;\r
     destructor destroy; override;\r
   private\r


@@ -59,7 +59,7 @@ begin
   destroysourcestream := false;\r
 end;\r
 \r
   destroysourcestream := false;\r
 end;\r
 \r

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

 begin\r
   create(tfilestream.create(filename,fmOpenRead),true);\r
 end;\r
 begin\r
   create(tfilestream.create(filename,fmOpenRead),true);\r
 end;\r