Kleines Problem mit INI

[Jack23]

Was ist daran falsch?
ini.ReadInteger('Test','Eigenschaft','1');

[Progman]

nichts, außer dass ReadInteger eine funktion ist, die einen Wert zurückgibt, also:
x:=ReadInter(.....)

[Jack23]

Wenn ich das ausführe bekomme ich aber immer die Meldung: Inkompatible Typen: 'Integer' und 'string'

Ach ich glaube das muss so aussehen oder?

ini.ReadInteger('Test','Eigenschaft',0); Und wie bekomme ich dann diese if abfrage hin?

Delphi-Quellcode:

if 'Eigenschaft' = '1' then
    CheckBox1.Checked

[Progman]

ach, sorry, hab ich übersehen:
ini.ReadInteger('Test','Eigenschaft',1); <- so klappts

[Jack23]

Hehe

Ich auch. Habe es oben noch schnell editiert. Du warst aber schneller.

[Progman]

Delphi-Quellcode:

var x: Integer;

x:=ini.ReadInteger('Test','Eigenschaft',0);

if x = 1 then CheckBox1.Checked;

[Jack23]

Hm irgend etwas stimmt da noch nicht. CheckBox 1 wird nie angekreuzt. Obwohl der Wert 1 ist.
Mein Code.
Oben das auslesen unten das schreiben:

Delphi-Quellcode:

procedure TForm8.FormShow(Sender: TObject);
var ini: TIniFile;x: Integer;
begin
  ini:=TIniFile.Create('test.ini');
  try
    x:=ini.ReadInteger('Test','Eigenschaft',0);
      if x = 1 then CheckBox1.Checked;
        finally
    ini.free;
  end;
end;

procedure TForm8.onclick(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'test.ini');
    if CheckBox1.Checked then
    ini.WriteString('Test','Eigenschaft','1');
    if not CheckBox1.Checked then
    ini.WriteString('Test','Eigenschaft','0');


    ini.free;
    end;

[ringli]

Guck dir doch mal als erstes die Zeilen mit TIniFile.Create an. Eine ist richtig die andere falsch.

[Jack23]

Muss bei beiden so sein:

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'test.ini'); Geht aber trotzdem nicht.

[ringli]

Bist du sicher das die Ini-Datei im Programmverzeichnis existiert und auch die Sektion und der Wert existiert?