X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/13da3d2110165e8501869e896f1f17706f2058c1..257fdc360d4c80e606358c108c890c5367436a12:/readtxt2.pas?ds=inline diff --git a/readtxt2.pas b/readtxt2.pas index 84c5765..8f74e6c 100644 --- a/readtxt2.pas +++ b/readtxt2.pas @@ -32,9 +32,9 @@ type sourcestream:tstream; destroysourcestream:boolean; constructor create(asourcestream: tstream; adestroysourcestream:boolean); - constructor createf(filename : string); + constructor createf(filename : ansistring); - 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 : ansistring); begin create(tfilestream.create(filename,fmOpenRead),true); end;