Hallo,

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

zusammenfalten · markieren

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. Wie kommt das und wie speichere ich nun einen Text der Edit und das mit der CheckBox?

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

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*

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

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

zusammenfalten · markieren

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;

zusammenfalten · markieren

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;

Hm.. irgendwie funktionierte das nicht...

aber hab die Zeile

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

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini'); ersetzt und auf ein mal geht's

Hallo,

nur der Richtigkeit halber, das kann nicht gehen:

Zitat von freak4fun:

    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.

Das nennt man selbstverarschung - wird das zusammengeschrieben

Ja das mit dem

cbDirectConnection.Checked := Ini.ReadBool('Default', 'Proxy', 'none'); // -"- hab ich kopiert und schon längst geändert. Aber sagt ihr zum Post #7?