Lesen von boolschen Werten aus INI-Dateien

[sakura]

Mal als Bespiel

Code:

procedure speichern (Thl: string; Schloss: String);
begin
  with TIniFile.Create(ExtractFilePath(paramstr(0))+'zustand.ini')do
    try
      writebool('Images', Thl, [color=#ff0000]FBoolThl[/color]);
      WriteBool('Images', Schloss, [color=#ff0000]FBoolSchloss[/color]);
    finally
    free;
  end;
end;

procedure laden (THL:boolean; Schloss: boolean);
begin
   with TIniFile.Create(ExtractFilePath(paramstr(0))+'zustand.ini') do
    try
      [color=#ff0000]FBoolThl := [/color]readbool('Images', THL, [color=#ff0000]True[/color]);
      [color=#ff0000]FBoolSchloss := [/color]readbool('Images', Schloss, [color=#ff0000]False[/color]);
    finally
   free;
   end;
end;

An die speziell gefragte Stelle musst Du die Standardwerte schreiben, falls der gewünschte Wert noch nicht in der Ini-Datei existiert.

......