bcb获取控件的结构

void __fastcall TfrmMinFtpMain::ResetControls(TWinControl *winControl,int i_depth)
{
    int depth = i_depth+1 ;
    String s_depth="┡";
    if(String(winControl->ClassName()) == "TLabel") return;
    //if(winControl->ControlCount>0)ListBox1->Items->Add((String)winControl->Name +"-("+ IntToStr(winControl->ControlCount) +")");
    int j=depth;
    while(j>0)
    {
        s_depth = "  " + s_depth;
        j--;
    }
    for(int i=0;i<winControl->ControlCount;i++)
    {
        AnsiString ansiPath;
        TWinControl *winChildControl = (TWinControl *)(winControl->Controls[i]);
        ansiPath.sprintf("%s%s* %s(%d)",s_depth,String(winControl->Controls[i]->ClassName()),winControl->Controls[i]->Name,winChildControl->ControlCount);
        //ListBox1->Items->Add(""String(winControl->Controls[i]->Name()));
        ListBox1->Items->Add(ansiPath);

       ResetControls(winChildControl,depth);

    }
    return;
}