H hxiaomin888 Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-31 #1 var<br> fs:TFileStream<br>begin<br> FileName :='c:/a.txt';<br> fs:=TFileStream.Create(FileName,fmOpenReadWrite);<br> 如何清空fs的内容?
var<br> fs:TFileStream<br>begin<br> FileName :='c:/a.txt';<br> fs:=TFileStream.Create(FileName,fmOpenReadWrite);<br> 如何清空fs的内容?
M madic Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-31 #3 ...要是你是把大小清空为0..<br>可以用assignedfile<br>然后rewrite..<br><br>要是把内空清空为#0<br>就是for i:=0:=fs.size-1 do<br> fs.write(#0);
...要是你是把大小清空为0..<br>可以用assignedfile<br>然后rewrite..<br><br>要是把内空清空为#0<br>就是for i:=0:=fs.size-1 do<br> fs.write(#0);
H hxiaomin888 Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-03 #4 请问一下:<br>fs.size=0行吗?<br>如果要采用下面方法,<br>for i:=0:=fs.size-1 do<br> fs.write(#0); <br>要是fs.size比较大的话, 那不是花费时间较长?
请问一下:<br>fs.size=0行吗?<br>如果要采用下面方法,<br>for i:=0:=fs.size-1 do<br> fs.write(#0); <br>要是fs.size比较大的话, 那不是花费时间较长?
P Passion Unregistered / Unconfirmed GUEST, unregistred user! 2008-11-03 #7 记错了，惭愧中。<br>MemoryStream才有。
M madic Unregistered / Unconfirmed GUEST, unregistred user! 2008-12-15 #9 fs.size=0行吗?<br>嗯，是可以的..直接fs.size:=你的大小
