用tstringlist如何向一个文本文件的末尾添加一行内容？

Question

如题

Answer 1

stringlist.loadfromfile('a.txt');
stringlist.add('ddddd')
stringlist.savetofile('a.txt');
如果用tstringlist只能这样加，如果用writelen就可以追加了

Answer 2

stringlist.loadfromfile(your filename);
stringlist.Append('ddddd')
stringlist.savetofile(your filename);

Answer 3

用append命令如何？？我用的没问题

Answer 4

我是这样写的，但是每次执行的时候都是从第一行写起
如何才能在每次点击button1的时候写进一行呢（从文件的末尾开始）。
请各位不吝赐教procedure TForm1.Button1Click(Sender: TObject);var
onerow:string;
statistics:tstringlist;begin
statistics:= TStringList.Create;
onerow:='abcdefasfjdkfjsalfsadfsdfsf';
statistics.Add(onerow);//改成statistics.Append(onerow);也不行 :(
statistics.SaveToFile('test.txt');
statistics.Free;
end;

Answer 5

打开时用append把文件指针移到文件末尾var f:file of datatype;
  data:datatype;...
append(f);
write(f,data);

Answer 6

var
onerow:string;
statistics:tstringlist;begin
statistics:= TStringList.Create;
statistics.loadfromfile('test.txt');
onerow:='abcdefasfjdkfjsalfsadfsdfsf';
statistics.Add(onerow);
statistics.SaveToFile('test.txt');
statistics.Free;
end;这个完全可以,,
偶认为.必须先loadfromfile('test.txt');呵呵!