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;

用法：