Delphi保存字符串到文本文件

Delphi保存字符串到文本文件，若指定文件不存在，则自动创建；保存字符串时采用累加形式。

procedure mSaveToFile(const FileName: string; sts: string);
var
  MyTextFile: TextFile;          //定义变量MyTextFile为文本文件类型
begin
  //(*步骤1，将文件变量与外部文件联系。相当于为外部文件找了个“替身”*)
  AssignFile(MyTextFile, FileName);
  //(*判断操作的文件是否存在，不存在则创建文件。*)
  if FileExists(FileName) then
  //(*步骤2，打开文件，不过在打开前，最好进行文件是否存在的判断。*)
      Append(MyTextFile)
  else
      Rewrite(MyTextFile);
  try
  //(*步骤3，对文件进行操作。*)
      Writeln(MyTextFile, sts);
      Flush(MyTextFile);     //清空缓冲区，确保字符串已经写入文件之中。
  finally
      //(*步骤4，关闭打开的文件，CloseFile常与try…finally搭配，用于回收资源 *)
      CloseFile(MyTextFile);
  end;
end;

用法：

mSaveToFile(ExtractFilePath(Application.ExeName)+'test.txt', FormatDateTime('YYYY-MM-DD HH:mm:SS', now)+'测试');