2 Memos in 1 Textdatei speichern

[Gast]

Hi,

ich speicher Momentan so:

Code:

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Allerdings möchte ich jetzt den Inhalt eines 2ten Memos auch noch speichern. Aber in die gleiche Textdatei, nur wie ? Es würde mich auch reichen nur ein einzigen Satz in die Textdatei unten an den Inhalt von Memo1 enzuhängen. Welche Möglichkeiten habe ich da ?

Gr33tz!
Tigerhead

[JasonDX]

1. Möglichkeit: Beide TStrings (also den Inhalt der Memos) in einen Stream (siehe TFileStream) legen und den dann abspeichern
2. Möglichkeit: In ein Memo den Text vom anderen Memo hinzufügen und dann speichern
3. Möglichkeit: Mit AssignFile ect. den Inhalt des Memos über Memo1/2.Text händisch reinspeichern
vielleicht gibts noch ne 4, aber das sind mal die, die mir einfallen ;)

[Gast]

Habs vllt nicht so professionell jetzt gemacht aber es geht:

Code:

procedure TForm1.Panel3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('Diese Passwortliste wurde mit dem Passwort Creator von [url]www.Tigerhead.de[/url] erstellt.');
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
    Memo1.Lines.Delete(Memo1.Lines.Count-4);
    Memo1.Lines.Delete(Memo1.Lines.Count-3);
    Memo1.Lines.Delete(Memo1.Lines.Count-2);
    Memo1.Lines.Delete(Memo1.Lines.Count-1);
end;

Thx 4 help !!