Assignfile- einfaches "Laden" und "Speichern"

[semo]

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