ToogleSwitch und ini

[SaFu]

Hi,

So sieht der Code aus, wenn er off ist wird ein False in die INI geschrieben.

Code:

procedure TForm2.ToggleSwitchAktivierenClick(Sender: TObject);
begin
 if ToggleSwitchAktivieren.IsOn = True then
     begin
      with TMemIniFile.Create(ConfigIniPfad) do
      try
        begin
         WriteBool(Einstellung1,Toggle1SwitchAktiviert,True);
         UpdateFile;
        end;
       finally
       Free;
      end;
    end
  else  // ab hier wenn  Toogle1 Aus dann:
    begin
      with TMemIniFile.Create(ConfigIniPfad) do
      try
        begin
         WriteBool(Einstellung1,Toggle1SwitchAktiviert,False);
         UpdateFile;
        end;
       finally
       Free;
      end;
    end;
end;

[HolgerX]

Hmm..

Habe hier kein ToggleSwitch, aber aus den Codschnipsel müsste es nicht besser so gehen?

(ich gehe davon aus, das Einstellung1 und Toggle1SwitchAktiviert strings sind, in denen die Section und der Parametername stehen)

Code:

procedure TForm2.ToggleSwitchAktivierenClick(Sender: TObject);
begin
  with TMemIniFile.Create(ConfigIniPfad) do
  try
    WriteBool(Einstellung1,Toggle1SwitchAktiviert,ToggleSwitchAktivieren.IsOn);
    UpdateFile;
  finally
    Free;
  end;
end;

Wobei ich nicht bei jedem Clieck auf dem Switch direkt in die INI schreiben würde...

[Uwe Raabe]

Das kann man aber deutlich abkürzen:

Delphi-Quellcode:

with TMemIniFile.Create(ConfigIniPfad) do
  try
    WriteBool(Einstellung1,Toggle1SwitchAktiviert,ToggleSwitchAktivieren.IsOn);
    UpdateFile;
  finally
    Free;
  end;

Das Lesen wird vermutlich gar nicht compilieren, da IsOn eine Function und kein writable Property ist.
ToggleSwitchAktivieren.State := IfThen<TToggleSwitchState>(ReadBool(Einstellung1,Toggle1SwitchAktiviert,True), tssOn, tssOff);

[DeddyH]

Delphi-Quellcode:

procedure TForm2.ToggleSwitchAktivierenClick(Sender: TObject);
var
  Ini: TMemIniFile;
begin
  Ini := TMemIniFile.Create(ConfigIniPfad);
  try
    Ini.WriteBool(Einstellung1,Toggle1SwitchAktiviert, ToggleSwitchAktivieren.IsOn);
    Ini.UpdateFile;
  finally
    Ini.Free;
  end;
end;

Da IsOn eine Funktion ist, kann man ihr auch nichts zuweisen, da müsstest Du wohl auf die State-Eigenschaft zurückgreifen.