如何在TXT文本中的某一行追加数据,请详解

Question

如果文本文件不是很长的话，你可以使用TStringList的LoadFormFile方法先将文件内容加载，然后利用TStringList的IndexOf方法得到你要修改的那行文本，再用字符串操作函数处理你的文本，最后利用TstringList的SaveToFile方法将修改的内容保存。

Answer 1

如果文本文件不是很长的话，你可以使用TStringList的LoadFormFile方法先将文件内容加载，然后利用TStringList的IndexOf方法得到你要修改的那行文本，再Insert方法追加你的数据，最后利用TstringList的SaveToFile方法将修改的内容保存。

Answer 2

这是一种方法，但我的文本是用来填写Treeview控件的，希望有别的方法，用文件操作函数怎么办

Answer 3

用文件操作函数也要全部读入内存 ，增加完再存盘
不要想fseek 后再fwrite

Answer 4

Procedure WriteFile(var str:string);
const
  fileName='D:\wusoft.txt';
var
     F:TextFile;
begin
  AssignFile(F,FileName); 
  if not FileExists(FileName) then
     ReWrite(F)
  else
     Append(F);
  Writeln(F,Str);//或Write(F,str);
end;

Answer 5

没看清，不好意思.先FSeek在FWrite