查人人中国名人网学前班数学5的分成:delphi 中如何初如化文本文件的值
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/26 01:30:10
比如目录下的一个data.txt与程序里面 用 assignfile(fp,currentpath+'\data.txt');
rewrite(fp);
write(fp,writeNum);
closefile(fp);
mmwrite.Lines.LoadFromFile(currentpath+'\data.txt');
这里，writeNum=writeNum+1 初始值为1
assignfile(fp,currentpath+'\data.txt');
reset(fp);
read(fp,readNum);
closefile(fp);
其实就是一个读写程序，，，程序运行的时候，如果中间停了一下，再点开始的话，，如果前面运行到 17 16 第一个写，第二个读
如果这里停下，再点开始的话，那么会从 1 17 开始，然后2 1这里的原因就是data.txt 里面的内容在刚开始的时候没有初始值，或者可以说是当再从新运行的时候没有清空data.txt里面的内容。而我想知道的就是，如何定义data.txt 当程序运行的时候，如果data.txt内容不为空时，先清空，就这么简单，但是我不会，，，，没有书学，前面的都是看着程序差出来他们的定义和用法的，哪位高手帮帮我，，分不在多，50分行了不，要是回得快又好的话，考虑加分
rewrite(fp);
write(fp,writeNum);
closefile(fp);
mmwrite.Lines.LoadFromFile(currentpath+'\data.txt');
这里，writeNum=writeNum+1 初始值为1
assignfile(fp,currentpath+'\data.txt');
reset(fp);
read(fp,readNum);
closefile(fp);
其实就是一个读写程序，，，程序运行的时候，如果中间停了一下，再点开始的话，，如果前面运行到 17 16 第一个写，第二个读
如果这里停下，再点开始的话，那么会从 1 17 开始，然后2 1这里的原因就是data.txt 里面的内容在刚开始的时候没有初始值，或者可以说是当再从新运行的时候没有清空data.txt里面的内容。而我想知道的就是，如何定义data.txt 当程序运行的时候，如果data.txt内容不为空时，先清空，就这么简单，但是我不会，，，，没有书学，前面的都是看着程序差出来他们的定义和用法的，哪位高手帮帮我，，分不在多，50分行了不，要是回得快又好的话，考虑加分
一条忠实的狗，蓝烟也不会升起
有时在夜晚有一张脸，
我们自墓地归来.
我自己也犯错，失算，出乱子，
可是我的胜利者的嘴唇却避开它。
琴，他曾坐在你坐过的位置轻叹哈哈