本文整理自网络，侵删。
将字符串写入txt文档，读取txt文档中的内容。
//一次写字符串到文本文件，每次都会将原来的内容替换掉。
procedure FilePutContents(f,s:String); // f为文件名，s为存的内容
var
ss:TStrings;
begin
ss:=TStringList.Create;
ss.Text:=s;
ss.SaveToFile(f, TEncoding.UTF8);
ss.Free;
end;
下面为不替换原来的内容，追加写入文本：
procedure FilePutAssign(f,s: string); // 追加写入文本
var
ss, txt:TStrings;
begin
ss :=TStringList.Create;
txt:=TStringList.Create;
txt.LoadFromFile(f);
ss.Text:= txt.Text + s;
ss.SaveToFile(f, TEncoding.UTF8);
ss.Free;
end;
从文本中读取文本：
//一次读取文本文件到字符串
function FileGetContents(f:String):String;
var
ss:TStrings;
begin
ss:=TStringList.Create;
ss.LoadFromFile(f);
result:=ss.Text; // 返回值为文本中内容 www.delphitop.com
ss.Free;
end;
相关阅读 >>
Delphi xe 如何实现("再按一次退出") 然后退出程序
Delphi fdmemtable中如何在已有的字段数据集上加入字段
更多相关阅读请进入《Delphi》频道 >>
