小编use*_*296的帖子

如何在不删除文件以前内容的情况下将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;