Question

在delphi中有这么一个自定义的函数，哪位大神帮帮忙看一下txtWrite这个函数有什么用？

function txtWrite(APath, AStr : string) : string;
var
f : TextFile;
begin
AssignFile(f, APath);//TP中的assign
Rewrite(f);
Append(f);//TP中如不存在pp.bat这个文件，也同样可以直接创立，但在delphi中需要增加此语句
Writeln(f, AStr);
CloseFile(f);
end;

Answer 1

如果没有APath文件的话，则创建，然后在文件末尾添加AStr字符串。然后关闭文件。

Answer 2

以追加方式写入文件APath字符串Astr

Answer 3

把 AStr 内容 添加到 文件 APath中

Answer 4

被回答了。