Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
4. Jan 2010
Ah korrekt. Da habe ich etwas durcheinander gebracht. Gespeichert wird erst mit den Write-Funktionen, vollkommen richtig. :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
3. Jan 2010
Habe ich einen Denkfehler oder wieso macht ihr das so kompliziert?
Reicht nicht das hier, ganz simpel:
Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config-t.ini');
try
ProxyStatus := Ini.ReadBool('Default', 'ProxyStatus', True);
finally
Ini.Free;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
3. Jan 2010
Es reicht das zu schreiben:
Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config-t.ini');
Wenn sie nicht existiert, wird sie angelegt, sonst geöffnet.
Dein Code funktioniert so auch nicht, da du die Ini nirgendwo öffnest, wenn sie bereits existiert.
Und unterlasse bitte die Doppelposts.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
3. Jan 2010
Aber du erzeugst doch die Ini mit:
Ini := TIniFile.Create(...);
try
// auslesen
finally
// ...
end;
Da wird die Ini doch dann angelegt, falls sie nicht existiert, und anschließend geöffnet. Das hat einen nicht existierenden Eintrag zur Folge und somit den Standardwert. Oder irre ich mich?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
3. Jan 2010
Hallo
Falsch. Du gibst im 3. Parameter den Standardwert an, der genommen wird, wenn die Ini-Datei bzw. der Eintrag darin nicht existiert. In deinem Fall also "true".
Das ist sie auch, wenn du den Status nicht wo anders setzt:
ProxyStatus := Ini.ReadBool('Default', 'ProxyStatus', True); // "true", wenn Ini bzw. der Eintrag nicht existiert
CheckBox1.Checked := ProxyStatus;