김원석 wrote:

> 안녕하세요..

>

> 체크박스들을 늘려뜨려놓고...나중에 버튼이벤트가 생겼을때 체크박스들을 체크해서 그중에 체크된 3개를 뽑아서 테이블에 넣으려고 합니다.

>

> 그런데 루프문을 돌려서 체크박스가 체크되어있는지 체크해야겠는데 어떻게 조건문을 걸어야 할지 모르겠습니다.

>

> 예)

>

> for i:=1 to 12 do

> j := inttostr(i);

> if checkbox+'j'.check then <- 여기서 checkbox의 아이덴티티 에러가 자꾸나죠

> ......

> .....

> 제가 구문을 잘못쓴것 같은데 어떻게 해야..체크박스들을 다 체킹할수 있을까요?

>

> (checkbox1,checkbox2,checkbox3,checkbox4,checkbox5,.....)

>

> 도와주세요...메일로 주셨으면 더 감사하겠습니다.

>

>

이렇게 해봤어요...

좋은 하루 되세요.



procedure TForm1.Button1Click(Sender: TObject);

var

i, counti : integer;

begin

counti := 0;

for i := 0 to form1.ComponentCount - 1 do

if form1.Components[i] is tcheckbox then

begin

if tcheckbox(form1.Components[i]).checked then

inc(counti);

end;

label1.caption := inttostr(counti);

end;

이런걸 찾으시는게 아닌가 해서 답변드립니다.



if checkbox1.Checked = true then

showmessage('checked!!')

else

showmessage('Not checked!!');

end;

도움이 되셨는지.....



> 안녕하세요..

>

> 체크박스들을 늘려뜨려놓고...나중에 버튼이벤트가 생겼을때 체크박스들을 체크해서 그중에 체크된 3개를 뽑아서 테이블에 넣으려고 합니다.

>

> 그런데 루프문을 돌려서 체크박스가 체크되어있는지 체크해야겠는데 어떻게 조건문을 걸어야 할지 모르겠습니다.

>

> 예)

>

> for i:=1 to 12 do

> j := inttostr(i);

> if checkbox+'j'.check then <- 여기서 checkbox의 아이덴티티 에러가 자꾸나죠

> ......

> .....

> 제가 구문을 잘못쓴것 같은데 어떻게 해야..체크박스들을 다 체킹할수 있을까요?

>

> (checkbox1,checkbox2,checkbox3,checkbox4,checkbox5,.....)

>

> 도와주세요...메일로 주셨으면 더 감사하겠습니다.

>

>