![]() |
2 Memos in 1 Textdatei speichern
Hi,
ich speicher Momentan so:
Code:
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 ?
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
Gr33tz! Tigerhead |
Re: 2 Memos in 1 Textdatei speichern
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 ;) |
Re: 2 Memos in 1 Textdatei speichern
Habs vllt nicht so professionell jetzt gemacht aber es geht:
Code:
Thx 4 help !!
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz