在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
创建文本文件 代码如下: 1 //创建一个文本文件 2 procedure CreateTextFile(); 3 var 4 TF: TextFile; 6 begin 8 AssignFile(TF,'C:\tmp\1.txt'); 9 ReWrite(TF); 10 CloseFile(TF); 11 end;
向文本文件中添加内容 代码如下: //向文本文件中追加内容 Procedure AppendText(str: String); var TF: TextFile; begin assignfile(TF,'C:\tmp\1.txt'); rewrite(TF); append(TF);//TMP中如不存在1.TXT这个文件,会自动创建 writeln(TF, str); closefile(TF); end;
https://www.cnblogs.com/jeremywucnblog/
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论