Witam
//ZAPISZ
procedure TForm3.Button1Click(Sender: TObject);
Var
ini: TINIFile;
begin
ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'cols.ini');
try
ini.WriteBool('ulica', 'pokaz1', CheckBox5.Checked);
ini.WriteBool('miejscowosc', 'pokaz2', CheckBox6.Checked);
ini.WriteBool('email', 'pokaz3', CheckBox7.Checked);
finally
ini.free;
end;
end;
//CZYTAJ
procedure TForm3.Button2Click(Sender: TObject);
var
ini: TINIFile;
begin
//ustawienia kolumn kursanta
//if Fileexists(ExtractFilePath(Application.ExeName) + 'cols.ini') then
ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'cols.ini');
try
Form3.CheckBox5.Checked := ini.readbool('ulica','pokaz1',True);
Form3.CheckBox6.Checked := ini.readbool('miejscowosc','pokaz2',True);
Form3.CheckBox7.Checked := ini.readbool('email','pokaz3',True);
finally
ini.free;
end;
Dlaczego ten kod odczytuje mi tylko jednego Checkboxa zamiast trzech? Zapisuje wszystkie. Zawsze tak robiłem, a teraz coś jest nie tak. :/