Save text into a txt file

[T-bear]

hi
how do i save the text of a memo into the end of a textfile?
thanks

[Leledumbo]

how do i save the text of a memo into the end of a textfile?

Code: [Select]

var
  f: TextFile;
begin
  AppendFile(f,'That file you want to append');
  Rewrite(f);
  WriteLn('A single line');
  ... // more Write(Ln)(s)
  CloseFile(f);
end;


[eny]

Or you could use streams:

Code: Pascal  [Select][+][-]

1. var fs: TFileStream;
2. begin
3.   fs := TFileStream.Create('d:\temp\tekstfile.txt', fmOpenWrite);
4.   fs.Seek(0,fsFromEnd);
5.   Memo1.Lines.SaveToStream(fs);
6.   fs.Free;
7. end;
8.  

[ivan17]

or use a temporary stringlist:

Code: Pascal  [Select][+][-]

1.   with TStringList.Create do try
2.     LoadFromFile(OpenDialog1.FileName);
3.     AddStrings(Memo1.Lines);
4.     SaveToFile(OpenDialog1.FileName);
5.   finally
6.     Free;
7.   end;
8.  

[captian jaster]

Really everything posted above me.

Code: Pascal  [Select][+][-]

1. Program WriteToFile;//A Safe way
2.  
3. Var
4.  T:TextFile;
5. begin
6.    AssignFile('file.txt',T);
7.    {$I-}
8.    try
9.    Rewrite(T);
10.    Writeln(T,'Hello World!');
11.    finally
12.    CloseFile(T);
13.    {$I+}
14.    end;
15.    writeln('IO: '+String(IOResult));
16.    Readln;
17. end;
18.  

A Tutorial written by some laz people:
http://wiki.lazarus.freepascal.org/File_Handling_In_Pascal

[eny]

Code: Pascal  [Select][+][-]

1. //...
2.    Rewrite(T);
3. //...

This destroys the original contents of the file.

[Leledumbo]

This destroys the original contents of the file.

God, it's been a long time since I use Append(File). The correct one should be:

Code: [Select]

AssignFile(f,'file name');
Append(f);
... // write it out
CloseFile(f);


[captian jaster]

Code: Pascal  [Select][+][-]

1. //...
2.    Rewrite(T);
3. //...

This destroys the original contents of the file.

I know..
Rewrite is for New Files though...  I thought that was what OP was trying to do. 

[T-bear]

And how do i write a String variable into a textfile?
Thanks

[typo]

Code: [Select]

var
  strum: TFileStream;
  tmp: string;
begin
  tmp := 'test test test.';
  strum := TFileStream.Create('file.txt', fmCreate);
  try
    strum.Seek(0, soBeginning);
    strum.Write(tmp[1], Length(tmp));
  finally
    strum.Free;
  end;
end; 

[T-bear]

Hi,
I tried to make a smal program to make some code for me but it didn't work.The program should have made the code and saved it into a textfile. Does anybody know whats wrong with it?

[typo]

Try to use the above code instead.

[Sora-Kun]

Just use simple file access,
for example

Code: [Select]

var my_file: text;
begin
assignfile(my_file, '/home/myfile.txt');
reset(my_file); // let's open the file. If the file does not exist this will create an IOerror use the  {$I-} and {$I+} with the IOresult.
seek(my_file,filesize(f)); //set the pointer to last line of the file
// and the next is for writing the memo lines at the end of the file
for i := 0 to Memo1.Lines.count-1 do
   writeln(my_file, memo1.Lines[i]);
closefile(my_file);
end;
Hope this help you it's a very simple solution  
Enjoy coding
LinkOS

[typo]

Whenever possible, prefer TFileStream. It is a cleaner solution.

For components, you can LoadFromFile them.

[captian jaster]

Whenever possible, prefer TFileStream. It is a cleaner solution.

For components, you can LoadFromFile them.

For text files TStringList is much more simpler then TFileStream.
TFileStream is more advanced in a way.