civilian 님 감사합니다..
그리고 오늘 처음 가입이라 몰랐어요...
외계체 안쓰겠습니다..  (혹시무의식중에(?) 글이 나오면 양해를...^.^)


civilian 님이 쓰신 글 :
: 다음과 같은 함수를 하나 만듭니다.
:
: function GetControlCount(AForm: TForm; AControl: TComponentClass): Integer;
: var
:   i: Integer;
: begin
:   Result := 0;
:   //
:   // 넘겨받은 폼에 컴포넌트가 몇개 있는지 파악한 후
:   // 원하는 컴포넌트인 경우 카운트 증가.
:   //
:   for i := 0 to AForm.ComponentCount-1 do
:     if (AForm.Components[i] is AControl) then
:        Inc(Result);
: end;
:
: //
: // 호출은 이렇게..
: //
: procedure TForm1.Button1Click(Sender: TObject);
: begin
:   Label1.Caption := IntToStr(GetControlCount(Form1, TLabel));    // 라벨의 갯수
:   Label2.Caption := IntToStr(GetControlCount(Form1, TEdit));     // 에디트 컨트롤의 갯수
:   Label3.Caption := IntToStr(GetControlCount(Form1, TComboBox)); // 콤보박스의 갯수
: end;
:
: 질문하는 것은 좋으나, 절대 외계체 사용하지 말고 옳바르게 써주시길 바랍니다.
: 질문과 답에 올라오는 모든 글들은 향후 귀중한 자료가 됩니다.
: 바른말을 써서 자료로서의 가치가 더 높아지게 되길 바랍니다.
:
: 마룬타오 님이 쓰신 글 :
: : 예)
: :  폼에 에디트박스 7개 콤보박스5개 기타 여러가지
: : 있는데  특정 원하는 컴포넌트갯수를 알수있는 방법이 있나요.......
: :
: : 제발 알려주셈....