delphi 读写文本

将字符串写入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;      // 返回值为文本中内容
  ss.Free;
end;