C++ BUILDER 递归遍历控件树结构

const String tmp="└─";
const String tmp1="├─";
const String tmp2="│ ";
//String tmp3="─";
//String tmp4="┌";
const String tmp5=" ";

void __fastcall TForm1::clearcontrols1(TControl *control,String pre)
{
int i;

String s2;
for(i=control->Controls->Count-1;i>=0;i--)
    {
    TControl * pctl=control->Controls->Items[i];
    if(!pctl->InheritsFrom(__classid(TControl)))
    continue;
        if(i==0)                                                          //最后一个
            {
            s2=pre+tmp+pctl->ClassName();
//            if(((String )pctl->ClassName()).Compare("TButton")==0)
//            s2 =s2+"{"+(((TButton *)pctl)->Text+"}");
            Memo1->Lines->Add(s2);
            if(pctl->ChildrenCount>0)
            clearcontrols1(pctl,pre+tmp5);
            }
        else
            {
            s2=pre+tmp1+pctl->ClassName();
            Memo1->Lines->Add(s2);
            if(pctl->ChildrenCount>0)
            clearcontrols1(pctl,pre+tmp2);
            }


//        delcounter++;
//        if(control->Controls->Count==0)                      //无子控件
//        delete pctl;                                         //释放内存
//        control->Controls->Delete(i);                        //删除控件UI
    }
 //Memo1->Lines->Add("deleted:"+IntToStr(delcounter));
}