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