在Delphi中讀寫TXT文件

Procedure NewTxt(FileName:String);

Var

　F : Textfile;

Begin

  if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}

　AssignFile(F, FileName); {將文件名與變量 F 關聯}

　ReWrite(F); {創建一個新的文件並命名爲 ek.txt}

　Writeln(F, '將您要寫入的文本寫入到一個 .txt 文件');

　Closefile(F); {關閉文件 F}

End;

 

Procedure OpenTxt(FileName:String);

Var

　F : Textfile;

Begin

　AssignFile(F,FileName); {將文件名與變量 F 關聯}

　Append(F); {以編輯方式打開文件 F }

　Writeln(F, '將您要寫入的文本寫入到一個 .txt 文件');

　Closefile(F); {關閉文件 F}

End;

 

Procedure ReadTxt(FileName:String);

Var

　F : Textfile;

　str : String;

Begin

　AssignFile(F, FileName); {將文件名與變量 F 關聯}

　Reset(F); {打開並讀取文件 F }

　Readln(F, str);

　ShowMessage('文件有:' +str + '行。');

　Closefile(F); {關閉文件 F}

End;