Memo text speichern aber append

[sakura]

Du gehst über SaveToStream

Delphi-Quellcode:

procedure SaveMemoToFile(aMemo: TMemo; aFileName: String);
var
  FS: TFileStream;
begin
  if FileExists(aFileName) then
    FS := TFileStream.Create(aFileName, fmOpenWrite or fmShareDenyWrite)
  else
    FS := TFileStream.Create(aFileName, fmCreate);
  try
    FS.Position := FS.Size;
    aMemo.Lines.SaveToStream(FS);
  finally
    FS.Free;
  end;
end;

......