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).