Memo text speichern aber append

[fungunner2]

Hallo alle
Ich würde gerne einen Memo text als "append" speichern.
Klar iss das speichern mit z.B. "form2.Memo3.Lines.SaveToFile('xxxxx')".
Wie schaff ichs, das beim saven das Material an eine bestehende Datei angehangen wird ?
Die "Suchen" Funktion habsch schon benutzt,find leider keinen Ansatz :gruebel:

fungunner2

[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;

...:cat:...

[fungunner2]

Hi sakura
Lot off THX das isses :bounce2:

fungunner2