More string type fixes

[lcore.git] / readtxt2.pas

diff --git a/readtxt2.pas b/readtxt2.pas
index 84c57652c4e90fe86d85cb4dc263b4261a4a8dd1..8f74e6cd99b1eafc88dd82c0b2c772bfa5064c33 100644 (file)
--- a/readtxt2.pas
+++ b/readtxt2.pas
@@ -32,9 +32,9 @@ type
     sourcestream:tstream;\r
     destroysourcestream:boolean;\r
     constructor create(asourcestream: tstream; adestroysourcestream:boolean);\r
     sourcestream:tstream;\r
     destroysourcestream:boolean;\r
     constructor create(asourcestream: tstream; adestroysourcestream:boolean);\r

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

 \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 : ansistring);\r

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