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 |