How to append text to a file without erasing its previous content

Question

How do I make Delphi write to a text file without erasing the file's previous contents? I already know how to add text but as soon as I try adding more it just replaces the previous text that was already in the file.

I have already tried changing the Rewrite command to 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;

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); — user3737296
– user3737296, Commented Jun 13, 2014 at 10:23
I am new to this so i am not really sure how to post coding. — user3737296
– user3737296, Commented Jun 13, 2014 at 10:25

Wouter van Nifterick · Accepted Answer · 2014-06-13 12:46:59Z

15

Uses IOUtils;

...

TFile.AppendAllText(filename, sometext);

Unless you're working with a really ancient Delphi version. http://docwiki.embarcadero.com/VCL/XE/en/IOUtils.TFile.AppendAllText

It also lets you specify an encoding as a parameter

answered Jun 13, 2014 at 12:46

Wouter van Nifterick

24.2k7 gold badges82 silver badges123 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Ken White Over a year ago

If the poster has included code indicating that the old style IO (AssignFile, etc.) is being used already, clearly IOUtils and TFile is not the relevant solution. :-)

Wouter van Nifterick Over a year ago

@kenwhite: That code was not there in the original question... And it's not too late to modernize. :)

Ken White Over a year ago

Your answer was added 17 minutes ago, and the code was added 2 hours ago. :-) The problem is that the poster is clearly not familiar with Delphi, so they could try to simply add your code to their existing code, which clearly won't work. It's great to encourage modernization, but you have to a) address the existing question first, and b) explain why they should change and clearly show how to do so.

David Heffernan · Accepted Answer · 2014-06-13 10:28:44Z

12

Call Append to move to the end of the file:

AssignFile(myfile, filename);
Append(myfile);
Write(myfile, sometext);
....

Please refer to the documentation. In particular this code example: http://docwiki.embarcadero.com/CodeExamples/en/SystemAppend_(Delphi)

answered Jun 13, 2014 at 10:28

David Heffernan

616k46 gold badges1.1k silver badges1.5k bronze badges

Collectives™ on Stack Overflow

How to append text to a file without erasing its previous content

2 Answers 2

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related