Memo an Textdatei anhängen

[Klaus01]

Hallo,

Du kannst es so machen:

Delphi-Quellcode:

var
  sl: TStringList;

...

  sl := TStringList.create;
  sl.loadfromFile('list.txt');
  
  for i:=0 to memo1.lines.count -1 do
   sl.add(memo1.lines.strings[i]);
  
  sl.saveToFile('list.txt');
  sl.free;

...

Grüße
Klaus