j := 0;
for i := 0 to ComponentCount - 1 do
if components[i] is TCheckBox then
with (components[i] as TCheckBox) do begin
inc(j);
new.d[j] := Checked;
end;
d[1] := CheckBox1.Checked;
d[2] := CheckBox2.Checked;
...
Ты создаешь CheckBox-ы в Run-Time? Или в Design-Time?
Если в RunTime, то очень удобно в свойство Tag записать при создании номер, а потом в элемент массива с этим номером сохранять значение Checked... В Design-Time с этим больше мороки, надо всем чекбоксам вручную значение Tag присваивать...
в Design-Time, спасибо.