DruckenMister WongFacebook

Laden und Speichern von Texten aus Memofeldern in Dateien
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

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

Ähnliche Seiten: