delphi 先加载原内容在写入增加新内容
{先附上原内容在写入新内容}
Procedure AppendTxt(Str:String;FileName:String);
Var
F:Textfile;
Begin
AssignFile(F, FileName);
Append(F); {附上原来的内容以免原内容被清空}
Writeln(F, Str); {把内容 Ser 写入文件F }
Closefile(F);
End;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.049677133560181 seconds