在Delphi中， 如何將文字檔內容全部清空？

我有一個偷懶的方法.    你先有一個空的文字檔 當你想清空某一個文字檔時, 就用 CopyFile 將空的文字檔覆蓋過去 ... 

引言: 我有一個偷懶的方法. 你先有一個空的文字檔 當你想清空某一個文字檔時, 就用 CopyFile 將空的文字檔覆蓋過去 ... < face="Verdana, Arial, Helvetica"> 那還得有個空檔存在，不如刪除舊檔，產生一個空的文字檔就行啦！ PostgreSQL、FastReport專業討論區 http://pgsql.vip.idv.tw:8080

lukyshu 說得也對  另外, 如果要用 class="code"> var aa: TextFile; begin AssignFile( aa, 'c:\xx.txt'); Reset( aa); while not Eof( aa) do begin Rewrite( aa); Write( aa, ''); Reset( aa); end; CloseFile( aa); end;

--------------------------------- 謝謝 FrederickPau &lukyshu 指教！ --------------------------------- 程式與文字檔放在同一資料夾，寫法： procedure TForm1.Button1Click(Sender: TObject); var aa: TextFile; begin AssignFile( aa, 'xx.txt'); Reset( aa); while not Eof( aa) do begin Rewrite( aa); Write( aa, ''); Reset( aa); end; CloseFile( aa); end;

插個花: Strs : TStringList.Create; strs.Clear; strs.SaveToFile('abc.txt'); strs.Free; 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.