[BCB]找出同一層內的Component

找出同一層內的Component
於function可以再定義要找的Component type

this->test(this->GroupBox1);
======================================================
void TForm1::test(TWinControl* pObj)
{
    for (unsigned short int i=0 ; iControlCount ; i++)
    {
            if (String(pObj->Controls[i]->ClassName())==”TEdit”)
            {
                ((TEdit *)pObj->Controls[i])->Text = “get it”;
            }
            if (String(pObj->Controls[i]->ClassName())==”TLabel”)
            {
                ((TEdit *)pObj->Controls[i])->Text = “get it”;
            }
    }
}