//一次写字符串到文本文件，每次都会将原来的内容替换掉。
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;      // 返回值为文本中内容
  ss.Free;
end;