Чтение ReadBool из Ini в CheckBox

[iskurt]

Ув, натоки, а подскажите как решить по-быстрому проблему.

вот пример кода

procedure TForm1.EditIni;
begin
  Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
  Ini.WriteBool('ГЛАВНОЕ','Дни',sCheckBox1.Checked); // тут он записывает либо 1 либо 0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
  sCheckBox1.Checked := Ini.ReadBool('ГЛАВНОЕ','Дни',true); // а тут он считывает единицу, но не воспринимает ее как true
end;

Как считывая единицу и принимать ее за true?
Либо, как писать в WriteBool слово true вместо единицы?


Просто не охото писать отдельно обработчик, который будет воспринимать 1 как true и наоборот!!!

[Пепел Феникса]

причем тут единица то?
у вас что сохранено то и будет прочитано.
третий параметр функций TINIFile.read*** служит для задания значений по умолчанию(то есть если в файле такого параметра нет)

[_SERGEYX_]

Правильно будет вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
  Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
  sCheckBox1.Checked := Ini.ReadBool('ГЛАВНОЕ','Дни',sCheckBox1.Checked); 
// или
  sCheckBox1.Checked := Ini.ReadBool('ГЛАВНОЕ','Дни', not sCheckBox1.Checked);
end;

Я бы в конце процедуры добавил

ini.Free;

[Прик]

Сообщение от iskurt

  sCheckBox1.Checked := Ini.ReadBool('ГЛАВНОЕ','Дни',true); // а тут он считывает единицу, но не воспринимает ее как true

Смешно. У всех "он" воспринимает как надо, а у автора нет. "Он" совсем обнаглел. Пора ему всыпать.

[iskurt]

Ну екарный бабай, мужики.... когда sCheckBox1.Checked := true;
то в ini пишеться 1. Когда я считываю этот параметр в sCheckBox1.Checked, то параметр 1 не воспринимает.....
Может нужно пробовать не sCheckBox1.Checked , а стандартный CheckBox1.Checked

[Пепел Феникса]

я так и не понял где именно проблема.
такое чувство что вы пытаетесь в Checked сунуть единицу(не с ини файла а просто)

[iskurt]

Так, пишу в подробностях..... когда ставлю галочку в боксе, в ини пишется 1
вот примет
[ГЛАВНОЕ]
Дни=1

при запуске программы, эта единица должна считаться как булевое значение и присвоить в sCheckBox1.Checked := true, но это не происходит.... вопрос, ПОЧЕМУ?

sCheckBox1.Checked := Ini.ReadBool('ГЛАВНОЕ','Дни',true);

вот так правильно записывать?

[Пепел Феникса]

то есть после кода этого галочки все равно нет?
а если поставить просто

sCheckBox1.Checked :=true;

результат каков?

[iskurt]

в ини пишеться единица....

[Прик]

Сообщение от iskurt

Ну екарный бабай, мужики.... когда sCheckBox1.Checked := true;
то в ini пишеться 1. Когда я считываю этот параметр в sCheckBox1.Checked, то параметр 1 не воспринимает.....
Может нужно пробовать не sCheckBox1.Checked , а стандартный CheckBox1.Checked

А ini-файлу какая разница, булево свойство Checked у стандартного комбобокса или не у стандартного.
Попытайтесь прочесть эту единицу в переменную типа boolean. Что будет.
Потом присвойте ее Checked'у комбобокса. Надо же как-то проблему локализовать, если она, действительно, есть.
Присоединяясь к Пепел Феникса, тоже не понимаю в чем проблема то. Да, пишет единицу, да читает как единицу, но преобразует в тип boolean в своей внутренней реализации. И что значит "не воспринимает"?