String dauerhaft speichern

[marabu]

Hallo.

Ein Vorteil von TIniFile ist, dass jeder Schreibzugriff sofort zur Persistenz führt. Einer von vielen Nachteilen ist, dass jeder Lesezugriff zu einem Lesen von der Platte führt. Eine Alternative ist TMemIniFile.

Delphi-Quellcode:

unit DemoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles;

type
  TDemoForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    mif: TMemIniFile;
    DerString: String;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

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

procedure TDemoForm.FormDestroy(Sender: TObject);
begin
  with mif do
  begin
    UpdateFile;
    Free;
  end;
end;

end.

Grüße vom marabu