X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/fd34612bda96990b8a77d39fb939ba2703c85f3e..e27ef2c6aab3a2a8051314bd37bb3b2386775f36:/readtxt2.pas?ds=inline diff --git a/readtxt2.pas b/readtxt2.pas index 84c5765..a5f7de4 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 @@ -59,7 +59,7 @@ begin destroysourcestream := false; end; -constructor treadtxt.createf(filename : string); +constructor treadtxt.createf(filename: string); begin create(tfilestream.create(filename,fmOpenRead),true); end;