Delphi 先加载原内容在写入增加新内容

本文整理自网络，侵删。

 
{先附上原内容在写入新内容}
Procedure AppendTxt(Str:String;FileName:String);
Var
    F:Textfile;
Begin
    AssignFile(F, FileName);
    Append(F); {附上原来的内容以免原内容被清空}
    Writeln(F, Str); {把内容 Ser 写入文件F }
    Closefile(F);
End;
 

相关阅读 >>

Delphi restfull api调用方法

Delphi 金木水火土 生克用法

Delphi string转unicode

Delphi utf-8

Delphi xe使用tjsonobject解析json数据

Delphi10.2.3解决的一个json问题

Delphi idhttp1post上传图片

Delphi 获取本地网络连接

Delphi中限制鼠标的移动区域

Delphi 写变速齿轮外挂

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 先加载原内容在写入增加新内容