Delphi 文件读写

文件的打开与关闭
AssignFile ：把一个外部文件名和一个文件变量相关联
Reset ：打开一个存在的文件
Rewrite ：创建并打开一个新文件（或覆盖原有文件）
Append ：以添加方式打开一个文件（只适用于文本文件）
CloseFile ：关闭一个打开的文件
FileOpen ：打开一个特定的文件并返回文件句柄
FileCreate ：创建一个给定文件名的文件并返回文件句柄
FileClose ：关闭一个特定句柄的文件

---

例2．15 使用Rewrite()过程在程序运行的当前目录下创建一个文本文件file．txt，并向文件中增加5行文本。

    Var      textf：TextFile；    //定义文件变量textf      S：String；      i：Integer；    begin          AssignFile(textf，'file．txt')； //将文件变量textf与当前目录中的“file．txt"文件关联      Rewrite(textf);                     //创建文件或打开已存在的文件进行覆盖      for i：=1 to 5 do      begin        S := 'This is Line#';        writeln(textf，s，i)；      end；      CloseFile(textf)；    //关闭已打开的文件textf    end．

被创建的文件中包含5行文本，如第3行为：This is line#3。若要向一个已存在的文件追加新文本，应将其中的rewrite改为append。以上程序是向文件中写入字符串和整数。其实，Object Pascal对于所有的数据类型都可以这样处理。下面的程序演示了从文本文件中读取数据的方法。

写入文件

Var   F : Textfile; //申明变量 Begin   AssignFile(F,'c:\ek.txt'); //让变量F和C:\ek.txt关连   ReWrite(F); {Create a new file named ek.txt}   Writeln(F，'你要写入文本文件的内容'); //写入文件   Closefile(F); //释放变量F End; 

读取文件

“`
Var
F : Textfile;
str:String;
Begin
AssignFile(F, ‘c:\ek.txt’); {Assigns the Filename}
Reset(F); {Opens the file for reading}
Readln(F, str);
ShowMessage(‘1. line of textfile:’ +str);
Closefile(F); {Closes file F}
End;

更多内容请参考：
Delphi 文件操作