[aford]

Всем привет, вот так не работает

Код:

  for i:= 0 to DBCtrlGrid1.ComponentCount - 1 do
  begin
    if (DBCtrlGrid1.Components[i] is TDBCheckBox) then
    begin
      inc(j);
      if (DBCtrlGrid1.Components[i] as TDBCheckBox).Checked then
        inc(k);
    end;  
  end;

Проверить в датасете нет возможности, нужно именно в компоненте