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

本文整理自网络，侵删。

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

相关阅读 >>

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi 根据年份获取年干支

Delphi xe 使用asqlite操作sqlite数据库乱码

Delphi发送邮件函数

Delphi检测程序是否在优盘上运行

Delphi操作ini配置文件

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi屏蔽指定热键

Delphi中httpencode使用注意事项

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

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