X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/a1858883733a454b6ffb73aa263ef5badc2a1d07..a83971b64b0b20f6774cf3ccedd05202ad0bdb0e:/readtxt2.pas 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;