树型结构的产生和方法

最新推荐文章于 2022-07-25 08:50:17 发布

阿土sap

最新推荐文章于 2022-07-25 08:50:17 发布

阅读量624

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： integer div 2010

本文链接：https://blog.youkuaiyun.com/chfeijj/article/details/6106633

Delphi 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一种使用两种不同方法构建国家及其下属地区的树状结构的方法。通过这两种方法，可以将不同层级的数据（如国家、省份和城市）组织成易于理解和操作的树形结构。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

编号名称
01 中国
0101 吉林省
010101 长春市
010102 吉林市
0102 江苏省
010201 南京市
010202 常州市
02 美国
0201 密歇根州
020101 底特律市
0202 华盛顿州
020201 温哥华市
020202 西雅图市
03 澳大利亚

procedure TForm1.Button1Click(Sender: TObject);
const
ID_DEPT = 2;
var
nLevel: Integer;
pNodes: array[0..1023] of TTreeNode;
lpID, lpName: string;
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT * FROM [国家] ORDER BY [编号]';
ADODataSet1.Open;
pNodes[0] := nil;
TreeView1.Items.Clear;
with ADODataSet1.Recordset do
while not Eof do
begin
lpID := Fields['编号'].Value;
lpName := Fields['名称'].Value;
nLevel := Length(lpID) div ID_DEPT;
pNodes[nLevel] := TreeView1.Items.AddChild(pNodes[nLevel - 1], lpName);
MoveNext;
end;
end;

//////////方法二///////////////////////////////

var
i,j,m,n:integer;
RootNode,ChildNode,GrandChildNode,NewGrandChildNode:TTreeNode;
begin
with TreeView1.Items do
begin
Clear;
RootNode:=Add(nil, '所有情况');
RootNode.ImageIndex:=0;
RootNode.SelectedIndex:=RootNode.ImageIndex;
for i:=0 to 8 do
begin
ChildNode:=AddChild(RootNode,'信息');
ChildNode.ImageIndex:=1;
ChildNode.SelectedIndex:=ChildNode.ImageIndex;
end;
end;
end;