delphi中父母表示法递归构造treeview(在递归函数之外查询数据库)

原创 2006年05月17日 09:16:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls;
type
  PTNodeInfo=^TNodeInfo;
  TNodeInfo=record
  id,preId:string;
  end;
type
  TArr=array of TNodeInfo;
type
  TForm1 = class(TForm)
    Button1: TButton;
    tree: TTreeView;
    Query1: TADOQuery;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure CreateTree(var arr:TArr);
    procedure InitArray(var arr:TArr);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.InitArray(var arr:TArr);
var

  Query:TADOQuery;
  i:integer;
  sql:string;
begin
  Query:=TADOQuery.Create(nil);
  Query.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/实验/递归父母表示/新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False';
  sql:= 'select * from table1';
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add(sql);
  Query.Open;
  Query.First;
  SetLength(arr,Query.RecordCount);
  i:=0;
  while not Query.Eof do
  begin
    arr[i].id:=Query.fields[0].AsString;
    arr[i].preId:=Query.Fields[1].AsString;
    Inc(i);
    Query.Next;
  end;

end;

procedure TForm1.CreateTree(var arr:TArr);
var
  p:pTNodeInfo;
  procedure CreateTree(Pre:PTNodeInfo;preNode:TTreeNode;var arr:TArr);
  var
    pInfo:pTNodeInfo;
    node:TTreeNode;
    i:integer;
  begin
    i:=length(arr)-1;
    while i>=0 do
    begin
      new(pInfo);
      pInfo:=@arr[i];
      if pInfo.preId=pre.id then
      begin
        node:=tree.Items.AddChild(preNode,pInfo.id);
        node.Data:=pInfo;
        CreateTree(pInfo,node,arr);
      end;
    i:=i-1;
    end;
  end;
begin
  new(p);
  p.id:='000';
  createTree(p,nil,arr);
  tree.FullExpand;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
arr:TArr;
i:Integer;
begin
  InitArray(arr);
  CreateTree(arr);
  memo1.Clear;
  for i:=0 to tree.Items.Count-1 do
  memo1.Lines.Add(ptnodeinfo(tree.Items[i].data).Id+'  '+ptnodeinfo(tree.Items[i].data).preId);

end;

end.                               

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

递归函数 递归排序法

  • 2014-03-16 20:33
  • 400KB
  • 下载

递归构造树 treeview

树形结构在开发中的应用 撰文: 李洪根 本文首发于《CSDN开发高手》2003年第十二期 概述TreeView是一个重要的控件,无论是在VB.NET,C# 还是VB、Delphi等各种语言中,都充当了...

【计组】MIPS实现的递归函数的非递归实现

题目如下: f(n)

不同的参数传递方式对递归函数递归深度的影响

传值版与传引用版的递归函数,观察递归深度

有关于递归函数的一些学习记录(Recursion)走楼梯,递归找出最两个数的大公约数,汉诺塔问题

递归函数的定义是指在函数执行的过程中,在函数体中直接或间接的调用了自己,这样的函数就是递归函数。递归函数的使用使得分而制之(Divide and Conquer)的思想得意实现,并在解决循环和一些复杂...

一类void 递归函数的非递归实现

对于如下类型的void型递归函数:(主要特征是递归调用的地方上下文无关)         void Fun(type a1,type a2......)         { //0号程序段-起 //...

hanoi塔的递归以及非递归函数

/** * @file Hanoi.c * @brief * Function: Hanoi塔的递归以及非递归解法 * Design Points: * * * * @...

进一步讨论递归函数——递归与栈

递归函数,在函数的执行函数中,需多次进行自我调用。那么,递归函数是如何执行的?先看任意两个函数之间进行调用的情形。用函数和被调用函数[若在函数A中调用了函数B,则称函数A为调用函数,称函数B为被调用函...

将递归函数转换为非递归形式

任何递归函数转换为非递归函数有一套固定的规则,使用该规则可以将任何递归函数转换为非递归函数。

ASP.NET 读数据库绑定到 TreeView 递归方式

创建表及插入模拟数据: CREATE TABLE [sysMenuTree]( [NoteId] [decimal](18, 0) NOT ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)