Delphi - 創建text文件並添加數據到文件中

創建文本文件

代碼如下：

//創建一個文本文件
procedure CreateTextFile();
var
  TF: TextFile; 6 begin  8   AssignFile(TF,'C:\tmp\1.txt');
  ReWrite(TF);
  CloseFile(TF);
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;

 

  作者：Jeremy.Wu
  出處：https://www.cnblogs.com/jeremywucnblog/
  本文版權歸作者和博客園共有，歡迎轉載，但未經作者同意必須保留此段聲明，且在文章頁面明顯位置給出原文連接，否則保留追究法律責任的權利。