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

[Mik92]

Сидел, думал, все таки надумал. Поскольку у меня checkbox'ов много приходится много строк писать. Придумал немного другой способ но вся мозаика не складывается в голове. Чтобы не писать постоянно одно и тоже

if CheckBox1.State = cbUnchecked then тест1:=false
     else тест1:=True;
if CheckBox2.State = cbUnchecked then тест2:=false
     else тест2:=True;
if CheckBox3.State = cbUnchecked then тест3:=false
     else тест3:=True;

Решил подумать над кодом

var
тест1, тест2, тест3: Boolean;
...
  for i:= 1 to 50 do
  begin
    sCB:= TCheckBox(FindComponent('CheckBox' + IntToStr(i)));
    if Assigned(sCB) then
    begin

      end else begin

      end;
    end;
  end;

И вот собственно в чем заключается задача. Нужно записать состояние чекбокса в boolean при этом не забыть то что у каждого чекбокса есть свое название и это название я хотел бы потом записать в ini файл. Помогите

[Аватар]

А что название? Оно известно - 'CheckBox' + IntToStr(i).
И if-ов не нужно:

var Checkeds: array [1..50] of Boolean;
...
Checkeds[i]:=sCB.Checked;

[Mik92]

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

А что название? Оно известно - 'CheckBox' + IntToStr(i).
И if-ов не нужно:

var Checkeds: array [1..50] of Boolean;
...
Checkeds[i]:=sCB.Checked;

Я хотел бы после, записать значения в ini файл с caption чекбокса. И видимо из за этого не до конца все понимал как код правильно составить.

[Iron Monk]

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

Чтобы не писать постоянно одно и тоже

if CheckBox1.State = cbUnchecked then тест1:=false
     else тест1:=True;
if CheckBox2.State = cbUnchecked then тест2:=false
     else тест2:=True;
if CheckBox3.State = cbUnchecked then тест3:=false
     else тест3:=True;

  test1:= true = CheckBox1.Checked;

[Mik92]

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

  test1:= true = CheckBox1.Checked;

Я пытаюсь сделать перебор всех чекбоксов при этом получить их caption и записать в ini файл их состояние что то в роде
тест1=1 (если состояние checked)
но завис на получении названия, слишком много кода и все в голове запуталось

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

test1:= CheckBox1.Checked

уж тогда

[Mik92]

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

test1:= CheckBox1.Checked

уж тогда

Я то и прошую помощи, дело в том что я не хочу тратить на сохранение настроек кучу места в коде.. вот и ищу лучший вариант сохранения без лишних строк.

[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
      tmpCB:=FindComponent(Format('CheckBox%d',[i]));
      test[i]:= (tmpCB as TCheckBox).Checked;
      _iniF.WriteBool('SETUP',Format('CheckBox%d',[i]),test[i]);
    end;
    _iniF.Free;
  end;

[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
      tmpCB:=FindComponent(Format('CheckBox%d',[i]));
      test[i]:= (tmpCB as TCheckBox).Checked;
      _iniF.WriteBool('SETUP',Format('CheckBox%d',[i]),test[i]);
    end;
    _iniF.Free;
  end;

Спасибо за помощь! Почти то что я хотел но я поправлю.

[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
      tmpCB:=FindComponent(Format('CheckBox%d',[i]));
      test[i]:= (tmpCB as TCheckBox).Checked;
      _iniF.WriteBool('SETUP',Format('CheckBox%d',[i]),test[i]);
    end;
    _iniF.Free;
  end;

Вроде все элементарно, как загрузить теперь по такому же способу из ini файла?