在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;

procedure TForm1.Button1Click(Sender: TObject);
begin
　NewTxt;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　OpenTxt;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
　ReadTxt;
end; 
------------------------------------------------------------------
Procedure AppendTxt(Str:String;FileName:String);
Var
　 F:Textfile;
Begin
　　AssignFile(F, FileName);
　　Append(F);
　　Writeln(F, Str);
　　Closefile(F);
End;