über ini ist das ganze einfacher zu handhaben:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
aIniFile : TIniFile;
begin
aIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Edit1Content.ini');
aIniFile.WriteString('Sektionsname', 'Edit1.Text', Edit1.Text);
aIniFile.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
aIniFile : TIniFile;
begin
aIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Edit1Content.ini');
Edit1.Text := aIniFile.ReadString('Sektionsname', 'Edit1.Text', '');
aIniFile.Free;
end;
Vor allem kannst du dann bei Bedarf noch weitere Werte speichern und brauchst dir keinen kopf machen in welcher Reihenfolge diese in der Datei stehen.