ToogleSwitch und ini

[SaFu]

Guten Morgen,

Leider stehe ich etwas auf dem Schlauch mit dem ToogleSwitch.

Das Schreiben in eine Ini funktioniert super,

Code:

WriteBool(Einstellung1,Toggle1SwitchAktiviert,True);

nur das lesen, des wertes, verstehe ich nicht ganz.

Code:

ToggleSwitchAktivieren.IsOn:= ReadBool(Einstellung1,Toggle1SwitchAktiviert,True);

Wo liegt der Fehler?

Gruß
S

[DeddyH]

Ich nehme an, der Switch ist immer aktiviert. Das dürfte daher kommen, dass immer True in die Ini geschrieben wird, egal, ob der Switch aktiv ist oder nicht.

[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.

Delphi-Quellcode:

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.

[KodeZwerg]

Delphi-Quellcode:

Wie lautet Ini Anweisung? Ist bei Dir nich ersichtlich.
Beispiel:
  ini := TIniFile.create(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))) + 'settings.ini');
  try
    ini.WriteBool('Setup', 'Einstellung1', Hier_Kommt_Ein_Boolean-Wert_rein);
    Hier_Kommt_Ein_Boolean-Wert_rein := ini.ReadBool('Setup', 'Einstellung1', False);
  finally
    ini.free;
  end;

Das obige bewirkt, das in Datei Settings.ini eine Sparte [Setup] angelegt wird, als einstellungsname wird Einstellung1 genommen und als Wert True oder False geschrieben, der Wert ist Hier_Kommt_Ein_Boolean-Wert_rein

[SaFu]

Ich glaube das einfachste wird sein ich nehm eine Checkbox ;)

Danke trotzdem.

[freimatz]

Auf die Gefahr hin, dass ich jetzt ganz blöd dastehe: Was ist denn Toggle1SwitchAktiviert? Welchen Typ hat das, wo ist das definiert?

[Hobbycoder]

Zitat:

Zitat von freimatz (Beitrag 1405706)

Auf die Gefahr hin, dass ich jetzt ganz blöd dastehe: Was ist denn Toggle1SwitchAktiviert? Welchen Typ hat das, wo ist das definiert?

Ich nehme mal an, dass der TE in seiner INI immer ToogleSwitch.Active verwendet hat, welches dummerweise nicht für die Schalterfunktion verwendet wird, sondern lediglich das Control in der Form Aktiviert(Anklickbar) oder Deaktiviert(nicht Anklickbar).
Allerdings würde das bei einer Checkbox im gleichen Problem enden.

Zitat:

Zitat von SaFu (Beitrag 1405704)

Ich glaube das einfachste wird sein ich nehm eine Checkbox ;)
Danke trotzdem.

Das ist nicht die richtige Einstellung und löst dein Problem möglicherweise auch nicht.

Einfach mal eine Blick in den Objektinspektor werfen, und dort mal ermitteln mit welcher Eigenschaft das Toogle umgeschaltet wird. Weiterhin hilf F1 auch dort.

[Uwe Raabe]

Zitat:

Zitat von SaFu (Beitrag 1405704)

Ich glaube das einfachste wird sein ich nehm eine Checkbox

Das Einfachste wäre die Verwendung einer TAction. Dann ist das verwendete Control egal.

[SaFu]

Zitat:

Zitat von SaFu:
Ich glaube das einfachste wird sein ich nehm eine Checkbox
Danke trotzdem.

Zitat:

Das ist nicht die richtige Einstellung und löst dein Problem möglicherweise auch nicht.

Ich weis, das es nicht gerade die Beste Einstellung ist, aber über diesen blöden TToogleswitch, findet man auch hier im Forum keine Einträge, gehe davon aus, das eigentlich so gut wie keiner diese Ding benutzt.

Mit der Checkbox habe ich es gerade schon umgesetzt und es funktioniert nun alles so wie ich es benötige.

[Uwe Raabe]

Zitat:

Zitat von SaFu (Beitrag 1405713)

aber über diesen blöden TToogleswitch, findet man auch hier im Forum keine Einträge, gehe davon aus, das eigentlich so gut wie keiner diese Ding benutzt.

Ich benutze den sehr häufig z.B. in Applikationen, die per Touch bedient werden. Allerdings arbeite ich dort eben mit Actions, was übrigens auch für die Checkbox die empfohlene Herangehensweise wäre.

[DieDolly]

Ich bin zwar absoluter Anfänger und dürfte hier eigentlich gar nicht reinschreiben, aber eines habe ich ganz am Anfang trotzdem gelernt
nicht auf True oder False vergleichen
Es gibt sicher Ausnahmefälle, die sind mir aber nur in Scriptsprachen bekannt.

Zitat:

if ToggleSwitchAktivieren.IsOn = True then
-------------------------------------^^^^^

[himitsu]

Einfacher Grund: Es gibt beim Delphi-Boolean 255 Werte die True bedeuten und einen False.

Beim Zuweisen ist es OK, aber beim Vergleichen kann das eben zu Problemen fühlen, denn True ist <>0 und False ist =0, aber diese Konstante True ist =1.
In C++ ist BOOL oft ein Integer und kein Byte, somit 4 Milliarden True und ein False. Und die Konstante ist manchmal +1 ($0000001) und meisten -1 ($ffffffff).

[Sherlock]

Es ist auch schlicht überflüssig und erschwert unter Umständen die Lesbarkeit des Codes.

Sherlock

[haentschman]

Zitat:

Ich bin zwar absoluter Anfänger und dürfte hier eigentlich gar nicht reinschreiben

...wer sagt denn so etwas.:shock: Du kannst überall reinschreiben...solange es zum Thema gehört. :zwinker:

[freimatz]

delete

[freimatz]

Zitat:

Zitat von himitsu (Beitrag 1405740)

Einfacher Grund: Es gibt beim Delphi-Boolean 255 Werte die True bedeuten und einen False.

Das finde ich so nicht richtig. In der Orginaldoku (http://docwiki.embarcadero.com/Libra...System.Boolean) steht:

Delphi-Quellcode:

type Boolean = (False, True);

Demnach ist es ein Aufzählungstyp und hat genau zwei Werte nämlich False und True.

Intern wird ein Byte verwendet was auch dokumentiert ist. Aber das steht auf einem anderen Blatt und solange man sauber programmiert hat man damit nichts zu tun.

Als Grund warum man Vergleiche mit True oder False nicht machen sollte sehe ich wie Sherlock bei der Leserlichkeit.

[himitsu]

Es wird immer nur mit ganzen Bytes gearbeitet.

Das Selbe gilt auch für Aufzählungstypen.
Ein ENUM oder SET mit zwei Werten ist eben nicht nur 1 bzw. 2 Bits groß
und kann somit auch weitere Werte enthalten.

Delphi-Quellcode:

type TMyEnum = (meNull, meEins);

var E: TMyEnum;

E := TMyEnum(3);

Bei Enums kommt es dabei auch auf

Delphi-Quellcode:

{$MINENUMSIZE}

drauf an, wieviele Bytes es nun letztendlich sind.
http://docwiki.embarcadero.com/RADSt..._size_(Delphi)