delphi TStreamReader 和TStreamWriter

很简单的实例，读写txt文件。

读txt文件

var

Reader: TStreamReader;

begin

Reader := TStreamReader.Create( 'txt路径',TEncoding.UTF8); //utf8 编码读写text1.txt

edtTitle.Text := Reader.ReadLine(); //读取一行

mmText.Text := Reader.ReadToEnd(); //读取全部

Reader.Free(); //关闭和释放

end;

写txt文件

var

Writer: TStreamWriter;

begin

Writer := TStreamWriter.Create('txt路径',false, TEncoding.UTF8); //打开写的文件

Writer.WriteLine(edtTitle.Text); //写一行

Writer.Write(mmText.Text); //写全部

Writer.Free();

end;

来源：https://www.cnblogs.com/imlions/archive/2012/02/06/delphi2010tstream.html

推荐分享