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.