Home » Tipps & Tricks » Dateien/Verzeichnisse » Textdateien » Laden und Speichern von Texten aus Memofeldern in Dateien
Laden und Speichern von Texten aus Memofeldern in Dateien
Es ist ganz einfach den Inhalt von Memo- oder Richedit-Feldern in Dateien zu speichern:
Speichern
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.SaveToFile('C:\Datei.txt'); end;
Laden
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.LoadFromFile('C:\Datei.txt'); end;
Bei RichEdit-Feldern sollte die Eigenschaft PlainText auf False gestellt werden, um die Rich-Text-Attribute mit abzuspeichern.
Häufig zu Fehlern führt die Verwendung relativer Pfadangaben. Wenn man die Datei ins Verzeichnis der eigenen Anwendung speichern möchte sollte man nicht
Memo1.Lines.SaveToFile('Datei.txt');
sondern
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr( 0 )) + '\Datei.txt');
verwenden.
Und jetzt das Ganze in Verbindung mit dem Open/Save-Dialog:
Speichern
procedure TForm1.Button1Click(Sender: TObject); begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;
Laden
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(Opendialog1.FileName); end;
Die Methoden LoadFromFile und SaveToFile werden von der abstrakten Klasse TStrings zur Verfügung gestellt. Die oben gezeigte Vorgehensweise lässt sich auf alle von TStrings abgeleiteten Klassen verwenden (z.B. TStringList).