pascal - lazarus/delphi(pascal)-写入txt文件，下次不覆盖

Question

我正在使用lazarus，我想将程序关闭时的信息保存到txt文件中。但是每次我重新打开程序时，它都会覆盖txt文件中的内容。每次写入下一行甚至创建不同的txt文件都是可以的。这就是我所拥有的：

var
  ...
  s: TStringList;

  s:= TStringList.Create;
  s.Add(datetostr(now));
  s.SaveToFile(datetostr(now)+'.txt');
  s.Free;

但我没有给我一个错误

Answer 1

您需要做的就是以附加模式打开文件，然后添加文本。它将新数据放在文件末尾：

  AssignFile(tfOut, C_FNAME);

  try
    // Open for append, write and close.
    append(tfOut);

    writeln(tfOut, 'New data for text file');
    writeln(tfOut, 'New informtion should be at the end of the file.');

    CloseFile(tfOut);

  except
    on E: EInOutError do
     writeln('File error. Elaboration: ', E.Message);
  end;