本文整理自网络,侵删。
很简单的实例,读写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
相关阅读 >>
Delphi idhttpserver接收http get请求解码问题
Delphi如何获取系统服务(即service服务程序)列表
Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕?
更多相关阅读请进入《Delphi》频道 >>