Параметры cxCheckComboBox1 в INI файл

[krikaved]

Как сохранять и загружать параметры компоненты cxCheckComboBox1 с помощью INI файла?

  with cxCheckComboBox1 do
       begin
         States[0]:=cbsChecked;
         States[1]:=cbsChecked;
         States[2]:=cbsChecked;
         States[3]:=cbsChecked;
         States[4]:=cbsChecked;
       end;

[CraZZZy-GameRRR]

Работа с INI-файлами в Delphi: http://www.codenet.ru/progr/delphi/stat/ini-files.php

[Kotofff]

Никак ! Храни в INI-шке булевский тип, а в проге делай соответствие.

[Toxa]

можно например так
на счет "tcxcheckboxstates" могу ошибаться в написании
var
ini:tinifile;
begin
ini.writeinteger('bla','bla',intege r(cxCheckComboBox1.States[0]));
cxCheckComboBox1.States[0]:=tcxcheckboxstates(ini.readinteger ('bla','bla',0));

[krikaved]

...
  public
    DayOfWeek: boolean;
...

В одной процедуре я делаю так:

DayOfWeek := cxCheckComboBox1.States[0] = cbsChecked;

А в другой процедуре мне нужно сделать вот так:

(cxCheckComboBox1.States[0] = cbsChecked) := DayOfWeek; // ошибка!!!

Как быть?

[Kotofff]

if DayOfWeek 
   then cxCheckComboBox1.States[0] := cbsChecked 
   else cxCheckComboBox1.States[0] := cbsUnchecked;

Ты не выжмешь из этих компонентов более того, чем они дают ...

[krikaved]

Можно хранить в INI-шке как булевский тип, так и типа Integer.
У меня есть две процедуры GetData и SetData. Я туда записываю все значения и не только для DayOfWeek. А потом уже загоняю значения в INI файл.
Вопрос: В приведённом ниже коде в INI файл сохраняется именно для DayOfWeek только одно значение. А как сделать, чтобы сохранились несколько выбранных значений для DayOfWeek (например checked Понедельник, Вторник и Среда). Я мог бы использовать 7 переменных DayOfWeek (DayOfWeek1, DayOfWeek2, DayOfWeek3 и т.д.), чтобы хранить для каждой переменной своё значение. Но это нерационально!
Подскажите как можно используя одну переменную DayOfWeek хранить несколько выбранных значений?

procedure TF_Timer.GetData(Work: TWork);
begin
  with Work do
  begin
    ...
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := 1;
    if cxCheckComboBox1.States[1] = cbsChecked then DayOfWeek := 2;
    if cxCheckComboBox1.States[2] = cbsChecked then DayOfWeek := 3;
    if cxCheckComboBox1.States[3] = cbsChecked then DayOfWeek := 4;
    if cxCheckComboBox1.States[4] = cbsChecked then DayOfWeek := 5;
    if cxCheckComboBox1.States[5] = cbsChecked then DayOfWeek := 6;
    if cxCheckComboBox1.States[6] = cbsChecked then DayOfWeek := 7;
    ...
    end;
end;

procedure TF_Timer.SetData(Work: TWork);
begin
  with Work do
  begin
    ...
       case DayOfWeek of
      1:
        cxCheckComboBox1.States[0] := cbsChecked;
      2:
        cxCheckComboBox1.States[1] := cbsChecked;
      3:
        cxCheckComboBox1.States[2] := cbsChecked;
      4:
        cxCheckComboBox1.States[3] := cbsChecked;
      5:
        cxCheckComboBox1.States[4] := cbsChecked;
      6:
        cxCheckComboBox1.States[5] := cbsChecked;
      7:
        cxCheckComboBox1.States[6] := cbsChecked;
       end;
    ...
  end;
end; 

procedure TWork.LoadFromIniFile(IniFile: TIniFile; const Section: string);
begin
  with IniFile do
  begin
    DayOfWeek := ReadInteger(Section, 'DayOfWeek', DayOfWeek);
    ...
  end;
end;

procedure TWork.SaveToIniFile(IniFile: TIniFile; const Section: string);
begin
  with IniFile do
  begin
    WriteInteger(Section, 'DayOfWeek', DayOfWeek);
    ...
  end;
end;

[Kotofff]

Подскажите как можно используя одну переменную DayOfWeek хранить несколько выбранных значений?

Если для хранения какого-то значения хватает 2-х состояний (как в boolean типе), то можешь использовать биты. Т.е.:

var
DayOfWeek: byte; // к примеру
...
...
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 1; // установили 1-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 2; // установили 2-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 4; // установили 3-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 8; // установили 4-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 16; // установили 5-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 32; // установили 6-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 64; // установили 7-й бит
    if cxCheckComboBox1.States[0] = cbsChecked then DayOfWeek := DayOfWeek and 128; // установили 8-й бит

Итак, у нас сохранено 8 (например) значений (true,false ну или 0,1 - как угодно).
После чтения DayOfWeek из INI можно примерно так :

    if (DayOfWeek and 1) then cxCheckComboBox1.States[0] = cbsChecked else cxCheckComboBox1.States[0] = cbsUnChecked;
... ну и так далее по аналогии ...