Werte in .ini speichern?

[AlexII]

Hallo,

ich möchte wie folgt Werte in eine .ini Speichern:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 Ini: TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
 try
   Ini.WriteInteger('Default', 'Volume', TrackBar1.Position); // hier wird kein Fehler verursacht
   Ini.WriteInteger('Default', 'Proxy', CheckBox1.Checked);   // hier ein Fehler - Inkompatible Typen: Integer und Boolen 
   Ini.WriteInteger('Default', 'ProxyIP', Edit1.Text);        // und hier in Fehler - Inkompatible Typen: Integer und Boolen 
 finally
   Ini.Free;
 end;
Action:=caFree;
end;

Die Fehlermeldungen scheinen logisch zu sein, aber hier wurde das genau so wie bei mir gemacht, und es klappt ohne Fehlermeldungen. :gruebel: Wie kommt das und wie speichere ich nun einen Text der Edit und das mit der CheckBox?

[himitsu]

schau mal in deine OH, da gibt es noch was anderes außer WriteInteger :zwinker:
ist auch im verlinkten Thread zu sehn ...

[Matze]

Hallo,

zum Speichern von Strings ist Ini.WriteString da und zum Speichern von boolschen Werten Ini.WriteBool. Analog gilt das fürs Laden.

Grüße, Matze

Edit: Och Mönsch. Himi war nur 'ne zehntel Sekunde schneller. *g*

[AlexII]

Boah..... war ich blind oder was??? :mrgreen: Hab vor dem Posten noch extra alles schön durchgeguckt und doch den Unterschied nicht gesehen. Pardo... :lol:

[AlexII]

Kann mir jemand sagen wie ich diese drei Werte auslesen muss?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
    ini   : TIniFile;
begin
ini:=TIniFile.Create('config.ini');
  try
    TrackBar1.Position := Ini.ReadInteger('Default', 'Volume', ????);
    cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', ????);
    ed_ProxyServer.Text := Ini.ReadString('Default', 'ProxyIP', ????);
  finally
    ini.free;
  end;
end;

[freak4fun]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var // Wo war das?
  ini   : TIniFile;
begin
ini:=TIniFile.Create('config.ini');
  try
    TrackBar1.Position := Ini.ReadInteger('Default', 'Volume', -1); // Defaultwert, falss der Eintrag nicht vorhanden
    cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', 'none'); // -"-
    ed_ProxyServer.Text := Ini.ReadString('Default', 'ProxyIP', '0.0.0.0'); // -"-
  finally
    ini.free;
  end;
end;

[AlexII]

Hm.. irgendwie funktionierte das nicht... :gruebel:

aber hab die Zeile

Delphi-Quellcode:

Ini:=TIniFile.Create('config.ini');

durch diese

Delphi-Quellcode:

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');

ersetzt und auf ein mal geht's :thumb:

[Helmi]

Hallo,

nur der Richtigkeit halber, das kann nicht gehen:

Zitat:

Zitat von freak4fun

Delphi-Quellcode:

    cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', 'none'); // -"-

denn der Defaultwert von ReadBool wäre ein Boolscher Wert, also true oder false und nicht
wie im Beispiel gezeigt ein String.

[Blackheart]

Das nennt man selbstverarschung - wird das zusammengeschrieben :gruebel:

[AlexII]

Ja das mit dem

Delphi-Quellcode:

cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', 'none'); // -"-

hab ich kopiert und schon längst geändert. Aber sagt ihr zum Post #7? :gruebel: