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?

Delphi-Quellcode:

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:

Delphi-Quellcode:

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?

[Gehstock]

Delphi-Quellcode:

var
  Form1: TForm1;
  iniFile: TIniFile;
  IniFileName : string = '.\test.ini';
implementation

{$R *.dfm}




procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if iniFile = nil then iniFile := TIniFile.Create(IniFileName);
 if iniFile <> nil then
  begin
  iniFile.WriteBool('Test','Eigenschaft',CheckBox1.Checked);
     iniFile.UpdateFile;
     iniFile.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if iniFile = nil then iniFile := TIniFile.Create(IniFileName);
  if iniFile <> nil then
  begin
    CheckBox1.Checked :=iniFile.ReadBool('Test','Eigenschaft',CheckBox1.Checked);
  end;
end;

mach doch so

[Progman]

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'test.ini');
  ini.WriteBool('Test','Eigenschaft',CheckBox1.Checked);
  ini.free;
end;

procedure TForm1.FormShow(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'test.ini');
  CheckBox1.Checked:=ini.ReadBool('Test','Eigenschaft',False);
  ini.free;
end;

Das funzt bei mir, und ist effektiver ;)

[Progman]

oups....Post von Gehstock verpasst :lol:

[Jack23]

Progman deins geht. Danke! Ich wüsste aber doch gerne mal was bei meinem falsch war.

[ringli]

Delphi-Quellcode:

if x = 1 then CheckBox1.Checked;

hätte lauten müssen

Delphi-Quellcode:

if x = 1 then CheckBox1.Checked := True;

[Jack23]

Ah! Ok danke. Wieder etwas klüger geworden.