将字符串写入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;