X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/5c04c841812bdb200cc3c73169b1542aef6c2fc3..8bffcf295dad495a39dabb9c6915c1692738b3fa:/readtxt2.pas diff --git a/readtxt2.pas b/readtxt2.pas index 8f74e6c..a5f7de4 100644 --- a/readtxt2.pas +++ b/readtxt2.pas @@ -32,7 +32,7 @@ type sourcestream:tstream; destroysourcestream:boolean; constructor create(asourcestream: tstream; adestroysourcestream:boolean); - constructor createf(filename : ansistring); + constructor createf(filename : string); function readline:ansistring; function eof:boolean; @@ -59,7 +59,7 @@ begin destroysourcestream := false; end; -constructor treadtxt.createf(filename : ansistring); +constructor treadtxt.createf(filename: string); begin create(tfilestream.create(filename,fmOpenRead),true); end;