高效率从数据库提取数据，创建树形结构图

最新推荐文章于 2024-08-29 08:52:30 发布

blazingfire

最新推荐文章于 2024-08-29 08:52:30 发布

阅读量1.9k

点赞数

分类专栏： delphi笔记It's long long ago 文章标签：数据库 integer list dataset function string

本文链接：https://blog.csdn.net/blazingfire/article/details/2465965

版权

本文介绍了一个名为BuildTree的过程，用于从TDataSet数据集中提取数据，并基于KeyField, ParentField和TitleField字段创建树形结构。通过记录类型TNodeData存储数据，利用折半查找算法优化了节点的查找和构建，提高了构建树形结构的效率。" 112898325,10553090,Anaconda中Kite的安装与配置教程,"['anaconda的kite', '数据库管理', '前端开发', '后端开发', '开发工具']

摘要由CSDN通过智能技术生成

procedure BuildTree(TreeView: TTreeView; DataSet: TDataSet;
KeyField, ParentField, TitleField: string);
{ 高效建树过程　by blazingfire 2008-05-21 }
type
PNodeData = ^TNodeData;
TNodeData = record
    Key: Integer;
    Parent: Integer;
    Title: string;
    Node: TTreeNode;
end;

function CompareKey(Item1, Item2: Pointer): Integer;
begin
Result := PNodeData(Item1)^.Key - PNodeData(Item2)^.Key;
end;

function BisearchNodeData(Key: Integer; SortedList: TList): PNodeData;
var
    Lo, Hi, Mid: Integer;
begin
    Lo := 0;
    Hi := SortedList.Count - 1;
    while Lo <= Hi do
    begin
      Mid := (Lo + Hi) div 2;
      Result := SortedList[Mid];
      if Key > Result^.Key then
        Lo := Mid + 1
      else if Key < Result^.Key then
        Hi := Mid - 1
      else<