DELPHI 孩子兄弟表示法 (递归实现)

原创 2006年05月23日 11:43:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;
type
  pTNode=^TNode;
  TNode=class
  fChild:string;
  nSibling,id:string;
  firstChild,nextSibling:PTnode;
  Function GetFirstChild:PTNode;
  Function GetNextSibling:PTNode;
  end;
type
  TNodeArray=array of TNode;
type
  TTree=class
  current,root:PTNode;
  constructor Create(var arr:TNodeArray); overload;
  procedure InitTree(var arr:TNodeArray;p:PTNode);
  procedure  GetLeaves(p:PTNode);
  function  FindNode(p:PTNode;s:string):boolean;
end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Query: TADOQuery;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    procedure InitArray(var arr:TNodeArray);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function TNode.GetFirstChild:PTNode;
begin
  result:=firstchild;
end;

function TNode.GetNextSibling:PTNode;
begin
  result:=Nextsibling;
end;
function  TTree.FindNode(p:PTNode; s:string):boolean;
begin
  result:=false;
  if p<>nil then
  begin
    if p.id=s then
    begin
    current:=p;
    result:=true;
    exit;
    end;
    result:=FindNode(p.firstChild,s);
    if not result then
     result:=FindNode(p.nextSibling,s);
  end;
end;

procedure TTree.GetLeaves(p:PTNode);
begin
  if p<>nil then
  begin
  if p.firstChild=nil then form1.Memo1.Lines.Add(p.id);
  getLeaves(p.firstChild);
  getLeaves(p.nextSibling);
  end;
end;
procedure TForm1.InitArray(var arr:TNodeArray);
var
i:integer;
node:TNode;
begin
  Query.Open;
  SetLength(arr,Query.RecordCount);
  for i:=0 to Query.RecordCount-1 do
  begin
    node:=TNode.Create;
    node.id:=Query.Fields[0].AsString;
    node.fChild:=Query.Fields[1].AsString;
    node.nSibling:=Query.Fields[2].AsString;
    arr[i]:=node;
    Query.Next;
  end;
  Query.Close;
end;
constructor TTree.Create(var arr:TNodeArray);
var
  i:integer;
begin
  try
  for i:=0 to length(arr)-1 do
  begin
    if arr[i].id='0' then   root:=@arr[i];           //取根结点指针
  end;
  except
  showmessage('error');
  end;
end;

procedure TTree.InitTree(var arr:TNodeArray;p:PTNode);
var
  i:integer;
begin
  if p.fChild='none' then p.firstChild:=nil;
  if p.nSibling='none' then p.nextSibling:=nil;
  for   i:=0 to Length(arr)-1   do
  begin
    if p.fChild=arr[i].id then
    begin
       p.firstChild:=@arr[i];
       InitTree(arr,p.firstchild);
    end;
    if p.nsibling=arr[i].id then
    begin
      p.nextsibling:=@arr[i];
      InitTree(arr,p.nextsibling);
    end;
  end;
end;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

  i:integer;
  s1,s2:string;
begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  memo1.Lines.Add('本结点 左孩子 右兄弟');
  for i:=0 to length(arr)-1 do                   //test
  begin
    if arr[i].firstChild=nil then  s1:='n' else s1:=arr[i].firstchild.id;           //n表示'none'  ,列表应该和数据库中一致
    if arr[i].nextSibling=nil then s2:='n' else s2:=arr[i].nextsibling.id;
    memo1.Lines.Add(arr[i].id+'           '+s1+'            '+s2);
  end;
  tree.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  tree.getLeaves(tree.root);
  tree.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  if tree.FindNode(tree.root,Trim(edit1.text)) then
  memo1.Lines.Add(tree.current.id)
  else   memo1.Lines.Add('notfound');
  tree.Free;
end;

end.

孩子兄弟表示及遍历操作

先把代码贴上:#include #include #include #define OK 1 #define ERROR 0 #define FALSE 0 #define TRUE 1 #de...
  • lfb637
  • lfb637
  • 2017年11月11日 17:12
  • 197

求 以孩子-兄弟链表表示的树 的度、深度、叶结点和边

孩子兄弟表示法 任意一棵树,它的结点的第一个孩子如果存在就是唯一的,它的右兄弟如果存在也是唯一的。因此,我们设置两个指针,分别指向该结点的第一个孩子和此结点的右兄弟。 //其结构可定义为 typede...
  • Feynman1999
  • Feynman1999
  • 2017年05月26日 18:46
  • 3415

数据结构:树--孩子兄弟表示法

/*************************************************** 程序:树--孩子兄弟表示法 完成者:小单 完成时间:2013年5...
  • s634772208
  • s634772208
  • 2015年05月08日 14:57
  • 4406

数据结构例程——以孩子兄弟链存储的树的高度

本文是数据结构基础系列(6):树和二叉树中第5课时树的存储结构的例程。例: 以孩子-兄弟链作为存储结构,求树的高度 源程序:【说明——函数TreeCreate仅创建了如上图所示的图,不具有通用性。】...
  • sxhelijian
  • sxhelijian
  • 2015年10月19日 15:05
  • 3461

树-孩子兄弟表示法的实现

1.什么是树 树状图是一种数据结构,它是由n(n>=1)个有限节点组成一个具有层次关系的集合。把它叫做“树”是因为它看起来像一棵倒挂的树,也就是说它是根朝上,而叶朝下的。它具有以下的特点: 每...
  • m0_38090156
  • m0_38090156
  • 2017年12月26日 20:08
  • 37

使用C++ 和 孩子兄弟表示法实现树

VS2008可以运行通过。程序参考了许多大牛的总结,因能力有限,如有问题,请各位大牛指正。 程序采用孩子兄弟表示法存储树,实现了树的构造、遍历、深度、宽度、结点个数、叶子个数 以及 结点的层次、祖先、...
  • insistGoGo
  • insistGoGo
  • 2011年10月15日 21:34
  • 7723

普通二叉树转二叉链表(孩子兄弟表示法)

4.构造树T的孩子兄弟表示法。 求取树T的高度。 解: 孩子兄弟表示法:  1 2 3 4 5 6 public...
  • u013797304
  • u013797304
  • 2016年06月12日 18:58
  • 679

数据结构之通用树(孩子兄弟表示法)

孩子兄弟表示法模型,每个结点都有一个指向其第一个孩子的指针,每个结点都有一个指向其第一个右兄弟的指针 。...
  • m0_38001783
  • m0_38001783
  • 2017年08月01日 22:30
  • 1286

任意有根树的左孩子右兄弟表示法存储

算法导论:10.4-4 对一个含n个结点的任意有根树,写出一个O(n)时间的过程,输出其所有关键字。 该树以左孩子或兄弟表示法存储。...
  • nrj
  • nrj
  • 2014年10月14日 22:32
  • 1738

数据结构14————树,森林转化为二叉树(孩子兄弟表示法)

数据结构14————树,森林转化为二叉树(孩子兄弟表示法) 1.树转换二叉树 2.森林转换为二叉树 3.二叉树转森林和树 4.森林和树的遍历 5.二叉森林树的应用...
  • qq_38499859
  • qq_38499859
  • 2017年12月20日 21:32
  • 146
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI 孩子兄弟表示法 (递归实现)
举报原因:
原因补充:

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