Нужна помощь с checkbox и его состоянием

[Iron Monk]

var
  test: array [1..50] of Boolean;
  i: integer;
  tmpCB:TComponent;
 _iniF: TIniFile;
begin
  _iniF:= TIniFile.Create('C:\test.ini');
  for i:=1 to 50 do
  begin
    test[i]:= _iniF.ReadBool('SETUP',Format('CheckBox%d',[i]), false);
    tmpCB:=FindComponent(Format('CheckBox%d',[i]));
    (tmpCB as TCheckBox).Checked:= test[i];
  end;
  _iniF.Free;
end;

[Аватар]

Массив не нужен при таком подходе

при сохранении (очень желательно перед этим проверить на tmpCB<>nil):

_iniF.WriteBool('SETUP',Format('CheckBox%d',[i]),(tmpCB as TCheckBox).Checked);

при восстановлении:

(tmpCB as TCheckBox).Checked:=_iniF.ReadBool('SETUP',Format('CheckBox%d',[i]), false);

[Iron Monk]

Сообщение от Аватар

Массив не нужен при таком подходе

при сохранении (очень желательно перед этим проверить на tmpCB<>nil):

_iniF.WriteBool('SETUP',Format('CheckBox%d',[i]),(tmpCB as TCheckBox).Checked);

при восстановлении:

(tmpCB as TCheckBox).Checked:=_iniF.ReadBool('SETUP',Format('CheckBox%d',[i]), false);

А потом в программе как узнавать - где установлен чекбокс?
Массив заполнен этими данными...

[Аватар]

Ну если нужно нет вопросов. А нужно? И если нужно придется в OnClick чекбоксов менять состояние этого массива

[Iron Monk]

Сообщение от Аватар

Ну если нужно нет вопросов. А нужно? И если нужно придется в OnClick чекбоксов менять состояние этого массива

1. У ТС они были:

var
тест1, тест2, тест3: Boolean;
...

2. Согласен.

[Mik92]

Сообщение от Iron Monk

var
  test: array [1..50] of Boolean;
  i: integer;
  tmpCB:TComponent;
 _iniF: TIniFile;
begin
  _iniF:= TIniFile.Create('C:\test.ini');
  for i:=1 to 50 do
  begin
    test[i]:= _iniF.ReadBool('SETUP',Format('CheckBox%d',[i]), false);
    tmpCB:=FindComponent(Format('CheckBox%d',[i]));
    (tmpCB as TCheckBox).Checked:= test[i];
  end;
  _iniF.Free;
end;

Большое спасибо!

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

стоп, а зачем переменная хранящая состояние чекбокса, когда чекбокс итак его хранит?

[Iron Monk]

Сообщение от Пепел Феникса

стоп, а зачем переменная хранящая состояние чекбокса, когда чекбокс итак его хранит?

Я так понял ТС, что это переменная разрешающая какой-то 'Тест':

for i:= 1 to 50 do
  if test[i] then
  ... Выполняем тест i

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

ну так а почему нельзя с чекбокса самого и считывать?

[Iron Monk]

Сообщение от Пепел Феникса

ну так а почему нельзя с чекбокса самого и считывать?

Не знаю... Нужно у ТС спросить.

for i:=1 to 50 do
   if (FindComponent(Format('CheckBox%d',[i])) as TCheckBox).Checked then
...