Сохранение 500 CheckBox в ini-файле

Posted by micher under Delphi

Если у меня на форме 500 CheckBox, то я должен всех по отдельности записать их в ini-файл или есть вариант, где можно все сохранить без заморочек?

procedure TForm1.FormCreate(Sender: TObject);

var

  F: TIniFile;

  names: TStringList;

  i: integer;

begin

  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');

  Form1.Left := F.ReadInteger('position', 'left', 0);

  Form1.Width := F.ReadInteger('position', 'width', 200);

  Form1.Top := F.ReadInteger('position', 'top', 0);

  Form1.Height := F.ReadInteger('position', 'height', 200);
  Edit1.Text := F.ReadString('tools', 'edit1', 'no text');

  Edit2.Text := IntToStr(F.ReadInteger('tools', 'koef', 0));

  CheckBox1.Checked := F.ReadBool('tools', 'check', true);
  names := TStringList.Create;

  F.ReadSection('files', names);

  for i := 0 to Names.Count - 1 do

    ListBox1.Items.Add(F.ReadString('files', names.Strings, ''));

  names.Destroy;
  F.Destroy;

end;

Stilet

В цикле:

for i:=0 to Componentscount-1 do begin

 if Component is TCheckBox then begin

  Что-то делаем с TCheckBox(Component)

 end;

end;

тема на форуме

Похожие статьи

• Чтение всех ключей из секции INI-файла в Делфи
• Подсчитать количество секций в инифайле
• Считать прокси из ini
• Сохранять положение RadioButton при запуске программы
• Как прочесть параметры из ini файла