创建文本文件
代码如下:
1 //创建一个文本文件 2 procedure CreateTextFile(); 3 var 4 TF: TextFile; 6 begin 8 AssignFile(TF,'C: mp1.txt'); 9 ReWrite(TF); 10 CloseFile(TF); 11 end;
向文本文件中添加内容
代码如下:
//向文本文件中追加内容 Procedure AppendText(str: String); var TF: TextFile; begin assignfile(TF,'C: mp1.txt'); rewrite(TF); append(TF);//TMP中如不存在1.TXT这个文件,会自动创建 writeln(TF, str); closefile(TF); end;
作者:Jeremy.Wu
出处:https://www.cnblogs.com/jeremywucnblog/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。