IniFiles automatisch laden

[mschaefer]

Moin, moin,

also zum Programmstart kann man die Initialisierung, das Mitteilen wo ein Inifile liegt in das Activate-Ereignis des Hauptformulars legen. Die eigentlichen Dateizugriffe erfolgen bei Inifile genau dann, wenn Du mit dem Read-Befehlen arbeitest. Das ist der Haken/ das Future der TiniFiles, dass es kein DatenCaching gibt und daher der Zugriff eher etwas
langsam, aber immer Dateiaktuell ist.

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);

var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create('myapp.ini');
  with MyIniFile do
  begin
    if ReadBool('AutoLoad', 'FormProperties', False) = True then
    begin
      Visible := ReadBool('FormOptions', 'Visible', True);
      Color := TColor(ReadInteger('FormOptions', 'Color', clWindow));
      Caption := ReadString('FormOptions', 'Caption', 'Main');
  end;
  MyIniFile.Free;
end;

Grüße // Martin