heimdal wrote:

> 안녕하세여..헤임달입니다..

>

> 체크리스트박스에 관한 질문인데여..

> 체크리스트박스에 여러가지 아이템이 있습니다..

> A

> B

> C

> D

> .

> .

> 등등..이렇게여..

>

> 근데..여기서 체크된것들만 뽑아서 텍스트에 출력하고싶은데여..

> 어떤식으루 해줘야되나여?





다중 체크된 넘들을 골라내고 싶으시다는 거죠?



procedure TForm1.Button1Click(Sender: TObject);

var i :Integer;

begin

for i := 0 to CheckListBox1.Items.Count-1 do begin

if CheckListBox1.Checked[i] = True then

begin

//CheckListBox1.Items[i]; <-- 이넘이 체크된 항목입니다.

end;

end;

end;

procedure Tmain.check_shClickCheck(Sender: TObject);

var

i : integer;

begin

for i := 0 to check_sh.Items.Count-1 do begin

if check_sh.Checked[i] = True then

begin

memo1.Lines.Add(check_sh.Items[i]);

end;

end;

end;



이렇게했는데..왜 메모박스에 아무것도 안나오는지..

쩝..이렇게 바보같을수가..흑흑..





구창민 wrote:

> heimdal wrote:

> > 안녕하세여..헤임달입니다..

> >

> > 체크리스트박스에 관한 질문인데여..

> > 체크리스트박스에 여러가지 아이템이 있습니다..

> > A

> > B

> > C

> > D

> > .

> > .

> > 등등..이렇게여..

> >

> > 근데..여기서 체크된것들만 뽑아서 텍스트에 출력하고싶은데여..

> > 어떤식으루 해줘야되나여?

>

>

> 다중 체크된 넘들을 골라내고 싶으시다는 거죠?

>

> procedure TForm1.Button1Click(Sender: TObject);

> var i :Integer;

> begin

> for i := 0 to CheckListBox1.Items.Count-1 do begin

> if CheckListBox1.Checked[i] = True then

> begin

> //CheckListBox1.Items[i]; <-- 이넘이 체크된 항목입니다.

> end;

> end;

> end;

heimdal님 코드는 잘못된 점이 없어보입니다.



그런데 다만, 아래 이벤트가 어떤 이벤트인가요?



check_shClickCheck 는 특정버튼의 클릭이벤트인가요?



만일 그렇다면 제대로 동작되어야 할 코드인데...



제가 옆에 있다면 참 좋을텐데 하는 생각이 들때가 많네요..에궁..



그럼 ~ 즐거운 프로그래밍 하시길~





heimdal wrote:

> procedure Tmain.check_shClickCheck(Sender: TObject);

> var

> i : integer;

> begin

> for i := 0 to check_sh.Items.Count-1 do begin

> if check_sh.Checked[i] = True then

> begin

> memo1.Lines.Add(check_sh.Items[i]);

> end;

> end;

> end;

>

> 이렇게했는데..왜 메모박스에 아무것도 안나오는지..

> 쩝..이렇게 바보같을수가..흑흑..

>

>

> 구창민 wrote:

> > heimdal wrote:

> > > 안녕하세여..헤임달입니다..

> > >

> > > 체크리스트박스에 관한 질문인데여..

> > > 체크리스트박스에 여러가지 아이템이 있습니다..

> > > A

> > > B

> > > C

> > > D

> > > .

> > > .

> > > 등등..이렇게여..

> > >

> > > 근데..여기서 체크된것들만 뽑아서 텍스트에 출력하고싶은데여..

> > > 어떤식으루 해줘야되나여?

> >

> >

> > 다중 체크된 넘들을 골라내고 싶으시다는 거죠?

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > var i :Integer;

> > begin

> > for i := 0 to CheckListBox1.Items.Count-1 do begin

> > if CheckListBox1.Checked[i] = True then

> > begin

> > //CheckListBox1.Items[i]; <-- 이넘이 체크된 항목입니다.

> > end;

> > end;

> > end;