Speichern in INI geht net

[SaFu]

Hi habe mal wieder ein problem mit meiner Inidatei

das Speichern meines True'S geht net mehr warum
kann mir einer vielleicht helfen???

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
 INIDocPfad:= Form1.Serverpfad  + 'Einstellungen\DocSettings.ini';
  if CheckBox1.Checked = True then
  begin
   Panel3.Color:= CLLime;
    with TMemIniFile.Create(INIDocPfad) do
     try
      WriteBool(DokumentEinstellung,Anzeigen1,True); // Wert in die ini datei schreiben
      WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
      WriteString(DokumentEinstellung,PanelText, ('Dokumentenanzeige Ein'));
    finally
     Free
    end;

If CheckBox1.Checked = False then
 Begin
  Panel3.Color:= CLRed;
    with TMemIniFile.Create(INIDocPfad) do
    try
     WriteBool(DokumentEinstellung,Anzeigen1,False); // Wert in die ini datei schreiben
     WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
     WriteString(DokumentEinstellung,PanelText, ('Dokumentenanzeige AUS'));
     UpdateFile;
    finally
   Free;
   Button3.Click; //Timer stoppen
  end;
 End;
end;
end;

Gruss Sascha

[taaktaak]

Moin, Moin Sascha.

Ich sehe das "UpdateFile" nur in einem Zweig (wenn Checked=false), es muss dann auch im True-Zweig enthalten sein.

Übrigens: Warum erfolgen Create und Free des MemINI's nicht im FormCreate und im FormClose? Ist das nicht einfacher??

Gruß Ralph

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
const einaus: array[Boolean] of string = ('AUS','Ein');
      Farben: array[Boolean] of TColor = (clRed,clLime); 
begin
  INIDocPfad:= Form1.Serverpfad  + 'Einstellungen\DocSettings.ini';
  Panel3.Color:= Farben[CheckBox1.Checked]; 
  with TMemIniFile.Create(INIDocPfad) do
    try         
      WriteBool(DokumentEinstellung,Anzeigen1,CheckBox1.Checked); // Wert in die ini datei schreiben
      WriteString(DokumentEinstellung, PanelFarbeEinAus, (ColorToString(Panel3.Color)));  // farbe Speichern
      WriteString(DokumentEinstellung,PanelText, Format('Dokumentenanzeige %s',[einaus[CheckBox1.Checked]]));
      UpdateFile;
    finally
      Free;
    end;
  //das gehört eigentlich hierhin
  if not CheckBox1.Checked then //hatte diese Zeile vergessen
    Button3.Click; //Timer stoppen
end;

[SaFu]

Hey der code is richtig gut und Kurz da wird man ja neidisch :wink: danke

[taaktaak]

Respekt "alter Mann aus Thüringen" - aber wenn es in der umständlichen Version nicht funktioniert hat, dann lag es doch wohl am fehlenden UpdateFile :wink:
Gruß Ralph

PS : Wie schaut's jetzt in Thüringen aus? Habt ihr Schnee???

[Progman]

Nein, in Thüringen liegt kein Schnee :? :lol:

[SaFu]

ja das updatefile hat auch gefehlt hatte dann aber Trotzdem nicht gefunzt hatte dann immer nur ein True.

Zitat:

Zitat von taaktaak

Moin, Moin Sascha.

Übrigens: Warum erfolgen Create und Free des MemINI's nicht im FormCreate und im FormClose? Ist das nicht einfacher??

Gruß Ralph

Weil ich denke das es sonst fehler geben könnte wenn ich es nicht frühgenug schließe

[DeddyH]

Zitat:

Zitat von taaktaak

aber wenn es in der umständlichen Version nicht funktioniert hat, dann lag es doch wohl am fehlenden UpdateFile :wink:

Das hatte ich auch gesehen ;) . Und wie Progman schon sagt, hier liegt kein Schnee, dafür aber jede Menge Raureif.

@Sascha: Ich hasse es, wenn man dasselbe 2 mal schreibt und versuche immer, so etwas zu vermeiden, auch bei einer Fallunterscheidung. Da bietet sich ein konstantes Array eben an.

[SaFu]

Zitat:

Zitat von DeddyH

@Sascha: Ich hasse es, wenn man dasselbe 2 mal schreibt und versuche immer, so etwas zu vermeiden, auch bei einer Fallunterscheidung. Da bietet sich ein konstantes Array eben an.

Wie meinst du das mit dem 2 Schreiben??? hatte ich die Frage schonmal gestellt :gruebel:

[taaktaak]

Jooo, Sascha, jetzt sehe ich es: Das END von "if CheckBox1.Checked = True then begin" war ganz am Prozedurende und nicht am Blockende - konnte also nicht funktionieren, da die Abfrage "if..Checked=false" nie erreicht wurde.
Gruß Ralph