Assignfile- einfaches "Laden" und "Speichern"

[Luckie]

Korrigierte Version:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  aIniFile : TIniFile;
begin
  aIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Edit1Content.ini');
  try
    aIniFile.WriteString('Sektionsname', 'Edit1.Text', Edit1.Text);
  finally
    aIniFile.Free;
  end;
end;