CONST SName: ARRAY[0..3] OF STRING = ('xmmc', 'xmbm', 'gltw', 'tg'); procedure LoadTcxTReeList(Tree:Tcxtreelist;Qeytable:TAdoQuery;bm:string;SName:array of string); var level,firstlen,k,i:integer; mynode:array[0..9] of TcxTreeListNode;//存每层节点，最大十层 b