Savetofile(x.txt) aber alten inhalt behalten

[RavenIV]

Zitat von ichbins:

So schwer ist das doch garnicht:

Delphi-Quellcode:

var
  s:tstringlist;
  i:integer;
begin
  s:=tstringlist.create;
  s.loadfromfile(filename);
  for i:=0 to memo1.lines.count-1 do
    s.add(memo1.lines.strings[i]);
  s.savetofile(filename);
  s.free;

jetzt nehmen wir mal an, dass die Textdatei ~10 MB gross ist, da dauert das LoadFromFile und SaveToFile doch ein Weilchen...