很简单的实例，读写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;