Home » Tipps & Tricks » Komponenten » TRichEdit/TMemo/TEdit » Inhalt eines Edit-Feldes speichern

Inhalt eines Edit-Feldes speichern

Das TEdit-Feld besitzt unter Delphi von Haus aus keine Möglichkeit seinen Textinhalt zu speichern. Dieser Artikel zeigt, wie Sie die Text-Eigenschaft eines Edit-Feldes bzw. Strings allgemein auf verschiedene Arten speichern können.Dem Programmierer steht u.a. die Klasse TStringList zur Verfügung. Sie verwaltet, wie der Name schon vermuten lässt, Listen von Strings.Über die Methode Add wird der Liste ein String hinzugefügt. SaveToFile weist die Liste an, ihren kompletten Inhalt zu speichern. Dabei muss ihr als Parameter ein kompletter Dateiname (inkl. Pfad!) übergeben werden:

var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:Datei.txt');
  finally
    List.Free;
  end;
end;

Analog dazu füllt man die Liste mit LoadFromFile mit dem Inhalt einer Datei:

var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('C:Datei.txt');
    if List.Count>0 then
      Edit1.Text:=List[0];
  finally
    List.Free;
  end;
end;

Unter Delphi 8 sähe eine Lösung so aus:

procedure TWinForm.Button4_Click(sender: System.Object; e: System.EventArgs);
var
  Writer: StreamWriter;
  Reader: StreamReader;
begin
  Writer := StreamWriter.Create('C:Text.txt');
  try
    Writer.WriteLine('Text');
  finally
    Writer.Free;
  end;

  Reader := StreamReader.Create('C:Text.txt');
  try
    S := Reader.ReadLine;
  finally
    Reader.Free;
  end;
end;

Alternativ kann auch auf die Klasse TIniFile zurückgegriffen werden, um die Informationen in einer Ini-Datei abzulegen. Dies empfiehlt sich besonders, wenn mehrere Edit-Felder gespeichert werden sollen, da die Werte genau zugeordnet werden können. Wie Sie mit TIniFile arbeiten entnehmen Sie bitte der Delphi-Hilfe oder unseren Tutorials.