현재 체크박스를 100여개 정도 사용해야 하는 프로그램을 만들고 있습니다.
버튼 클릭이벤트 발생시 체크박스에 총 몇개가 체크 되어있는지 알아볼려고 하는데...
노가다 형식으로 할려니 도저히 엄두가 안나네요.
<!--
if CheckBox1.Checked = true then a:=a+1;
if CheckBox2.Checked = true then a:=a+1;
if CheckBox3.Checked = true then a:=a+1;
if CheckBox4.Checked = true then a:=a+1;
if CheckBox5.Checked = true then a:=a+1;
.....
if CheckBox100.Checked = true then a:=a+1;
showmessage(inttostr(a));
-->
이와 같은 노가다성 코드를 쉽고 간단히 바꿀수 없는지요?
예를들어 for, while문을 돌린다든지...???
for i := 1 to 135 do
begin
if TCheckBox( FindComponent( 'CheckBox' + inttostr( i ) ) ).Checked = True then a:=a+1;
end;
이처럼 하면 되겠네용. ㅎㅎ