如何以追加的形式写txt文件

Question

我现在想用.txt文件来记录日志
我是用定时器循环的写入文本，我想每次写入的内容都加到最后一行
如何实现？如第1次写入1111：
1111第2次写入2222：
1111
2222第3次写入3333：
1111
2222
3333

Answer 1

var
  txt:TestFile;
begin
  AssignFile(txt,'c:\1.txt');
  Append(txt);
  Writeln.....

Answer 2

s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile('c:\1.txt');
s.add('sss');
s.SaveToFile('c:\1.txt');
end;

Answer 3

var
  f:TextFile;
  ls_FileName:string;
  ls_WriteData:string;
begin
  ls_FileName:='test.txt';
  AssignFile(f, ls_FileName);
  Append(f);
  //写第一行
  ls_WriteData:='第一行信息';
  writeln(f,ls_WriteData);  //写第二行
  ls_WriteData:='第二行信息';
  writeln(f,ls_WriteData);
    
  CloseFile(f);
end;

Answer 4

s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile('c:\1.txt');
s.add('sss');
s.SaveToFile('c:\1.txt');
end;
推荐使用这种方式。