Einzelnen Beitrag anzeigen

Benutzerbild von mschaefer
mschaefer

Registriert seit: 4. Feb 2003
Ort: Hannover
2.031 Beiträge
 
Delphi 12 Athens
 
#3

Re: IniFiles automatisch laden

  Alt 21. Sep 2005, 14:25
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
Martin Schaefer
  Mit Zitat antworten Zitat