Add a line in a text file

[fll]

How to add a line in the end of a text file?

I tried

var
tt:text;
l:string;
begin
...
assignfile(tt,'text.txt');
reset(tt);
while not eof (tt) do
readln (tt,l)
...
writeln(tt,'blablabla');
...
Closefile(tt);
...
end;

Thanks in advance...
Laurent.

;-)

 

[McMerfy]

If you only need to write to a file, then you should use Append instead of Reset. If you need both reading and writing then you'd have to do it in two steps:

var
  tt:text;
  l:string;
begin
  ...
  assignfile(tt,'text.txt');
  reset(tt);
  while not eof (tt) do
    readln (tt,l)
  ...
  Closefile(tt);
  ...
  assignfile(tt,'text.txt');
  Append(tt); // This would set the position at the end of file.
  writeln(tt,'blablabla');
  ...
  Closefile(tt);
end;

Hope that helps.

--- markus

 

[fll]

Thanks

Laurent.

;-)