counti := 0;
for i := 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TComboBox then
begin
if TComboBox(Form1.Components[i]).Text <> '선택' then
inc(counti);
end;
end;
위에있는 코드는 ComboBox의 Text가 '선택'이 아닐때의 ComboBox수를 세는 코드인데요...다름이 아니라 수를 세면서 몇번째 ComboBox인지, 또한 선택된 ComboBox의 Text값이 무엇인지도 알려고 하는데요.
고수님들 부탁드립니다...
소스 참고 하세요. 그리고 질문 하신것 중에 몇번째 콤보인가를 체크 한다고
말씀 하셨는데.. 그 기준이 뭘까욤..고건 이해가 잘 안되서 소스에 안 집어
넣었네욤. 번호 매기는 기준이 생성 순서인가욤??
암튼 즐코~
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[i] is TComboBox then
begin
with TComboBox(Form1.Components[i]) do
begin
Memo1.Lines.Add(Items.Strings[ItemIndex]); // 콤보박스의 선택된 String
Memo1.Lines.Add(IntToStr(Itemindex)); // 콤보박스의 선택된 index
end;
end;
end;
end;
end.