var i, checkedCount: Integer; begin for i:=0 to GBMultiUpdate.ControlCount-1 do begin if TComponent(GBMultiUpdate.Controls[i]).ClassType = TCheckBox then if (GBMultiUpdate.Controls[i] as TCheckBox).Checked then Inc(checkedCount); end; end;
'Development > Delphi' 카테고리의 다른 글
프로퍼티, property (0) | 2015.08.21 |
---|---|
DateUtils.pas 날짜함수 (0) | 2015.08.13 |
DBGrid 타이틀 클릭시 정렬하기(order by) (0) | 2015.07.15 |
StringGrid의 Column의 크기(width) 자동 조절 (0) | 2015.07.15 |
TDataSet(TQuery, TTable) 엑셀로 저장하기 (0) | 2015.07.09 |