次のように私のデータベースが構成されています
UNITID UNITNAME
01中国語（ルート）
0101河北省（2本の木）
010101滄州市（3本の木）河北
01010101滄州市、河北省、滄県（4本の木）
北京で0102（2木）
010201、北京（3本の木）、海淀区
01020101 TangGuLing村、海淀区、北京（4本の木）
01020102海淀区、ダラスの住宅村（4本の木）
010202北京市朝陽区（3本の木）
01020201北京朝陽区村（4つのツリー）
0103天津（2つのツリー）
010301大港区（3本の木）
01030101大港区場所（4ツリー）が
決定するために必要である
ときに4 UNITIDの長さ2つのツリーを生成
UNITID長が6であり、長さの前部4 4つのUNITID三つの値が生成等しいツリーである場合
UNITID長は8であり、4つの値を生成するためのフロント6,6 UNITIDの長さが等しいツリーである場合
兄弟初心者、私はサイクルを達成する方法がわかりません。助けてください。ありがとうございます！！！
手続きCreateTree。
CONST
ID_DEPT = 2。
VAR
nLevel：整数;
pNodes：TTreeNodeの配列[0..1023]。
LPID、lpName：文字列。
開始
ADODataSet1.Closeを。
ADODataSet1.CommandText：= '[编号]で[国家] ORDER SELECT * FROM';
ADODataSet1.Open;
pNodes [0]：=ゼロ、
TreeView1.Items.Clear;
ADODataSet1.Recordsetでない
EOFがない一方で
始める
; =フィールズ[ '编号'] .Valueの：LPIDを
lpName：=フィールド[ '名称'] .Valueの。
nLevel：=長さ（LPID）のdiv ID_DEPT。
pNodes [nLevel]：= TreeView1.Items.AddChild（pNodes [nLevel - 1]、lpName）。
MoveNextメソッド。
終わり;
終わり;