String dauerhaft speichern

[marabu]

Hallo Fritz,

das geht so:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  fn: TFileName;
begin
  fn := ChangeFileExt(ParamStr(0), '.ini');
  mif := TMemIniFile.Create(fn);
  EditFeld.Text := mif.ReadString('Einstellungen', 'EditFeld', '');
end;

procedure TDemoForm.FormDestroy(Sender: TObject);
begin
  with mif do
  begin
    mif.WriteString('Einstellungen', 'EditFeld', EditFeld.Text);
    UpdateFile;
    Free;
  end;
end;

Beachte bitte, dass ich WriteString() noch eingefügt habe.

marabu