如何使Delphi写入文本文件而不擦除文件的先前内容?我已经知道如何添加文本,但一旦我尝试添加更多,它只是取代了之前已经在文件中的文本。
我已经尝试将Rewrite
命令更改为Write
。
procedure TForm1.BtnokClick(Sender: TObject);
var
myfile :textfile;
naam, van, adress : string;
begin
adress := edtadress.Text;
van:= edtvan.Text;
naam := edtnaam.Text;
AssignFile(myfile,'C:test.txt');
write(myfile);
Writeln(myfile,naam);
writeln(myfile,van);
writeln(myfile,adress);
closefile(myfile);
end;
Uses IOUtils;
...
TFile.AppendAllText(filename, sometext);
除非你使用的是非常古老的Delphi版本。http://docwiki.embarcadero.com/VCL/XE/en/IOUtils.TFile.AppendAllText
它还允许您指定编码作为参数
调用Append
移动到文件末尾:
AssignFile(myfile, filename);
Append(myfile);
Write(myfile, sometext);
....
请参考文档。特别是这个代码示例:http://docwiki.embarcadero.com/CodeExamples/en/SystemAppend_(Delphi)