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)+'测试');