Delphi 2010 TStreamReader 和TStreamWriter

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

读txt文件

1 var
2   Reader: TStreamReader;
3 begin
4   Reader := TStreamReader.Create( 'txt路径',TEncoding.UTF8); //utf8 编码读写text1.txt
5 
6   edtTitle.Text := Reader.ReadLine();   //读取一行
7   mmText.Text := Reader.ReadToEnd();    //读取全部
8   Reader.Free(); //关闭和释放
9 end;

写txt文件

1 var
2   Writer: TStreamWriter;
3 begin
4   Writer := TStreamWriter.Create('txt路径',false, TEncoding.UTF8); //打开写的文件
5   Writer.WriteLine(edtTitle.Text); //写一行
6   Writer.Write(mmText.Text);   //写全部
7   Writer.Free();
8 end;

转载于:https://www.cnblogs.com/imlions/archive/2012/02/06/delphi2010tstream.html