ini-файл

[Афанасий[vedma]]

Привет
Если у меня на форме 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[i], ''));
  names.Destroy;

  F.Destroy;
end;

[Stilet]

все сохранить без заморочек?

В цикле:

for i:=0 to Componentscount-1 do begin
 if Component[i] is TCheckBox then begin
  Что-то делаем с TCheckBox(Component[i]) 
 end;
end;

[astecenko]

Возможно Вам лучше использовать TMemIniFile