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

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

把 AStr 内容 添加到 文件 APath中

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

这个功能需要根据下拉框内容来判断，具体代码如下： [field:zczt/] 本人测试成功，我这段代码是放在{dede:list}{/dede:list}里面的 具体用哪个标签根据自己需要 只是提供一种解决思路

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